记忆最差的动物:在vb中如何调用外部过程变量

来源：百度文库 编辑：杭州交通信息网 时间：2024/04/28 05:38:51
比如，我在窗体单击过程中建立了一个矩阵，代码如下：
Private Sub Form_Click()

Dim arr(4, 4) As Integer
For i = 1 To 4
For j = 1 To 4
x = InputBox("请输入第" & i & "行，第" & j & "列的元素")
arr(i, j) = Val(x)
Next j
Next i

End Sub

然后我想在命令按钮过程中直接调用arr(4,4)
比如：
Private Sub Command1_Click()
Print "所建立的矩阵为："
For i = 1 To 4
For j = 1 To 4
Print arr(i, j); "";
Next j
Print
Next i
End Sub

我知道上面代码不能运行，但在vb中有没有办法实现呢？（因为感觉vb建立矩阵太过复杂，不想依次再输16次矩阵元素）。还有，有没有更方便地建立已知矩阵的办法呢？请各位vb大虾指教。

在通用过程中定义Dim arr(4, 4) As Integer

修改代码如下：
Dim arr(4, 4) As Integer'把这一行放到窗体模块的最上方，这样在该窗体中的任何过程、函数均可访问。

Private Sub Form_Click()

For i = 1 To 4
For j = 1 To 4
x = InputBox("请输入第" & i & "行，第" & j & "列的元素")
arr(i, j) = Val(x)
Next j
Next i

End Sub

然后我想在命令按钮过程中直接调用arr(4,4)
比如：
Private Sub Command1_Click()
Print "所建立的矩阵为："
For i = 1 To 4
For j = 1 To 4
Print arr(i, j); "";
Next j
Print
Next i
End Sub

修改为：
Dim arr(4, 4) As Integer ' 对象框中选则F"通用“
'在事件框中选择“ 声明”
Private Sub Form_Click()

For i = 1 To 4
For j = 1 To 4
x = InputBox("请输入第" & i & "行，第" & j & "列的元素")
arr(i, j) = Val(x)
Next j
Next i

End Sub

Private Sub Command1_Click()
Print "所建立的矩阵为："
For i = 1 To 4
For j = 1 To 4
Print arr(i, j); "";
Next j
Print
Next i
End Sub

把arr(4,4)定义成全局变量就可以调用了

在vb中如何调用外部过程变量 vb中调用外部程序的代码 VB如何调用外部程序的CALL 在vb中，如何声明变量？ 如何在JAVASCRIPT代码中调用外部文件 如何在flash中调用外部txt文件 vb中如何获得调用函数的过程的名字？ VB 中如何调用SQl Server的存储过程呢？ 请问在VB中如何调用多线程？ 如何在Dreamweaver中调用存储过程