打開文件“考生文件夾\857\凱撒密碼．vbp”，完善程序?qū)崿F(xiàn)如下功能并保存：
公元前60年，古羅馬統(tǒng)帥“朱利葉斯?凱撒”（Caesar）第一個(gè)用當(dāng)時(shí)發(fā)明的“凱撒密碼”書寫軍事文書，進(jìn)行戰(zhàn)時(shí)通信．凱撒加密法簡(jiǎn)而言之，就是字母替換加密，每一個(gè)字母用字母表中該字母后的第三個(gè)字母代替．即
明文：ABCDEFGHIJKLMNOPQRSTUVWXYZ
密文：DEFGHIJKLMNOPQRSTUVWXYZABC
編寫程序，將明文加密輸出．例如：
輸入：How are you!
輸出：Krz duh brx!
Private Sub cmdCode_Click （　?。?br />Dim pt As String'明文
Dim ct As String'密文
Dim n As Integer'字母在字母表中的序號(hào)
Dim ch As String
Dim i As Integer
pt=txtPt.Text
ct=““
For i=1To Len（pt）
ch=Mid（pt,i,1）
Select Case ①
Case“A“To“Z“
n=Asc（ch）-Asc（“A“）
n=（n+3）Mod 26
ch=Chr（n+65）
Case“a“To“z“
n=②
n=（n+3）Mod 26
ch=Chr（n+97）
End Select
ct=③
Next i
txtCt.Text=ct
End Sub.