不知讨论的问题是否是:“如何在循环语句中解决含循环数的数组变量名的赋值问题”?
如是,含循环数的数组变量名:如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