VB如何让text1.text中的数字付给一个一维数组

来源：百度知道 编辑：UC知道 时间：2024/07/07 08:54:24
我现在在form上画了一个text1.text里面我想打上一些数字，比如45321874985让这些数字付给一个一维数组，

楼上的要改一下，不然会出错的：

Private Sub Command1_Click()
Dim a() As Integer
Dim l As Integer, s As String
s = Text1.Text
l = Len(s)
If l < 1 Then Exit Sub
ReDim a(1 To l)
For i = 1 To l
a(i) = Val(Mid(s, i, 1))
Print a(i);
Next i
End Sub

Private Sub Command1_Click()
Dim a(1) As Double
a(1) = Val(Text1.Text)
End Sub

Private Sub Command1_Click()
dim a() as integer
dim l as integer,s as string
s=text1.text
l=len(s)
for i=1 to l
a(i)=val(mid(s,i,1))
next i
End Sub