Question

VB中怎么将文本框中的内容写入数组中

VB中怎么将文本框中的内容写入数组中

Answer 1

你可以直接给数组的元素赋值，
如A(0)=Text1.text
A(1)=Text3.text
……

如果你的几个文本框是控件数组，就更好办了，
比如有6个文本框且为控件数组，则可以

For i=1 to 6
A(i)=Text(i).text
next i

如果你只有一个文本框，想输如一个数字点下 按钮，然后加入数组，
加个文本框和命令按钮，然后
Dim a(1 To 5)'这个你需要自己定义大小，否则数据超过5个就下界越标什么的
Private Sub Command1_Click()

Static i As Integer
i = i + 1
a(i) = Text1.Text

For Each c In a()
Debug.Print c
Next c
End Sub

Answer 2

Private Sub Command1_Click()
Dim a() As String
a = Split(Text1.Text, ",")
For i = 0 To UBound(a)
Print a(i)
Next
End Sub
意思是:将文本框里面的内容以","(逗号)处隔开!!输出到窗体上

Answer 3

先定义一个数组,再用一个for循环，再用一个mid$()内置函数取固定长度的数存入该数组中。