怎么把输入的数存入数组

Question

有0到9,-,小数点,(,)这几个铵钮,一个二维数组
把正数都存在num[1.n],负数存成num[-n,-1]
高手们指教下
实心木头人......知道你在的,求助

Answer 1

对不起,我语文没学好
就是想把键盘输入的数都存到一个数组里
比如输入1+2*2+1+(-1)+(-1)*2
就存成
num[1,0]=1
num[1,1]=2
num[1,2]=2
num[1,3]=1
num[-4,-1]=-1
num[-5,-1]=-1
num[1,6]=2

Answer 2

比如输入1+2*2+1+(-1)+(-1)*2
就存成
num[1,0]=1
num[1,1]=2
num[1,2]=2
num[1,3]=1
num[-4,-1]=-1
num[-5,-1]=-1
num[1,6]=2
？？？？？？？？？？？？？？
为什么这样存？？？

Answer 3

"对S中n个不同的原子进行编码，用[1，n]中整数来表示这些原子，用[-n，-1]中的整数来表示这些原子的否定。从而任何一个文字都可用[-n，n]上的一个整数来表示。"
原文
原子=正数
原子的否定=负数
S=算式
文字=数

Answer 4

有0到9,-,小数点,(,)这几个铵钮,一个二维数组
把正数都存在num[1.n],负数存成num[-n,-1]
高手们指教下
实心木头人......知道你在的,求助
---------------
小数点放那？

Answer 5

Option ExplicitPrivate Sub Command1_Click()
    Dim Arr() As String
    Dim i As Long
    Dim Str As String
    Dim MyArr() As String
    Str = Text1.Text
    Str = Replace(Str, "+", "_")
    Str = Replace(Str, "-", "_")
    Str = Replace(Str, "*", "_")
    Str = Replace(Str, "/", "_")
    Str = Replace(Str, "\", "_")
    Str = Replace(Str, "^", "_")
    Str = Replace(Str, "(", "_")
    Str = Replace(Str, ")", "_")
    Str = Replace(Str, "[", "_")
    Str = Replace(Str, "]", "_")
    Debug.Print Str
    Arr = Split(Str, "_")
    
    For i = LBound(Arr) To UBound(Arr)
        If Len(Arr(i)) > 0 Then
            If CLng(Arr(i)) >= 0 Then
                ReDim Preserve MyArr(1, i) As String
                MyArr(1, i) = Arr(i)
            End If
            If CLng(Arr(i)) < 0 Then
                ReDim Preserve MyArr(-i, -1) As String
                MyArr(i, -1) = Arr(i)
            End If
        End If
    NextEnd Sub
=======================
大概是这样的，也没法测试，我有点事，你自己看看吧！