信息科代表楠楠想給美麗的信息老師寫(xiě)一段心里話，又怕被人發(fā)現(xiàn)，于是想了一個(gè)兩全其美的方法。楠楠有兩張n*n大小的紙，一張是透明的，一張是有字的。楠楠在透明的紙上涂黑了一些格子，然后把兩張紙一起給信息老師，并告訴老師閱讀方法：首先把透明的紙蓋在另一張紙上，然后把露出來(lái)的字母從上到下從左到右寫(xiě)下來(lái)并將每個(gè)字母向左循環(huán)移一位（如取出是D，則左移為C），然后將透明的紙順時(shí)針旋轉(zhuǎn)90度，再讀一遍，這樣子一共讀四遍，就得到情書(shū)內(nèi)容。
（1）若透明紙上的涂黑處（“O”沒(méi)有涂黑的地方，“#”代表被涂黑的地方）如圖a所示，有字紙張內(nèi)容如圖b所示，則獲取的情書(shū)內(nèi)容的前八位內(nèi)容

ZDHRTWHG

ZDHRTWHG

。

（2）楠楠根據(jù)上述閱讀規(guī)則，結(jié)合學(xué)科特點(diǎn)，發(fā)揮自己 特長(zhǎng)，設(shè)計(jì)了一科個(gè)獲取心里話的小程序。其VB代碼和運(yùn)行界面如圖c所示，請(qǐng)?jiān)跈M線處填入合適的代碼。
Dim a（1 To 1000）As String
Const n=4
Private Sub Form_Load （　?。?br />Dim x As Integer,s As String
Dim b（1 To n*n） As Boolean
Randomize
For i=1 To n‘隨機(jī)產(chǎn)生n個(gè)位置，使得這些位置表示未被涂黑

x=Int（Rnd*n*n）+1

x=Int（Rnd*n*n）+1

If b（x）=False Then
a（x）=″0″
b（x）=True
Else
i=i-1
End If Next i
‘將其余位置賦值為“#”，存入數(shù)組a相應(yīng)的位置中，并將結(jié)果按n行n列的方式顯示在列表框list1上，代碼略
End Sub
Private Sub Command1_Click

（　?。?/div>

（　　）

Dim s As String,jg As String,ch As String
s=″HAOXUEXIHAODUSHU″
For i=1 To n*n Step n
List2.AddItem Mid（s,i,n）
Next i
For i=1 To n
For j=1 To n*n
If a（j）=″0″Then
ch=Mid（s,j,1）
ch=

ch=Chr（（Asc（ch）-Asc（“A”）+25）Mod 26+Asc（“A“））

ch=Chr（（Asc（ch）-Asc（“A”）+25）Mod 26+Asc（“A“））

jg=jg+ch
End If
Next j
Call turn（n）‘調(diào)用過(guò)程turn,完成矩陣順時(shí)針旋轉(zhuǎn)90度
Next i
Label1.Caption=jg End Sub
Sub turn（x As Integer）
Dim i As Integer,j As Integer
Dim c（1 To n*n） As String
For i=1 To x
For j=1 To x
c（（i-1）*x+j）=

a（j-1）*x+i）

a（j-1）*x+i）

Next j
Next i
For i=1 To n*n
a（i）=c（i）
Next i End Sub