字符串操作~~~

Question

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

Answer 1

新建一工程，在窗体上放一个文本框TEXT1，一个标签LABEL1
全部你码：
'在文本框上按回车时激发事件，开如向数组中写数
Private Sub Text1_KeyPress(KeyAscii As Integer)
    If KeyAscii = 13 Then
        getNum'写
        showNum'显示数组中数据
    End If
End SubPrivate 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 SubPrivate Sub showNum()
    Label1.Caption = ""
    For tmpInt = 1 To N
        Label1.Caption = Label1.Caption & CStr(Num(tmpInt))
    Next
End Sub