小明编写了一个矩阵转换程序,功能如下:单击“生成”按钮Commandl后,在列表框listl中生成1-16顺序矩阵,单击“转换”按钮Command2后,在列表框list2中生成转换后的矩阵。转换的算法如下:
(1)改变列的位置:原矩阵第3列变为新矩阵的第1列,原矩阵第1列变为新矩阵第2列,原矩阵第4列变为新矩阵第3列,原矩阵第2列变为新矩阵第4列。
(2)改变行的位置:经过(1)处理后的矩阵的第1行和第4行交换,第2行和第3行交换。
实现上面的功能,程序运行界面如图所示。

实现上述功能的程序如下,请在程序划线处填入合适的语句或代码。
Dim sc(1 To 16)As Integer ′生成矩阵
Dim zh(1 To 16)As Integer ′转换矩阵
Private Sub Commandl_Click()
′在列表框 listl 中生成4*4矩阵sc,代码略
End Sub
Private Sub Command 2_Click()
Dim pb As Integer,tmp As Integer,i As Integer,line As String
For i=1 To 16 ′变化列
If i Mod 4=1 Then
____________________
Elself i Mod 4=3 Then
pb=i-2
Else
pb=pb+2
End If
zh(pb)=sc(i)
Next i
For i=1 To 8 ′交换行
If___________________Then
tmp=zh(i):zh(i)=zh(i+12):zh(i+12)=tmp
Else
tmp=zh(i):zh(i)=zh(i+4):zh(i+4)=tmp
End If
Next i
line=″″
List2.Clear
For i=1 To 16
If i Mod 4=1 Then
List2.AddItem line
line=adj(Str(zh(i)-3))
Else
___________________
End If
Next i
List2.AddItem line
End Sub
Function adj(a As String,n As Integer)As String
′adj函数的功能:在字符串a前加入适当的空格,使得a的长度为n位,代码略。
End Function