对输入的数字进行编号的问题

Question

"对S中n个不同的原子进行编码，用[1，n]中整数来表示这些原子，用[-n，-1]中的整数来表示这些原子的否定。从而任何一个文字都可用[-n，n]上的一个整数来表示。"这句用VB怎么实现,这样编号有什么用,这样编了后怎么循环输出,有没有更好的方法,要求能判别正负数,而且能用一个数组表示所有的数

Answer 1

Option Explicit
'dongge2000原创
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
NextEnd Sub====================
以前csdn上的问题，自己看看合适不？