某加密算法對大寫字母加密，其加密規(guī)則如下：密文的ASCII碼值=明文的ASCII碼值+密鑰，加密后生成的密文仍為大寫字母。其密鑰是在3*3矩陣中獲得，獲得密鑰的方式為：如字母“A”的ASCII碼值為65，將65反復(fù)除3，其轉(zhuǎn)換過程如圖1所示，得到商為2，密鑰在矩陣中所在行；得到余數(shù)2，密鑰在矩陣中所在列；商或余數(shù)為0，密鑰在矩陣中最后一行或最后一列。其程序運行界面如圖2所示。
（1）下列對象中沒有Caption屬性的是

C

C

（單選，填字母：A.Command1/B.Forml/C.Textl
和Text2）。
（2）實現(xiàn)上述功能的VB程序如下，請在橫線處填入合適的代碼。
（3）程序中加框處代碼有錯，請改正。
（4）根據(jù)程序的功能并結(jié)合圖2，字母C加密后的密文為

F

F

。
Dim a（1 To 9）As Integer
Private Sub Command1_Click （　?。?br />Dim column As Integer,row As Integer,t As Integer,tmp As Integer
Dim s As String,ch As String,result As String
s=Text1.Text：result=““
For i=1 To Len（s）
ch=Mid（s,i,1）：t=①

Asc（ch）

Asc（ch）

column=（t-1）Mod 3+1
Do While t＞=3
t=t\3
Loop
row=
tmp=（Asc（ch）+②

a（（row-1）*3+column）

a（（row-1）*3+column）

-65）Mod 26+65
result=result+Chr（tmp）
Next i
Text2.Text=result
End Sub
Private Sub Form_Load （　　）'用來生成3*3矩陣
For i=1 To 9
a（i）=Int（Rnd*9）+1
s=s+Str（a（i））
If i Mod 3=0 Then
List1.AddItem s
s=““
End If
Next i
End Sub