【正文】 s As String, C As String Dim I As Integer, L As Integer, spac As Integer, character As Integer, digit As Integer, other As Integer 39。**********FOUND********** Open amp。 \ For Output As 1 39。**********FOUND********** Do Until EOF(0) Line Input 1, s L = Len(s) For I = 1 To L C = Mid(s, I, 1) If C = a And C = z Or C = A And C = Z Then character = character + 1 ElseIf C = Then spac = spac + 1 39。**********FOUND********** ElseIf C = 0 And C 9 Then digit = digit + 1 Else other = other + 1 End If Next I Loop Close 1 Print 字符個(gè)數(shù)為： 。 character。 數(shù)字個(gè)數(shù)為： 。 digit Print 空格個(gè)數(shù)為： 。 spac。 其它個(gè)數(shù)為： 。 other End Sub 39。 答案： 1). Open amp。 \ For Input As ★ 1 或 Open For Input As ★ 1 2). Do Until EOF(1) 3). ElseIf★ C = 0★ And★ C = 9★ Then 〖第 33 題〗『程序改錯(cuò)』 (1 分 )(題號 :135) 39。 39。【程序改錯(cuò)】 39。 39。題目：程序功能：求 1+2+3??，直到其和超出 3000 為 39。 止，并輸入結(jié)果。 39。 39。注意：不可增加或刪除程序行，也不可以更改程序結(jié)構(gòu) 39。 Private Sub Form_Click() Cls Dim i As Integer Dim s As Single i = 1 39。**********FOUND********** s =1 Do 39。**********FOUND********** i = i + 2 s = s + I 39。**********FOUND********** Loop s 3000 Print 從 1 到 :。 i。 的和是 。 s End Sub 答案： 1). s =0 2). i = ★ i★ +★ 1 3). Loop until s 3000 或 Loop until 3000 s 〖第 34 題〗『程序改錯(cuò)』 (1 分 )(題號 :476) 39。 39?！境绦蚋腻e(cuò)】 39。 39。題目 :由輸入對話框輸入 n（設(shè) n 為大于零且小于 30 的自然數(shù)）， 39。 計(jì)算如圖 1 所示的表達(dá)式，并在標(biāo)簽框 Label1 上顯示。 39。 39。注意：不可增加或刪除程序行，也不可以更改程序結(jié)構(gòu) 39。 Private Sub Form_Click() Dim n As Integer, sum As Double, k As Integer n = Val(InputBox(n=, 請輸入自然數(shù) n(n0 且 n30))) 39。**********FOUND********** Do While n 0 Or n 30 n = Val(InputBox(n=, 請重輸入 )) Loop sum = 0 k = 0 Do 39。**********FOUND********** k = sum + k sum = sum + 1 / (k * (k + 1)) 39。**********FOUND********** Loop Until k n = Sum= + Str(sum) End Sub 答案： 1). Do While n = 0 Or n = 30 或 Do While ★ n★ =★ 0★ Or★ n=★ 30 2). k = k + 1 或 k = 1 + k 3). Loop Until k = n 或 Loop Until n = k 〖第 35 題〗『程序改錯(cuò)』 (1 分 )(題號 :468) 39。 39?！境绦蚋腻e(cuò)】 39。 39。題目：編寫一程序，實(shí)現(xiàn)對文本框里的文字查找并清除某 39。 一字符串，直到文本框中不再存在它。 39。 39。注意：不可增加或刪除程序行，也不可以更改程序結(jié)構(gòu) 39。 Function StringClear(sSource As String, sSearch As String) As String Dim j As Integer, res As String 39。**********FOUND********** res = sSearch 39。**********FOUND********** Do While Mid(res, sSearch) j = InStr(res, sSearch) 39。**********FOUND********** res = Left(res, j) amp。 Mid(res, j + 2) Loop StringClear = res End Function Private Sub Command1_Click() Dim Searchstr As String If Then Searchstr = InputBox(Please input the string seach) = StringClear(, Searchstr) End If End Sub 答案： 1). res = sSource 2). Do While InStr(res, sSearch) 3). res = Left(res, j 1) amp。 Mid(res, j + 2) 〖第 36 題〗『程序改錯(cuò)』 (1 分 )(題號 :117) 39。 39。【程序改錯(cuò)】 39。 39。題目：下面的程序段用于實(shí)現(xiàn)以下功能：建立一順序文 39。 件，存放 10 名同學(xué)的學(xué)號和三門功課成績，顯示 39。 該文件內(nèi)所有記錄， 并同時(shí)顯示其總分和平均分 39。 39。注意：不可增加或刪除程序行，也不可以更改程序結(jié)構(gòu) 39。 Private Sub Form_Click() Dim no%, c1%, c2%, c3%,i as Integer 39。**********FOUND********** Open c:\ For Input As 1 For i = 1 To 10 no = InputBox(請輸入學(xué)號 ) c1 = InputBox(請輸入數(shù)學(xué)成績 ) c2 = InputBox(請輸入語文成績 ) c3 = InputBox(請輸入外語 ) Write 1, no, c1, c2, c2 Next i Close 1 39。**********FOUND********** Open c:\ For Output As 1 For i = 1 To 10 39。**********FOUND********** Print 1, no, c1, c2, c3 Print no, c1, c2, c3, c1 + c2 + c3, (c1 + c2 + c3) / 3 Next i Close 1 End Sub 答案： 1). Open c:\ For Output As 1 2). Open c:\ For Input As 1 3). Input 1, n0, c1, c2, c3 〖第 37 題〗『程序改錯(cuò)』 (1 分 )(題號 :484) 39。 39?！境绦蚋腻e(cuò)】 39。 39。題目 :使用順序 文件讀寫方式編寫一個(gè)簡單的記事本應(yīng)用程序， 39。 基本邏輯是：假設(shè)在考生目錄中有一個(gè)名為 的文 39。 本文件。當(dāng)點(diǎn)擊 打開 按鈕 (Command1)時(shí)，程序?qū)? 39。 文件中的內(nèi)容顯示在文本框 (Text1)中，當(dāng)點(diǎn)擊 新建 按鈕 39。 (Command2)時(shí)，清空 Text1 中的內(nèi)容；用戶可以在 Text1 中進(jìn)行 39。 編輯操作，當(dāng)點(diǎn)擊 保存 按鈕 (Command3)時(shí)，將 Text1 中的內(nèi)容 39。 保存在 文件中。當(dāng)點(diǎn)擊 退出 按鈕 (Command4)時(shí)關(guān)閉本窗體。 39。 39。注意：不可增加或刪除程序行，也不可以更改程序結(jié)構(gòu) 39。 Private Sub Command1_Click() Dim A As String Text1 = Open For Input As 1 Do While Not EOF(1) 39。**********FOUND********** Input 0, A Text1 = Text1 + A Loop 39。**********FOUND********** Close 0 End Sub Private Sub Command2_Click() Text1 = End Sub Private Sub Command3_Click() Open For Output As 1 39。**********FOUND********** Input 1, Text1 Close 1 End Sub Private Sub Command4_Click() Unload Me End Sub 答案： 1). Input 1, A 或 Input 1, A 2). Close 1 或 Close 1 3).Write 1, Text1 或 Write 1, Text1 〖第 38 題〗『程序改錯(cuò)』 (1 分 )(題號 :497) 39。 39?！境绦蚋腻e(cuò)】 39。 39。題目 :編程求一個(gè)十進(jìn)制整數(shù) n 的各位數(shù)字之和，設(shè) n 為小于或等于 5 位的數(shù)。 39。 39。注意：不可增加或刪除程序行，也不可以更改程序結(jié)構(gòu) 39。 Private Sub Form_Click() Dim N As Integer, Sum As Integer, S1 As String, S2 As String Dim i As Integer, Ch As String Sum = 0 N = InputBox(輸入整數(shù) n) S1 = Str(N) 39。**********FOUND********** S1 = LTrim(S1) For i = 1 To Len(S1) 39。**********FOUND********** Ch = Mid(N, i, 1) 39。**********FOUND********** Sum = Val(Ch) Next i Print 該整數(shù)的各位數(shù)之和是： 。 Sum End Sub 答案： 1). S1 = Trim(S1) 2). Ch = Mid(S1, i, 1) 3). Sum = Sum + Val(Ch) 或 Sum =★ Sum★ +★ Val(Ch)