Question

VB中怎样让text中依次输入的数字成为数组中的数字啊？

那如果是一个一个输呢？就是说输完一个数，text空白再重新输一个数，这样的话怎么办啊？

Answer 1

输入数后按下回车键

Dim A() As Single

Private Sub Form_Load()
ReDim Preserve A(0) As Single
End Sub

Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 13 Then
Dim I As Integer
I = UBound(A)
ReDim Preserve A(UBound(A) + 1) As Single
A(I) = Val(Text1)
End If
Text1=""
End Sub