信息科代表楠楠想给美丽的信息老师写一段心里话，又怕被人发现，于是想了一个两全其美的方法。楠楠有两张n*n大小的纸，一张是透明的，一张是有字的。楠楠在透明的纸上涂黑了一些格子，然后把两张纸一起给信息老师，并告诉老师阅读方法：首先把透明的纸盖在另一张纸上，然后把露出来的字母从上到下从左到右写下来并将每个字母向左循环移一位（如取出是D，则左移为C），然后将透明的纸顺时针旋转90度，再读一遍，这样子一共读四遍，就得到情书内容。
（1）若透明纸上的涂黑处（“O”没有涂黑的地方，“#”代表被涂黑的地方）如图a所示，有字纸张内容如图b所示，则获取的情书内容的前八位内容

ZDHRTWHG

ZDHRTWHG

。

（2）楠楠根据上述阅读规则，结合学科特点，发挥自己 特长，设计了一科个获取心里话的小程序。其VB代码和运行界面如图c所示，请在横线处填入合适的代码。
Dim a（1 To 1000）As String
Const n=4
Private Sub Form_Load （　　）
Dim x As Integer,s As String
Dim b（1 To n*n） As Boolean
Randomize
For i=1 To n‘随机产生n个位置，使得这些位置表示未被涂黑

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
‘将其余位置赋值为“#”，存入数组a相应的位置中，并将结果按n行n列的方式显示在列表框list1上，代码略
End Sub
Private Sub Command1_Click

（　　）

（　　）

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）‘调用过程turn,完成矩阵顺时针旋转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