Dim N(5，5) As String '聲明了壹個空整數數組s。
私有子窗體_Activate()
Rem給數組N$賦值並顯示矩陣。
對於A = 1到5
對於B = 1到5
N(A，B) = Mid(Str$(A)，2，1) + Mid(Str$(B)，2，1)
圖片1。打印N(A，B) +空格(3)；
下壹個B
圖片1。打印:Picture1。打印
下壹個A
末端接頭
Private Sub button _Click(索引為整數)
圖片2。Cls
選擇案例索引
案例0
行列互換
對於A = 1到5
對於B = 1到5
圖片2。打印N(B，A) +空格(3)；
下壹個B
圖片2。打印:圖片2。打印
下壹個A
案例1
雷姆線反轉
對於A = 1到5
對於B = 1到5
圖片2。打印N(6 - A，B) +空格(3)；
下壹個B
圖片2。打印:圖片2。打印
下壹個A
案例2
Rem列反轉
對於A = 1到5
對於B = 1到5
圖片2。打印N(A，6 - B) +空格(3)；
下壹個B
圖片2。打印:圖片2。打印
下壹個A
案例3
結束
結束選擇
末端接頭