|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
 |
 |
2005春江蘇省二級VB語言上機1 |
江蘇省高等學校非計算機專業(yè)學生 計算機基礎知識和應用能力等級考試上機試卷（2005春） 二級Visual Basic語言 （試卷代號 VB01） （本試卷完成時間 70分鐘） 【考試須知】 1. 改錯題的界面不作要求，主要用來調試程序，若題目中有參考界面，則僅作參考； 2. 考試結束后，文件必須存放在指定位置，否則適當扣分；考試盤中若無指定文件，則不予評分； 3. 程序代碼書寫應呈鋸齒形。 一、改錯題（14分） 【題目】下面程序功能是：找出100以內滿足N+1個連續(xù)自然數(shù)之和等于其后N個連續(xù)自然數(shù)之和的序列（例如：4+5+6=7+8就是滿足 要求的序列）。 Option Explicit Private Sub Command1_Click() Dim I As Integer,S As String,Flg As Boolean For I=2 To 10 Call Sub1(I,S,Flg) Flg=False If Flg Then Text1=Text1&S&vbCrLf End If Next I End Sub
Private Sub Sub1(K As Integer,S As String,F As Boolean) Dim I As Integer,Sum1 As Integer,Sum2 As Integer Dim N As Integer, Start As Integer Do While Sum1<>Sum2 And N<100 Start=Start+1 N=Start S=N:Sum1=N For I=1 To K-1 N=N+1 Sum1=Sum1+N S=S&"+"&N Next I S=S&"="&N N=N+1 Sum2=N For I=1 To K-2 N=N+1 Sum2=Sum2+N S=S&"+"&N Next I N=N+1 If Sum1=Sum2 Then F=True End If Loop End Sub 【要求】 1. 新建工程，輸入上述代碼，改正程序中的錯誤； 2. 改錯時，不得增加或刪除語句，但可適當調整語句位置； 3. 將窗體文件和工程文件分別命名為F1和P1，并保存到軟盤A的根目錄下。 二、編程題（26分） 【題目】本程序的功能是：按設定的數(shù)據(jù)位數(shù)N（N=2、3、3、4、5、6），隨機生成20個互不相等正整數(shù)，按5個一行的形式輸出到 文本框中，并從中找出所有降序數(shù)輸出到列表框。所謂降序數(shù)是指所有高位數(shù)字都大于其低位數(shù)字的數(shù)。例如973就是一個降序數(shù)。 【編程要求】 1. 程序參考界面如圖所示，編程時不得增加或減少界面對象或改變對象的種類，窗體及界面元素大小適中，且均可見； 2. 在文本框1中輸入N值，按“執(zhí)行”按鈕，則開始計算并在文本框2中顯示生成的隨機數(shù)，在列表框中輸出其中的降序數(shù)；按“清 除”按鈕，則將2個文本框及列表框清空，焦點置于文本框1上；按“退出”按鈕，結束程序運行； 3. 程序中應定義一個用于判斷一個N位數(shù)是否是降數(shù)的通用過程。 【要求】 將窗體文件和工程文件分別命名為F2和P2，并保存到軟盤A的目錄下。 |
