江蘇省2010年二級計算機考試VB上機試題

1、.2010春計算機等級考試（二級）Visual Basic程序設(shè)計上機考試試卷江蘇省高等學(xué)校非計算機專業(yè)學(xué)生計算機基礎(chǔ)知識和應(yīng)用能力等級考試上機試卷（2010春）二級 Visual Basic 語言 （試卷代號VB01）（本試卷完成時間 70分鐘）考試須知1改錯題的界面不作要求，主要用來調(diào)試程序，若題目中有參考界面，則僅作參考；2考試結(jié)束后，文件必須存放在指定位置，否則適當(dāng)扣分；考試盤中若無指定文件，則不予評分；3程序代碼書寫應(yīng)呈鋸齒形。一、改錯題（14分）題目本程序的功能是：找出指定范圍內(nèi)，本身及其平方數(shù)均由不同數(shù)字組成的整數(shù)。Option ExplicitPrivate Sub Comma

2、nd1_Click() Dim n As Integer, k As Long, st As String For n = 500 To 800 k = n 2 If validate(n) And validate(k) Then st = n & "2=" & k List1.AddItem st End If NextEnd SubPrivate Function validate(n As Long) As Boolean Dim p As String, i As Integer, a() As Integer, j As Integer p =

3、Str(n) ReDim a(Len(p) For i = 1 To Len(p) a(i) = Mid(p, i, 1) Next i For i = 1 To UBound(a) - 1 For j = i + 1 To UBound(a) If a(i) = a(j) Then Exit For Next Next i validate = TrueEnd Function要求1新建工程，輸入上述代碼，改正程序中的錯誤；2改錯時，不得增加或刪除語句，但可以適當(dāng)調(diào)整語句位置；3將窗體文件和工程文件分別命名為F1和P1，并保存到T盤的根目錄下。二、編程題（26分）題目 某數(shù)列的前二項為2和7

4、，其后繼項根據(jù)當(dāng)前最后兩項的乘積按下列規(guī)則生成：（1）若乘積為一位數(shù)，則該乘積即為數(shù)列的后繼項；（2）若乘積為兩位數(shù)，則該乘積的十位數(shù)和個位數(shù)依次作為數(shù)列的兩個后繼項。編寫程序，生成該數(shù)列的前n項，并把它們顯示在文本框中。編程要求1程序參考界面如圖所示，編程時不得增加或減少界面對象或改變對象的種類，窗體及界面元素大小適中，且均可見；2運行程序，首先在第一個文本框中輸入需要的數(shù)列項數(shù)，按“運行”按鈕，生成所要求的數(shù)列，按每行10個數(shù)據(jù)項的格式，輸出到多行文本框中；按“清理”按鈕，將兩個文本框清空，并將焦點置于第一個文本框上；按“結(jié)束”按鈕，結(jié)束程序運行；3程序中應(yīng)定義一個通用過程，用于生成所要求

5、的數(shù)列。要求將窗體文件和工程文件分別命名為F2和P2，并保存到T盤的根目錄下。江蘇省高等學(xué)校非計算機專業(yè)學(xué)生計算機基礎(chǔ)知識和應(yīng)用能力等級考試上機試卷（2010春）二級 Visual Basic 語言 （試卷代號VB02）（本試卷完成時間 70分鐘）考試須知1改錯題的界面不作要求，主要用來調(diào)試程序，若題目中有參考界面，則僅作參考；2考試結(jié)束后，文件必須存放在指定位置，否則適當(dāng)扣分；考試盤中若無指定文件，則不予評分；3程序代碼書寫應(yīng)呈鋸齒形。一、改錯題（14分）題目本程序的功能是：利用隨機函數(shù)生成n個可被3整除，且至少包含一個8的三位整數(shù)。Option ExplicitPrivate Sub Co

6、mmand1_Click() Dim n As Integer, a() As Integer, i As Integer Dim st As String n = InputBox("數(shù)據(jù)個數(shù)n：", "查找", 15) ReDim a(n) Call find(a) For i = 1 To n If n Mod 3 <> 0 Then st = st & Str(a(i) Else st = st & Str(a(i) & vbCrLf End If Next i Text1 = stEnd SubPrivate

7、 Sub find(a() As Integer) Dim ub As Integer, k As Integer, p As Integer Dim s As String Randomize ub = UBound(a) Do p = Int(Rnd * 899) + 100 s = CStr(p) If InStr(s, "8") <> 0 Or p Mod 3 = 0 Then k = k + 1 a(k) = p End If Loop Until k > ubEnd Sub要求1新建工程，輸入上述代碼，改正程序中的錯誤；2改錯時，不得增加或刪除

8、語句，但可以適當(dāng)調(diào)整語句位置；3將窗體文件和工程文件分別命名為F1和P1，并保存到T盤的根目錄下。二、編程題（26分）題目 編寫程序，求指定范圍內(nèi)的非素數(shù)整數(shù)的所有真因子（除1和自身以外的因子）。編程要求1程序參考界面如圖所示，編程時不得增加或減少界面對象或改變對象的種類，窗體及界面元素大小適中，且均可見；2運行程序，首先在X文本框與Y文本框中輸入相應(yīng)的數(shù)據(jù)后，按“運行”按鈕，進行相關(guān)處理，在列表框中按給定格式輸出結(jié)果；按“清理”按鈕，清空兩個文本框和列表框，焦點置于文本框X上；按“結(jié)束”按鈕，結(jié)束程序運行；3程序中應(yīng)定義一個通用過程，用于求整數(shù)的所有真因子。(注意：素數(shù)沒有符合條件的因子)要

9、求將窗體文件和工程文件分別命名為F2和P2，并保存到T盤的根目錄下。江蘇省高等學(xué)校非計算機專業(yè)學(xué)生計算機基礎(chǔ)知識和應(yīng)用能力等級考試上機試卷（2010春）二級 Visual Basic 語言 （試卷代號VB03）（本試卷完成時間 70分鐘）考試須知1改錯題的界面不作要求，主要用來調(diào)試程序，若題目中有參考界面，則僅作參考；2考試結(jié)束后，文件必須存放在指定位置，否則適當(dāng)扣分；考試盤中若無指定文件，則不予評分；3程序代碼書寫應(yīng)呈鋸齒形。一、改錯題（14分）題目本程序的功能是：找出指定數(shù)值范圍內(nèi)所有其平方數(shù)為升序數(shù)的整數(shù)。所謂升序數(shù)是指從最高位到最低位的數(shù)字依次遞增的整數(shù)。例如1369就是一個升序平方數(shù)

10、。Option ExplicitPrivate Sub Command1_Click() Dim n As Integer, k As Integer For n = 20 To 180 k = n 2 If sx(k) Then List1.AddItem n & "2=" & k End If Next n If List1.ListCount <> 0 Then List1.AddItem "無升序平方數(shù)"End SubPrivate Function sx(ByVal n As Integer) As Boolean

11、Dim num() As Integer, k As Integer, p As Integer Dim i As Integer Do p = n Mod 10 k = k + 1 ReDim Preserve num(k) num(k) = p n = n 10 Loop Until n < 0 For i = 2 To UBound(num) If num(i) > num(i - 1) Then Exit Function Next i sx = TrueEnd Function要求1新建工程，輸入上述代碼，改正程序中的錯誤；2改錯時，不得增加或刪除語句，但可以適當(dāng)調(diào)整語句位置；3將窗體文件和工程文件分別命名為F1和P1，并保存到T盤的根目錄下。二、編程題（26分）題目 編寫程序，將字符串中重復(fù)的字符刪除，且不改變原有字符的排列順序，并給出每個字符在原字符串中出現(xiàn)的次數(shù)。編程要求1程序參考界面如圖所示，編程時不得增加或減少界面對象或改變對象的種類，窗體及界面元素大小適中，且均可見；2運行程序，首先在文本框1中輸入測試字符串，然后按“運行”按鈕，進行相關(guān)處理，在文本框2中，