|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
 |
 |
江蘇省計(jì)算機(jī)二級2005年秋vb上機(jī)（3） |
江蘇省高等學(xué)校非計(jì)算機(jī)專業(yè)學(xué)生 計(jì)算機(jī)基礎(chǔ)知識和應(yīng)用能力等級考試上機(jī)試卷（2005秋） 二級Visual Basic語言（試卷代號VB03） （本試卷完成時間 70分鐘） [考試須知] 1. 改錯題的界面不作要求，主要用來調(diào)試程序，若題目中有參考界面，則僅作參考； 2. 考試結(jié)束后，文件必須存放在指定位置，否則適當(dāng)扣粉；考試盤中若無指定文件，則不予評分； 3. 程序代碼書寫應(yīng)呈鋸齒形。 一、改錯題（14分） [題目]下面程序的功能是：從由2，4，5，7四個數(shù)字組成的沒有重復(fù)數(shù)字的24個四位數(shù)中，找出一個具有倍數(shù)關(guān)系的四位數(shù)對。本題程序界面如圖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. 改錯時，不得增加或刪除語句，但可適當(dāng)調(diào)整語句位置； 3. 將窗體文件和工程文件分別命名為F1和P1，并保存到軟盤A的根目錄下 二、編程題（26分） [題目]編寫程序：生成兩個等差數(shù)列A={3，10，17，24，31，……，108}與B={3，8，13，18，23，……，108}，再找出兩個數(shù)列中的相同項(xiàng)。 [編程要求] 1. 程序參考界面如圖2所示，編程時不得增加或減少界面對象或改變對象的種類，窗體及界面元素大小適中，且均可見； 2. 單擊“運(yùn)行”按鈕，生成這兩個數(shù)列，分別輸出到多行文本框1與多行文本框2中，找出兩個數(shù)列中的相同項(xiàng)，并輸出到文本框3中； 3. 單擊“清除”按鈕，則將文本框清空，并將焦點(diǎn)置于“運(yùn)行”按鈕上；單擊“結(jié)束”按鈕，結(jié)束程序運(yùn)行； 4. 程序中必須包含一個生成等差數(shù)列的通用過程。 [要求] 將窗體文件和工程文件分別命名為F2和P2，并保存到軟盤A的根目錄下
圖1 圖2 |
