四、綜合應(yīng)用題

　　單選按鈕組常用于提供唯一選擇，Value屬性值決定每個(gè)單選按鈕的選中狀態(tài)：False表示未選、True表示選中，Caption屬性用于設(shè)置或返回單選按鈕的標(biāo)題。

　　Chr函數(shù)返回String，其中包含有與指定的字符代碼相關(guān)的字符。其語(yǔ)法格式為：Chr(charcode)。chareode為必要參數(shù)，是一個(gè)用來(lái)識(shí)別某字符的Long函數(shù)。Mid$(字符串，起始位置[，個(gè)數(shù)])函數(shù)用于從字符串指定位置開始的含指定個(gè)數(shù)字符的字符串;String(個(gè)數(shù)，字符)函數(shù)用于返回含指定個(gè)數(shù)字符的字符串;Asc(字符串)函數(shù)用于返回字符串首字符的ASCII碼值。

　　根據(jù)題意，將一個(gè)文本框控件、兩個(gè)單選按鈕控件和兩個(gè)命令按鈕添加到窗體中，文本框的名稱為Text1、Text屬性為空，單選按鈕的名稱分別為Option1和Option2，Caption屬性分別為“3”和“5”，命令按鈕的名稱為Command1和Command2，Caption屬性分別為“讀取”和“加密”。雙擊Command1進(jìn)入代碼窗口，編寫如下代碼：

　　Private Sub Command1_Click()

　　Dim str As String

　　Dim tmp As String

　　Dim num As Integer

　　str=""

　　Open"App.Path&\in5.txt"For Input As#1

　　’打開文件準(zhǔn)備讀取

　　While EOF(1)=False’判斷是否讀到文件尾

　　Input#1，tm)’讀取文件

　　str=str+trap

　　’將讀取的文本連接起來(lái)放入str中

　　Wend

　　Close#1’關(guān)閉文件

　　Text1.Text=str’在Textl中顯示str

　　End Sub

　　Private Sub Command2 Click()

　　Dim str As String

　　Dim tmp As String

　　Dim i As Integer

　　Dim ind As Integer

　　If Option1.Value=True Then

　　ind=3’當(dāng)選中Option1時(shí)，則移3位

　　ElseIf Option2.Value=True Then

　　ind=5’當(dāng)選中Option2時(shí)，則移5位

　　End If

　　Str=""

　　For i=1 To Len( Text1.Text)

　　tmp=Mid(Text1.Text，1，1)

　　’一個(gè)一個(gè)讀入字符(Mid函數(shù))

　　If Asc(tmp)<+Asc("z")And Asc(tmp)>=Asc("A")Then

　　If Asc(tmp)<=Asc("z")And Asc(tmp)>=Asc("a")Then

　　tmp=Chr((Asc(tmp)-ind-Asc("a")+26)Mod 26+Ase("a"))

　　Else ’當(dāng)輸入為大寫.字母時(shí)

　　tmp=Chr((Asc(tmp)-ind-Asc("A")+26)Mod 26+Asc("A"))

　　End If

　　End If

　　str=str+tmp’將字符串連起來(lái)

　　Next i

　　Text1.Text=str

　　’在Text1 中將加密后的字符串顯示出來(lái)

　　End Sub

　　單擊 按鈕運(yùn)行程序，并按要求保存。