这就要使用数组了Private Sub Command1_Click()Dim a(1 To 100) As String ' 定义一个数组，里面有100个项'接下来这段只是对每一个项目里进行赋值For i = 1 To 100a(i) = iNextMsgBox a(100)' 输出第100项的值End Sub
