|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
 |
 |
2005春江蘇省等級考試二級VB語言上機4 |
江蘇省高等學(xué)校非計算機專業(yè)學(xué)生 計算機基礎(chǔ)知識和應(yīng)用能力等級考試上機試卷（2005春） 二級Visual Basic語言 （試卷代號 VB04） （本試卷完成時間 70分鐘） 【考試須知】 1. 改錯題的界面不作要求，主要用來調(diào)試程序，若題目中有參考界面，則僅作參考； 2. 考試結(jié)束后，文件必須存放在指定位置，否則適當(dāng)扣分；考試盤中若無指定文件，則不予評分； 3. 程序代碼書寫應(yīng)呈鋸齒形。 一、改錯題（14分） 【題目】本程序用于驗證下列命題：可被37整除的三位整數(shù)，其各位數(shù)字循環(huán)移位后得到的三位數(shù)也可被37整除。例如148，481， 841都是這樣的數(shù)（不考慮含有數(shù)字0的三位數(shù)）。 Option Explicit Private Sub Command1_Click() Dim n As Integer,p(2) As Integer,j As Integer Dim s As String,f As Boolean For n=100 To 999 //此處插入圖片。 Call pnum(n,p,f) If f And n Mod 37=0 Then s=CStr(n) For j=1 To 2 If p(j) Mod 37 <> 0 Then MsgBox("驗證失敗") Exit Sub Else s=s&Str(p(j)) End If Next j List1.AddItem s End If Next n End Sub
Private Sub Sub1(n As Integer,p() As Integer,flag As Boolean) Dim i As Integer,k As Integer,h As Integer flag=False If InStr(CStr(n),"0")=0 Then flag=True For i=1 To 2 k=n Mod 10 h=n\100 p(i)=Str(k)&Str(h) n=p(i) Next i End Sub 【要求】 1. 新建工程，輸入上述代碼，改正程序中的錯誤； 2. 改錯時，不得增加或刪除語句，但可適當(dāng)調(diào)整語句位置； 3. 將窗體文件和工程文件分別命名為F1和P1，并保存到軟盤A的根目錄下。 二、編程題（26分） 【題目】將若干正整數(shù)排成圓圈，依次編號（例如26為第一號）。編寫程序，找出拐點元素（所謂拐點元素是指它比左右相鄰元素 都大或都�。敵龉拯c元素的值及位置。 【編程要求】 1. 程序參考界面如圖所示，編程時不得增加或減少界面對象或改變對象的種類，窗體及界面元素大小適中，且均可見； 2. 按“運行”按鈕，則生成由15個無重復(fù)數(shù)的兩位隨機整數(shù)數(shù)列，顯示到文本框內(nèi)；求出該數(shù)列中的怪點元素，按示例格式（數(shù)據(jù) ，位置號）顯示在列表框中；按“清除”按鈕，則文本框、列表框清空，將焦點置于文本框上；按“退出”按鈕，結(jié)束程序運行； 3. 程序中應(yīng)定義一個生成沒有重復(fù)元素的的兩位隨機整數(shù)數(shù)組的通用過程。 【要求】 將窗體文件和工程文件分別命名為F2和P2，并保存到軟盤A的目錄下。
|
