1947 年德國(guó)學(xué)者阿爾弗德?莫斯納發(fā)表了《一個(gè)神奇的幻方》，給出的一個(gè)如圖 1 所示的 4 階幻方（后被稱為：莫斯納幻方）。但國(guó)內(nèi)有許多專業(yè)人都認(rèn)為“莫斯納幻方”源自如圖 2 所示的“楊輝 4 階幻方”。對(duì)“莫斯納幻方”稍加分析后發(fā)現(xiàn)，它其實(shí)就是“楊輝 4 階幻方”的一個(gè)變形：
（1）改變列的位置：將圖 17-2 第 3 列變?yōu)閳D 17-1 第 1 列，第 1 列變?yōu)榈?nbsp;2 列，第 4 列變?yōu)榈?nbsp;3 列，第 2 列變?yōu)榈?nbsp;4 列。
（2）交換行的位置：經(jīng)過(guò)（1）處理后幻方的第 1 行和第 4 行，第 2 行和第 3 行互換。

小李編寫了一個(gè)將楊輝 4 階幻方轉(zhuǎn)換為莫斯納幻方的 VB 程序，運(yùn)行結(jié)果整齊地顯示在列表框中，程序運(yùn)行界面如圖3 所示。請(qǐng)?jiān)跈M線處填入合適的代碼。
Dim msy（1To 16）As Integer Dim msm（1To 16）As Integer
Function adj（c As Integer） As String'變量前添加適當(dāng)?shù)目崭?nbsp;Dim tmp1As String,n As Integer
tmp1=CStr（c）：n=5'CStr（x）函數(shù)是將數(shù)值變量 x 轉(zhuǎn)換成字符串類型，并把前導(dǎo)空格刪除。For i=1To n-Len（tmp1）
tmp1=““+tmp1Next i
adj=tmp1End Function
Private Sub Form_Load （　?。?br />'生成楊輝 4 階幻方顯示在 List1 中，并將數(shù)據(jù)按行依次放入 msy（1）至 msy（16）中，如 msy（1）=4，msy（2）=9
'上述操作代碼略
End Sub
Private Sub Command1_Click （　?。?br />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