將()作為整數變暗
Dim b()為整數
將d標註為整數
將m標註為整數
將n表示為整數
私有子命令1_Click()
Dim i為整數，j為整數
D = InputBox("請輸入矩陣A的行數"，"提示")
N = InputBox("請輸入矩陣A的列數"，"提示")
ReDim a(d，n)為整數
對於i = 1到d
對於j = 1到n
A(i，j) = InputBox("請輸入矩陣A "，"提示")
圖片1。打印a(i，j)；
下壹個j
圖片1。打印
接下來我
圖片1。打印
末端接頭
矩陣b輸入程序
私有子命令2_Click()
Dim c為整數
Dim i為整數，j為整數
C = InputBox("請輸入B矩陣的行數"，"提示")