編寫(xiě)VB程序，實(shí)現(xiàn)如下功能：在文本框Text1 輸入字母字符串，單擊“加密”按鈕Command1，字符進(jìn)行逐個(gè)加密，加密過(guò)程是，先在“密碼本”m中找到相應(yīng)字符，再?gòu)腡ext3中得到其所對(duì)應(yīng)位置的密鑰，并在文本框Text2中顯示密文（運(yùn)行效果如圖所示）．本題暫時(shí)不考慮解密問(wèn)題．實(shí)現(xiàn)上述功能的VB代碼如下：
請(qǐng)?jiān)跈M線處填入合適代碼．
Private SubCommand1_Click

（　?。?/div>

（　?。?/div>
Dim s As String,m As String
Dim t As String
Dim k As String
Dim c As Integer
s=Text1．Text
n1=Len（s）
s3=Text3．Text
n3=Len（s3）
If n3＜26Then
Label1．Caption=“請(qǐng)重新輸入密鑰！“
Text3．Text=““
Exit Sub
End If
m=“abcdefghijklmnopqrstuvwxyz“
For i=1To n1
k=Mid（s,i,1）
If

asc（k）＜97

asc（k）＜97

Then'將大寫(xiě)字母轉(zhuǎn)換為小寫(xiě)
k=Chr（Asc（k）+32）
End If
  c=1
Do While c＜=Len（m）
If k=Mid（m,c,1）Then
Exit Do
End If

c=c+1

c=c+1

Loop
t=t+

Mid（s3，c,1）

Mid（s3，c,1）

Next i
Text2．Text=t
End Sub.