我编写了这样一个程序，为什么数组的值在输入后仍然为零？请教一下高手！

Dim ND(20), T(20) As Double

Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Label3.Caption = Label3.Caption + vbLf + Text1.Text
Text1.Text = ""
i = i + 1
ND(i) = Val(Text1.Text)
End If
End Sub

Private Sub Text2_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Label4.Caption = Label4.Caption + vbLf + Text2.Text
Text2.Text = ""
j = j + 1
ND(j) = Text2.Text
End If

End Sub

Text1.Text = ""
i = i + 1
ND(i) = Val(Text1.Text)
第一行把Text设空,第三行再空Val("")赋值给ND(i)
不是0才怪……

这段代码看着怪怪的,你用
i = i + 1
ND(i) = Val(Text1.Text)
感觉想用循环似的,但是又没有循环.

你直接在输入完成后,用split函数赋值就行了吗!

你要知道这是用在Text的KeyPass事件里的，并不是循环，
在Text里输入东西后，每按一下回车，就会给数组赋值，
所以要i = i+1,控制数组的下标，还有一个就是要注意程序的执行先后
问题，为什么等于0xinfresh说得很清楚了，呵呵