字符串操作~~~

[jameswwb]

我想对一串数字的字符串 进行计算~~
从Text1.text中得到的字符串，例如“123456789”怎么可以赋值给一个 整型的一维数组呢？

[a_cup_of_water]

新建一工程，在窗体上放一个文本框TEXT1，一个标签LABEL1
全部你码：
'在文本框上按回车时激发事件，开如向数组中写数
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
getNum'写
showNum'显示数组中数据
End If
End Sub

Private Sub getNum()
Dim Num(100) As Integer
Dim N, tmpInt As Integer
N = Len(Text1.Text)
For tmpInt = 1 To N
Num(tmpInt) = Val(Mid(Text1.Text, tmpInt, 1))
Next
End Sub

Private Sub showNum()
Label1.Caption = ""
For tmpInt = 1 To N
Label1.Caption = Label1.Caption & CStr(Num(tmpInt))
Next
End Sub

[jameswwb]

谢谢了~