你需要掌握的知识：变量的作用域
解决你的问题：
把
Private Sub Command1_Click()
Dim R!, k!
Dim a%(1 To 6)
a(1) = Val(Text1)
.........
Text7.Text = Rx
Command2.Enabled = True
End Sub
中的 Dim a%(1 To 6)
搬到代码窗体的最上面一行，这样
Dim a%(1 To 6)
......
......
Private Sub Command1_Click()
Dim R!, k!
a(1) = Val(Text1)
.........
Text7.Text = Rx
Command2.Enabled = True
End Sub
，，，，，，
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024