Private Sub Command1_Click()
Text1.Text = "123,456,789"
Dim a
a = Split(Text1.Text, ",")
Dim b
ReDim b(0 To UBound(a)) As Integer
Dim i As Integer
For i = 0 To UBound(b)
b(i) = Val(a(i))
Print b(i)
Next i
End Sub
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024