|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
 |
 |
2005春江蘇省等級(jí)考試二級(jí)VB語(yǔ)言上機(jī)4 |
江蘇省高等學(xué)校非計(jì)算機(jī)專業(yè)學(xué)生 計(jì)算機(jī)基礎(chǔ)知識(shí)和應(yīng)用能力等級(jí)考試上機(jī)試卷（2005春） 二級(jí)Visual Basic語(yǔ)言 （試卷代號(hào) VB04） （本試卷完成時(shí)間 70分鐘） 【考試須知】 1. 改錯(cuò)題的界面不作要求，主要用來(lái)調(diào)試程序，若題目中有參考界面，則僅作參考； 2. 考試結(jié)束后，文件必須存放在指定位置，否則適當(dāng)扣分；考試盤(pán)中若無(wú)指定文件，則不予評(píng)分； 3. 程序代碼書(shū)寫(xiě)應(yīng)呈鋸齒形。 一、改錯(cuò)題（14分） 【題目】本程序用于驗(yàn)證下列命題：可被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("驗(yàn)證失敗") 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. 新建工程，輸入上述代碼，改正程序中的錯(cuò)誤； 2. 改錯(cuò)時(shí)，不得增加或刪除語(yǔ)句，但可適當(dāng)調(diào)整語(yǔ)句位置； 3. 將窗體文件和工程文件分別命名為F1和P1，并保存到軟盤(pán)A的根目錄下。 二、編程題（26分） 【題目】將若干正整數(shù)排成圓圈，依次編號(hào)（例如26為第一號(hào)）。編寫(xiě)程序，找出拐點(diǎn)元素（所謂拐點(diǎn)元素是指它比左右相鄰元素 都大或都�。�，輸出拐點(diǎn)元素的值及位置。 【編程要求】 1. 程序參考界面如圖所示，編程時(shí)不得增加或減少界面對(duì)象或改變對(duì)象的種類，窗體及界面元素大小適中，且均可見(jiàn)； 2. 按“運(yùn)行”按鈕，則生成由15個(gè)無(wú)重復(fù)數(shù)的兩位隨機(jī)整數(shù)數(shù)列，顯示到文本框內(nèi)；求出該數(shù)列中的怪點(diǎn)元素，按示例格式（數(shù)據(jù) ，位置號(hào)）顯示在列表框中；按“清除”按鈕，則文本框、列表框清空，將焦點(diǎn)置于文本框上；按“退出”按鈕，結(jié)束程序運(yùn)行； 3. 程序中應(yīng)定義一個(gè)生成沒(méi)有重復(fù)元素的的兩位隨機(jī)整數(shù)數(shù)組的通用過(guò)程。 【要求】 將窗體文件和工程文件分別命名為F2和P2，并保存到軟盤(pán)A的目錄下。
|
