如何在同一文本框中输入n次文本

[lovecat2003]

我想在一个文本筐中连续给n个变量赋值，当赋值为零时，停止赋值，不知如何实现，还有vb的数组格式是什么呀？

[射天狼]

什么意思!?

[handsomge]

用一个变量纪录状态。也就是当前该为哪个变量赴值

[lovecat2003]

用一个按钮控制，每输入一个数，按钮按一次，然后文本框为空，把这是数复值，把所有的数赋给一个数组，数组的大小根据所输入的文本个数变动

[gzhiceberg]

Dim nArray() As Long
Dim cnt As Long

Private Sub Command1_Click()
nArray(cnt) = Text1.Text
cnt = cnt + 1
ReDim Preserve nArray(cnt) As Long
MsgBox nArray(cnt - 1)
Text1.Text = ""
Text1.SetFocus
End Sub


Private Sub Form_Load()
cnt = 1
Text1.Text = ""
ReDim Preserve nArray(1) As Long
End Sub


Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Command1.SetFocus
End If
End Sub