|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
 |
 |
2005秋VB上機(jī)（6） |
江蘇省高等學(xué)校非計(jì)算機(jī)專業(yè)學(xué)生 計(jì)算機(jī)基礎(chǔ)知識(shí)應(yīng)用能力等級(jí)考試上機(jī)試卷(2005秋) 二級(jí)Visual Basic語言(試卷代號(hào)VB06) (本試卷完成時(shí)間 70分鐘) [考試須知] 1. 改錯(cuò)題的界面不作要求,主要用來調(diào)試程序,若題目中有參考界面,則僅作參考; 2. 考試結(jié)束后,文件須存放在指定位置,否則適當(dāng)扣分;考試盤中若無指定文件,則不予評(píng)分; 3. 程序代碼書寫應(yīng)成鋸齒形。 一、改錯(cuò)題（14分） [題目]下面程序的功能是:將給定的字符串中的數(shù)字字符篩選出來,依次組成若干個(gè)兩位整數(shù);并求出它們的最大公約數(shù).本題程序界面見圖1. Option Explicit Private Sub Command1_Click() Dim A () As Integer,I As Integer, Ch As String Dim j As Integer,G As Integer , Id As Integer Dim S As String, St As String S = “36a487b2541224301842e72” Text = S For I = 1 To Len(S) If Mid(S, I , 1) Ch = Ch & Mid(S , I, 1) End If If Len(Ch) = 2 Then Id = Id + 1 ReDim Preserve A(Id) A(Is) = Ch Text2 = Text2 & Str(A(Id)) End IF Ch =” ” Next I G = A(1) For I = 2 To Id G=Gcd(G, A(I)) Next I Text2 = Text2 & vbCrLf & “ “ &vbCrLf & “以上數(shù)據(jù)的最大公約數(shù)是: ” & G End Sub Private Function Gcd(N As Integer, M As Integer) Dim R As Integer R = N Mod M If R<> 0 Then Gcd = Gcd(M, R) Else Gcd = R End If End Function [要求] 1. 新建工程,輸入上述代碼,改正程序中的錯(cuò)誤; 2. 改錯(cuò)時(shí),不得增加或刪除語句,但可適當(dāng)調(diào)整語句位置; 3. 將窗體文件和工程文件分別命名為F1和P1,并保存到軟盤A的根目錄下. 二、編程題(26分) [題目]編寫程序找出倒數(shù)之和等于19/20的四個(gè)連續(xù)的自然數(shù). [編程要求] 1. 程序參考界面如圖2所示,編程時(shí)不得增加或減少界面對(duì)象或改變對(duì)象的種類,窗體及界面元素大小適中,且均可見; 2. 單擊”運(yùn)行”按鈕,找出倒數(shù)之和等于19/20的四個(gè)連續(xù)的自然數(shù),并按圖示格式顯示在多行文本框中; 3. 單擊”清除”按鈕,則將文本框清空;單擊”退出”按鈕,結(jié)束程序運(yùn)行; 4. 程序中必須包含一個(gè)求四個(gè)連續(xù)的自然數(shù)倒數(shù)之和的通用過程. [要求] 將窗體文件和工程文件分別命名為F2和P2,并保存到軟盤A的根目錄下.
|
圖1
圖2