Question

VB中每单击一次命令按钮，则把单击前文本框中输入完毕的值赋给数组中的变量，循环，代码怎么编？？

一个命令按钮，一个文本框！每次在文本框中输入结束后，单击命令按钮，则会把文本框中输入前的值赋给一个一维数组中的一个变量比如a（1），且单击后文本框变空，接受再次输入。即可实现，单击10次，则数组中记录了a(1)~a(10)

Answer 1

Dim a(10) As String
Dim i As String '以上变量在通用那里定义

Private Sub Command1_Click()
a(i) = Text1.Text
i = i + 1
Text1.Text = ""
End Sub

Private Sub Form_Load()
i = 0
End Sub

Answer 2

Dim a(), x%
Private Sub Command1_Click()
x = x + 1
ReDim Preserve a(1 To x)
a(x) = Text1.Text
End Sub