私有子窗體_Load()
顯示
Dim i為整數，j為整數
Dim a(3，3)為整數，b(3，3)為整數，c(3，3)為整數
使不規則化
打印“a(3，3)矩陣”
對於i = 0到3
對於j = 0到3
a(i，j) = Int(Rnd * 10 + 1)
打印a(i，j)；
下壹個j
打印
接下來我
打印“b(3，3)矩陣”
對於i = 0到3
對於j = 0到3
b(i，j) = Int(Rnd * 10 + 1)
打印b(i，j)；
下壹個j
打印
接下來我
打印“c(3，3)矩陣”
對於i = 0到3
對於j = 0到3
c(i，j) = a(i，j) * b(i，j)
打印c(i，j)；
下壹個j
打印
接下來我
末端接頭