dim
p(5)
Private
Sub
Form_Load()
for
a=0
to
4
p(a)=a+2
next
a
end
sub
Private
Sub
Command1_Click()
text1.text=p(0)
text2.text=p(1)
text3.text=p(2)
text4.text=p(3)
text5.text=p(4)
End
Sub
如果text是数组的话：
Private
Sub
Command1_Click()
for
a=0
to
4
text1(a).text=p(a)
next
a
End
Sub
'控件数组创建方法：画一个控件，命名好，然后右键点击控件复制然后粘贴，这时提示是否创建控件数组，点是就OK了
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024