|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
 |
 |
江蘇省計算機二級2005年秋vb上機（3） |
江蘇省高等學校非計算機專業(yè)學生 計算機基礎知識和應用能力等級考試上機試卷（2005秋） 二級Visual Basic語言（試卷代號VB03） （本試卷完成時間 70分鐘） [考試須知] 1. 改錯題的界面不作要求，主要用來調試程序，若題目中有參考界面，則僅作參考； 2. 考試結束后，文件必須存放在指定位置，否則適當扣粉；考試盤中若無指定文件，則不予評分； 3. 程序代碼書寫應呈鋸齒形。 一、改錯題（14分） [題目]下面程序的功能是：從由2，4，5，7四個數字組成的沒有重復數字的24個四位數中，找出一個具有倍數關系的四位數對。本題程序界面如圖1。 Option Explicit Private Sub Compare(A() As Integer,S As String,Idx As Integer Dim I As Integer, J As Integer For I=1 To Idx For J=1 To Idx If A(I) Mod A(J)=0 Or J<> I Then S =A(I)&”是”&A(J) &”的”&A(I)\A(J)&”倍”&vbCrLf Exit Sub End If Next J Next I End Sub Private Sub Command_Click() Dim N(100 ) As Integer, I As Integer, S As String,Idx As Integer Dim J As Integer, Ch As String*1,K As Integer For I=2457 To 7542 S=Str(I) For J=1 To 4 Ch=Mid(S,J,I) If Ch <>”2” And Ch<>”5” And Ch <> “7” Then Exit For K=J Do Until K>4 If Ch=Mid(S,K,I) Then Exit For K=K+1 Loop Next J If J>4 Then Idx=Idx+1 N(Idx)=1 List.AddItem I End If Next I Call Compare(N,S,Idx) End Sub [要求] 1. 新建工程，輸入上述代碼，改正程序中的錯誤； 2. 改錯時，不得增加或刪除語句，但可適當調整語句位置； 3. 將窗體文件和工程文件分別命名為F1和P1，并保存到軟盤A的根目錄下 二、編程題（26分） [題目]編寫程序：生成兩個等差數列A={3，10，17，24，31，……，108}與B={3，8，13，18，23，……，108}，再找出兩個數列中的相同項。 [編程要求] 1. 程序參考界面如圖2所示，編程時不得增加或減少界面對象或改變對象的種類，窗體及界面元素大小適中，且均可見； 2. 單擊“運行”按鈕，生成這兩個數列，分別輸出到多行文本框1與多行文本框2中，找出兩個數列中的相同項，并輸出到文本框3中； 3. 單擊“清除”按鈕，則將文本框清空，并將焦點置于“運行”按鈕上；單擊“結束”按鈕，結束程序運行； 4. 程序中必須包含一個生成等差數列的通用過程。 [要求] 將窗體文件和工程文件分別命名為F2和P2，并保存到軟盤A的根目錄下
圖1 圖2 |
