|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
 |
 |
2005秋vb上機（2） |
江蘇省高等學校非計算機專業(yè)學生 計算機基礎知識和應用能力登記考試上機試卷（2005年秋） 二級Visual Basic 語言（試卷代號 VB02） （本試卷完成時間 70分鐘） [考試須知] 1改錯題的界面不作要求，主要用來調(diào)試程序，若題目中有參考界面，則僅作參考； 2考試結(jié)束后，文件必須存放在指定位置，否則適當扣分；考試盤中若無指定文件，則不予評分； 3程序代碼書面程序應呈鋸齒形。 一．改錯題（14分） [題目]下面程序的功能是將給定的十六進制整數(shù)轉(zhuǎn)換成二進制整數(shù)（刪除高位0）。本題程序界面見圖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=“十六進制數(shù)據(jù)錯” 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改錯時，不得增加或刪除語句，但可適當調(diào)整語句位置； 3將窗體文件和工程文件分別命名為F1和P1，并保存到軟盤A的根目錄下。 二．編程題（26分） [題目]編寫程序，找出由1，2，3，4四個不同數(shù)字組成的4位整數(shù)中的素數(shù)。 [編程要求] 1程序參考界面如圖2所示，編程時不得增加或減少界面對象或改變對象的種類，窗體及界面元素大小適中，且均可見； 2單擊“開始”按鈕，生成（或篩選出）由1，2，3，4四個數(shù)字組成的4位整數(shù)，并顯示在列表框List1中，在列表框List2中顯示其中的素數(shù)； 3單擊“清理”按鈕，則將兩個列表框清空；單擊“退出”按鈕，結(jié)束程序運行； 4程序中必須包含一個判斷某數(shù)是否為素數(shù)的通用過程。 [要求] 將窗體文件和工程文件分別命名為F2和P2，并保存到軟盤A的根目錄下。
|
圖1
圖2