怎么把输入的数存入数组

[youngcave]

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

[myhgyp]

还是不明白你的意思

[samwzhang]

做计算器啊

[dufeiyan9170]

楼主你说的是什么意思？

[viena]

也不懂~

[youngcave]

对不起,我语文没学好
就是想把键盘输入的数都存到一个数组里
比如输入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

[viena]

狂晕~

[viena]

妳的数组的上界和下界是多少？
VB中的数组是用()圆括号的

[撸大湿]

比如输入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
？？？？？？？？？？？？？？
为什么这样存？？？

[zftow110]

我倒，搞不懂说什么。。。。。

[youngcave]

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

[dongge2000]

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

[youngcave]

小数点.....
num(1,0)=1.1

[dongge2000]

Option Explicit

Private 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
Next

End Sub
=======================
大概是这样的，也没法测试，我有点事，你自己看看吧！

[youngcave]

给个思路就好了~