想这样循环,有变量名 number1,number2,number3 表名table1,table2,table3
请问如何用循环语句来实现 当number1 = 1 table1的名字改成f1,number2 = 2时,table2的名字改成f2,number3 = 3时,table3的名字改成 f3
请问如何用循环语句来实现 当number1 = 1 table1的名字改成f1,number2 = 2时,table2的名字改成f2,number3 = 3时,table3的名字改成 f3
如是,含循环数的数组变量名:如dat1(10),dat2(10),......则有如下的解决办法。
Private Sub Command1_Click()
' 定义一个新的二维数组abc,第一列是变量名(如dat1,dat2......,),
‘ 第二列为存入dat1,dat2数组的数据
Dim abc(10, 2)
Text1.Text = ""
For i = 1 To 10
'产生数组名
abc(i, 1) = "dat" & i
'给数组输入数据
abc(i, 2) = "A" & i
'输出数据
Text1.Text = Text1.Text & abc(i, 2) & vbCrLf
'Print abc(i, 2)
Next i
End Sub