问个VB问题 大家要看到哦!

来源:百度知道 编辑:UC知道 时间:2024/06/30 02:41:16
Private Sub Command1_Click()

n = InputBox("个数")
ReDim a(n)
For i = 1 To n
a(n) = InputBox("ddd")

Next

End Sub

Private Sub Command3_Click()
For i = 1 To 5
Print a(i)
Next
End Sub

第一个是定义一个数组 然后第二个打印出来为什么 我打出来是0 0 0 0 然后最后一个数 不管我怎么输都这样??

n = InputBox("个数")
ReDim a(n)
For i = 1 To n
a(n) = InputBox("ddd") <======= 改成 a(i)

Next

哎,基础没学好
你这个是2个事件,事件里定义的变量是局部的,只能在自己事件的范围内使用
换句话说,你2个事件里用的分别是2个数组,根本不公用的

你应该把数组定义在事件外面,构成全局变量