四、綜合應用題

　　單選按鈕組常用于提供唯一選擇，Value屬性值決定每個單選按鈕的選中狀態：False表示未選、True表示選中，Caption屬性用于設置或返回單選按鈕的標題。

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

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

　　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

　　’打開文件準備讀取

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

　　Input#1，tm)’讀取文件

　　str=str+trap

　　’將讀取的文本連接起來放入str中

　　Wend

　　Close#1’關閉文件

　　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’當選中Option1時，則移3位

　　ElseIf Option2.Value=True Then

　　ind=5’當選中Option2時，則移5位

　　End If

　　Str=""

　　For i=1 To Len( Text1.Text)

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

　　’一個一個讀入字符(Mid函數)

　　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 ’當輸入為大寫.字母時

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

　　End If

　　End If

　　str=str+tmp’將字符串連起來

　　Next i

　　Text1.Text=str

　　’在Text1 中將加密后的字符串顯示出來

　　End Sub

　　單擊 按鈕運行程序，并按要求保存。