|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
 |
 |
江蘇省二級(jí)2005秋vb上機(jī)（5） |
江蘇省高等學(xué)校非計(jì)算機(jī)專業(yè)學(xué)生 計(jì)算機(jī)基礎(chǔ)知識(shí)應(yīng)用能力等級(jí)考試上機(jī)試卷(2005秋) 二級(jí)Visual Basic語(yǔ)言(試卷代號(hào)VB05) (本試卷完成時(shí)間 70分鐘) [考試須知] 1. 改錯(cuò)題的界面不作要求,主要用來(lái)調(diào)試程序,若題目中有參考界面,則僅作參考; 2. 考試結(jié)束后,文件須存放在指定位置,否則適當(dāng)扣分;考試盤中若無(wú)指定文件,則不予評(píng)分; 3. 程序代碼書寫應(yīng)成鋸齒形。 一、改錯(cuò)題（14分） [題目]下面程序的功能是:找出所有各位數(shù)字互不相同的四位數(shù),該數(shù)本身為素?cái)?shù),且各位數(shù)字均為素?cái)?shù).本題界面見(jiàn)圖1. Dim a(4)As Integer Private Sub Command1-Click() Dim n As Integer For n = 1000 To 9999 If pirme(n) And pf (n) And np (a) Then List1.AddTtem n End If Next n End Sub Private Function prime(n As Integer) As Boolean Dim I As Integer For I = 2 To Sqr(n) If n Mod I = 0 Then Exit For Next I Prime = True End Function Private Function pf(n As Integer) As Boolean Dim I As Integer Pf = True Do I = I +1 a(i) =n Mod 10 If a(i) < 2or Not prime(a(i)) Then pf = False n = n\10 Loop Until n < 0 End Function Private Function np(a() As Integer) As Boolean Dim I As Integer, j As Integer np = True For I = 1 To Ubound(a)-1 For j = I+1 To Ubound(a) If a(i) = a(j) Then np = False Next j Next I End Function [要求] 1. 新建工程,輸入上述代碼,改正程序中的錯(cuò)誤; 2. 改錯(cuò)時(shí),不得增加或刪除語(yǔ)句,但可適當(dāng)調(diào)整語(yǔ)句位置; 3. 將窗體文件和工程文件分別命名為F1和P1,并保存到軟盤A的根目錄下. 二、編程題(26) [題目]編寫程序找出最小公倍數(shù)是9828的3個(gè)連續(xù)的自然數(shù). [編程要求] 1. 程序參考界面如圖2所示,編程時(shí)不得增加或減少界面對(duì)象或改變對(duì)象的種類,窗體及界面元素大小適中,且均可見(jiàn).; 2. 單擊”運(yùn)行”按鈕,找出符合條件的3個(gè)連續(xù)的自然數(shù),按圖示格式輸出到文本框中; 3. 單擊”清楚”按鈕,則將文本框清空,焦點(diǎn)置于”運(yùn)行”按鈕;單擊”推出”按鈕,結(jié)束程序運(yùn)行; 4. 程序中必須包含一個(gè)求最小公倍數(shù)的通用過(guò)程. [要求] 將窗體文件和工程文件分別命名為F2和P2,并保存到軟盤A的根目錄下.
圖1 圖2 |
