在窗体上创建3个textbox 是控件数组,分别为:
text1(0),text1(1),text1(2)
然后把代码改成这样
Private Sub Form_Click()
Dim a
a = Array("a", "b", "c")
For i = 0 To 2
Text1(i).Text = a(i)
Next
End Sub
option base
要放在"通用"里面.
也就是所有事件的前头.
Dim a() As String 改为Dim a()
用Array的时候,接收变量一定要是变体的。
Dim a() As Variant
我就是提问者
上面三种办法我都用了
还是不行
怎么办