【正文】 ut)) 39。顯示加密結(jié)果 End Sub 答案 : 39。取第 i 個(gè)字符 If (strTemp = A And strTemp = Z) Then iAsc = Asc(strTemp) + 5 If iAsc Asc(Z) Then iAsc = iAsc 26 Code = Left$(Code, i 1) + Chr$(iAsc) ElseIf (strTemp = a And strTemp = z) Then iAsc = Asc(strTemp) + 5 If iAsc Asc(z) Then iAsc = iAsc 26 Code = Left$(Code, i 1) + Chr$(iAsc) Else Code = Left$(Code, i 1) + strTemp End If i = i + 1 Loop 39。去掉字符串右邊的空格，求真正的長(zhǎng)度 Do While (i = Length) 39。**********SPACE********(* 【 ?】 叆字符串 i = 1 Code = 39。字符串長(zhǎng)度 Dim iAsc As In?ege2 39。加密結(jié)果 Dim strTemp As String * 1 39。請(qǐng)?jiān)凇尽刻幪顑恼_的內(nèi)容 Private Sub Form_Click() Dil strInput As String * 70 39。下：將每個(gè)字母的序號(hào)移動(dòng) 5個(gè)位置，即 AF， a f， 39。字母加密，加密，加密結(jié)果在文本框 txtCode 中顯示?！境绦騻罓蕖? 39。**********SPACE********** Case 【“ a”，“ c”，“ d” to“ f”】 = UCase(x) Case m, o, p To z = LCase(x) Case Else 39。 Private Sub Command1_Click() x = 39。 若 x 的值為 m,o,pz,則顯示 x 的小寫字母； 39。題目：輸入任何一個(gè)英文字母 x, 39。**********SPACE********** 【 else】 Print 不及格 End If End Sub 答案： 1). ElseIf x = 75 Then 或 ElseIf 75 = x Then 2). print 及格 3). Else 〖第 5 題〗『程序填空』 (1 分 )(題號(hào) :60) 39。**********SPACE********** 【 elself x=75 then】 Print 良好 ElseIf x = 60 Then 39。 分以上 ),及格 (60 分以上 ),不及格幾個(gè)等級(jí)。【程序填空】 39。**********SPACE********** Case 【 ” m” ,” o” ,” p” to “ z” 】 = LCase(x) 39。 Private Sub Command1_Click() x = 39。 小寫字母；若為其它的值 ,則顯示 xa（如輸入的 X 的值是 39。題目：輸入任何一個(gè)英文字母 x,若 x 的值 為 a,c,df ,則 39。【程序填空】 39。**********SPACE********** Case 【 A to Z】 n2 = n2 + 1 Case 0 To 9 n3 = n3 + 1 End Select ch = InputBox(請(qǐng)輸入一個(gè)字符 ) 39。 Private Sub Form_Click() Dim ch$, n1%, n2%, n3% n1 = 0 n2 = 0 n3 = 0 ch = InputBox(請(qǐng)輸入一個(gè)字符 ) 39。題目：從鍵盤上輸入一串字符，以 ?結(jié)束，統(tǒng)計(jì)輸入字符中的 39?！境绦蛱羁铡? 39。**********SPACE********** Do While 【 not】 EOF(1) Input 1, InputData 39。**********SPACE********** Open amp。題目： 本程序?qū)崿F(xiàn)功能：將順序文本文件 “ ” 的 39?！嫉?1 題〗『程序填空』 (1 分 )(題號(hào) :507) 39?！境绦蛱羁铡? 39。 內(nèi)容一個(gè)字符一個(gè)字符地讀入文本框 t 俄 xtTest 中 請(qǐng)?jiān)凇尽刻幪钊胝_的內(nèi)容 Private Sub Form_Click() Dim InputData As String * 1 = 39。 \ For 【 input】 As 1 39。**********SPACE********** = + 【 inputdata】 Loop Close 1 End Sub 答案： 1). Input 2). Not 3). InputData 〖第 2 題〗『程序填空』 (1 分 )(題號(hào) :50) 39。39。 大、小寫字母和數(shù)字的個(gè)數(shù)。**********SPACE********** While 【 ch】 Select Case ch Case a To z n1 = n1 + 1 39。**********SPACE********** 【 wend】 Print n1, n2, n3 End Sub 答案： 1). ch ★ ★ ? 2). A To Z 3). Wend 〖第 3 題〗『程序填空』 (1 分 )(題號(hào) :62) 39。39。 顯示 x 的大寫字母；若 x 的值為 m,o,pz,則顯示 x 的 39。 g，則顯示 ga）。**********SPACE********** 【 select case x】 Case a, c, d To f = UCase(x) 39。**********SPACE********** 【 case else】 = Trim(x) + a End Select End Sub 答案： 1). Select Case x 2). m, o, p To z 3). Case Else 〖第 4 題〗『程序填空』 (1 分 )(題號(hào) :65) 39。題目：根據(jù)輸入的學(xué)習(xí)成績(jī) ,分別顯示優(yōu)秀 (90 分以上 ), 良好 (75 39。 Private Sub Command1_Click() x = Val() If x = 90 Then Print 優(yōu)秀 39。**********SPACE********** 【 print “ 及格 ” 】 39?！境绦蛱羁? 39。 若 x 的值 為 a,c,df ,則顯示 x 的大寫字母； 39。 若為其它的值 ,則顯示 xa（如輸入的 X 的值是 g，則顯示 ga）。**********SPACE********** 【 select case 】 39。**********SPACE********** 【 =trim（ x） +“ a”】 Ejd Select End Sub 答案： 1). Select Case x 2). a, c, d To f 3). = ★ Trim(x) ★ +★ a 〖第 6 題〗『程序填空』 (1 分 )(題號(hào) :495) 39。題目：本程序?qū)⒗梦谋究?txtInput 輸入的一行字符串中的所有 39。加密方法如 39。BG......YD,ZE.程序段如下： 39。輸入字符串 Dim Code AS String * 70 39。當(dāng)前處理的字符 4 Dim i As Intager Dim Length As Integer 39。第 i 個(gè)字 Ascii 碼 39。**********SPACE********** 【 ?】 39。**********SPACE********** 【 ?】 39。**********SPACE********** 【 ?】 39。strInput = 39。strTemp = Mid(strInput, i, 1) 39?！境绦蛱羁铡? 39。題目：打印出 100999 之間的所有水仙花數(shù) 39。 則這個(gè)數(shù)為水仙花數(shù) 請(qǐng)?jiān)凇尽刻幪钊胝_的內(nèi)容 Private Sub Command1_Click() Dim i As Integer, a As Integer, b As Integer, c As Integer 39。**********SPACE********** a = Int(i / 【 ?】 ) b = Int((i 100 * a) / 10) 39?！境绦蛱羁铡? 39。題目：以下程序的功能如 (圖 1)。**********SPACE********** If 【 ?】 Then r = Sqr(d) /6(2 * a) x1 ? p + r 6 x2 = p r Else x1 = p x2 = p 39。 x2 39。 p。 q。 p。 q。【程序填空】 39。 公因數(shù)和最小公倍數(shù)。**********SPACE********** If 【 ?】 Then temp = num1: num1 = num2: num2 = temp End If a = num1 b = num2 39。**********SPACE********** 【 ?】 Wend Print 最大公因數(shù)為： 。 num1 * num2 / a End Sub 答案： 1). num1 num2 或 num2 num1 2). b ★ ★ 0 3). b = temp 〖第 10 題〗『程序填空』 (1 分 )(題號(hào) :520) 39。題目：完成程序，使程序輸出值為 15 39。**********SPACE********** Dim i, j, x,【 k】 As Integer For i = 1 To 4 x = 4 For j = 1 To 3 x = 3 39。**********SPACE********** x = x + 【 6】 Next k Next j Next i Print x End Sub 答案： 1). k 2). k 3). 6 〖第 11 題〗『程序填空』 (1 分 )(題號(hào) :539) 39。題目： 隨機(jī)生成 10 個(gè)數(shù)存入數(shù)組中，并將數(shù)組排序后輸出