分类：电脑/网络-程序设计
问题：vb这个问题越来越糊涂了!我想用两个控件数组text1,text 
我想用两个控件数组text1,text2来完成它们之间的交换(通过按一下按钮),如图这样,可是index怎么设置啊?帮帮我!我的是这样的:Private Sub Command1_Click() For Index = 10 To 19Text2(Index).Text = Text1(Index - 10).Text Next IndexEnd Sub提示是控件数组"10"不存在.怎么改?
回答：控件数组缺省定义始值同变量数组相同,按你上传的窗体图来看,你有两个文本框数组,它们的始值都是从0开始,即:Text1(Index)和Text2(Index)中Index的范围均为0 - 9 所以语句可改为:Private Sub ommand1_Click()For Index = 0 To 9Text2(InDex).Text = Text1(9 - InDex).TextNext IndexEnd Sub或Private Sub Command1_Click()For Index = 0 To 9Text2(InDex).Text = Text1(InDex).TextNext IndexEnd Sub回答补充部分:代码改为OPTION EXPLICITDim index() As IntegerPrivate Sub Command1_Click()REDIM index(9)For i = 0 To 9Text2(index(i)).Text = Text1(index(9 - i)).TextNext iEnd Sub这是你使用了动态数组,在过程中必须进行重定义.