|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
 |
 |
2005秋vb上機(jī)（2） |
江蘇省高等學(xué)校非計(jì)算機(jī)專業(yè)學(xué)生 計(jì)算機(jī)基礎(chǔ)知識(shí)和應(yīng)用能力登記考試上機(jī)試卷（2005年秋） 二級(jí)Visual Basic 語(yǔ)言（試卷代號(hào) VB02） （本試卷完成時(shí)間 70分鐘） [考試須知] 1改錯(cuò)題的界面不作要求，主要用來(lái)調(diào)試程序，若題目中有參考界面，則僅作參考； 2考試結(jié)束后，文件必須存放在指定位置，否則適當(dāng)扣分；考試盤中若無(wú)指定文件，則不予評(píng)分； 3程序代碼書(shū)面程序應(yīng)呈鋸齒形。 一．改錯(cuò)題（14分） [題目]下面程序的功能是將給定的十六進(jìn)制整數(shù)轉(zhuǎn)換成二進(jìn)制整數(shù)（刪除高位0）。本題程序界面見(jiàn)圖1。 Option Explicit Private Sub Command1_Click() Dim H As String,Bin As String,I As Integer,I As Integer Dim K As Integer,S As String*1 H=UCase(Trim(Text1)) L=Len(H) For I=1 To L S=Mid(H,I,1) If S<=”9” And S>=”0” Then K=Val(S) Else K=Asc(S)-55 End If If K<0 And K>15 Then Bin=“十六進(jìn)制數(shù)據(jù)錯(cuò)” End If Call Trans(Bin,K) Next I Bin=Right（Bin，Len(Bin)—InStr(Bin,”1”)） Text2=Bin End Sub Private Sub Trans(Bin As String,K As Integer) Dim S As String,I As Integer,N As Integer Do While K>0 S=K Mod 2&S K=k\2 Loop S=”0000”&S Bin=Right(S,4) End Sub [要求] 2改錯(cuò)時(shí)，不得增加或刪除語(yǔ)句，但可適當(dāng)調(diào)整語(yǔ)句位置； 3將窗體文件和工程文件分別命名為F1和P1，并保存到軟盤A的根目錄下。 二．編程題（26分） [題目]編寫程序，找出由1，2，3，4四個(gè)不同數(shù)字組成的4位整數(shù)中的素?cái)?shù)。 [編程要求] 1程序參考界面如圖2所示，編程時(shí)不得增加或減少界面對(duì)象或改變對(duì)象的種類，窗體及界面元素大小適中，且均可見(jiàn)； 2單擊“開(kāi)始”按鈕，生成（或篩選出）由1，2，3，4四個(gè)數(shù)字組成的4位整數(shù)，并顯示在列表框List1中，在列表框List2中顯示其中的素?cái)?shù)； 3單擊“清理”按鈕，則將兩個(gè)列表框清空；單擊“退出”按鈕，結(jié)束程序運(yùn)行； 4程序中必須包含一個(gè)判斷某數(shù)是否為素?cái)?shù)的通用過(guò)程。 [要求] 將窗體文件和工程文件分別命名為F2和P2，并保存到軟盤A的根目錄下。
|
圖1
圖2