1947 年德國學者阿爾弗德?莫斯納發表了《一個神奇的幻方》，給出的一個如圖 1 所示的 4 階幻方（后被稱為：莫斯納幻方）。但國內有許多專業人都認為“莫斯納幻方”源自如圖 2 所示的“楊輝 4 階幻方”。對“莫斯納幻方”稍加分析后發現，它其實就是“楊輝 4 階幻方”的一個變形：
（1）改變列的位置：將圖 17-2 第 3 列變為圖 17-1 第 1 列，第 1 列變為第 2 列，第 4 列變為第 3 列，第 2 列變為第 4 列。
（2）交換行的位置：經過（1）處理后幻方的第 1 行和第 4 行，第 2 行和第 3 行互換。

小李編寫了一個將楊輝 4 階幻方轉換為莫斯納幻方的 VB 程序，運行結果整齊地顯示在列表框中，程序運行界面如圖3 所示。請在橫線處填入合適的代碼。
Dim msy（1To 16）As Integer Dim msm（1To 16）As Integer
Function adj（c As Integer） As String'變量前添加適當的空格 Dim tmp1As String,n As Integer
tmp1=CStr（c）：n=5'CStr（x）函數是將數值變量 x 轉換成字符串類型，并把前導空格刪除。For i=1To n-Len（tmp1）
tmp1=““+tmp1Next i
adj=tmp1End Function
Private Sub Form_Load （　　）
'生成楊輝 4 階幻方顯示在 List1 中，并將數據按行依次放入 msy（1）至 msy（16）中，如 msy（1）=4，msy（2）=9
'上述操作代碼略
End Sub
Private Sub Command1_Click （　　）
Dim pb As Integer,tmp As Integer,i As Integer,line As String For i=1To 16'變化列
If i Mod 4=1Then
 ①
ElseIf i Mod 4=3 Then
pb=i-2
Else
pb=pb+2
 End If
 ②
Next i
For i=1To 8'交換行
 If  ③Then
tmp=msm（i）：msm（i）=msm（i+12）：msm（i+12）=tmp
 Else
tmp=msm（i）：msm（i）=msm（i+4）：msm（i+4）=tmp
End If
Next i
line=““
List2．Clear
For i=1To 16
If i Mod 4=1
Then List2．AddItem line line=adj（msm（i））
Else
Line=line+adj（msm（i））
End If Next i
List2．AddItem line
End Sub