VB中将文本框中遗传数字变成一组数组怎么做如图

2024-12-04 06:04:25

推荐回答（3个）

回答1：

Private Sub Command1_Click()
Dim a() As String, b() As Integer
a = Split(Text1.Text, vbCrLf) '得到的是字符还不是数字
ReDim b(UBound(a))
For i = 0 To UBound(a)
b(i) = Val(a(i)) '转化为数字
Next

For i = 0 To UBound(b)
Print b(i)
Next
End Sub

回答2：

Private Sub Command1_Click()
Dim a() As String
a = Split(Text1.Text, Chr(13) + Chr(10))
Dim i As Integer
For i = 0 To UBound(a)
Print a(i)
Next

End Sub

回答3：

vb6有个更为简单的方法，直接将他们都导入到数组里面，就一个函数，但VB5里面没有。
好长时间不用，函数想不起来，好像同asp的那个类似。
想起来告诉你。

VB中 将文本框中遗传数字变成一组数组怎么做 如图

VB中将文本框中遗传数字变成一组数组怎么做如图