关于VB的数组问题，我想让两个控件共享数组。

2025-06-23 02:52:23

推荐回答（1个）

回答1：

你需要掌握的知识：变量的作用域
解决你的问题：
把
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
，，，，，，