江苏省高等学校非计算机专业学生

计算机基础知识和应用能力登记考试上机试卷（2005年秋）

二级Visual Basic 语言（试卷代号 VB02）

（本试卷完成时间  70分钟）

[考试须知]

1改错题的界面不作要求，主要用来调试程序，若题目中有参考界面，则仅作参考；

2考试结束后，文件必须存放在指定位置，否则适当扣分；考试盘中若无指定文件，则不予评分；

3程序代码书面程序应呈锯齿形。

一．改错题（14分）

[题目]下面程序的功能是将给定的十六进制整数转换成二进制整数（删除高位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=“十六进制数据错”

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改错时，不得增加或删除语句，但可适当调整语句位置；

3将窗体文件和工程文件分别命名为F1和P1，并保存到软盘A的根目录下。

二．编程题（26分）

[题目]编写程序，找出由1，2，3，4四个不同数字组成的4位整数中的素数。

[编程要求]

1程序参考界面如图2所示，编程时不得增加或减少界面对象或改变对象的种类，窗体及界面元素大小适中，且均可见；

2单击“开始”按钮，生成（或筛选出）由1，2，3，4四个数字组成的4位整数，并显示在列表框List1中，在列表框List2中显示其中的素数；

3单击“清理”按钮，则将两个列表框清空；单击“退出”按钮，结束程序运行；

4程序中必须包含一个判断某数是否为素数的通用过程。

[要求]

将窗体文件和工程文件分别命名为F2和P2，并保存到软盘A的根目录下。

图1

图2