vb上机02.docVIP

江苏省高等学校非计算机专业学生 计算机基础知识和应用能力等级考试上机试卷 二级Visual Basic语言（试卷代号VB02） 一．改错题（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 K0 And K15 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 K0 S=K Mod 2S K=k\2 Loop S=”0000”S Bin=Right(S,4) End Sub 图1[要求] 1.新建工程，输入上述代码，改正程序中的错误； 2.改错时，不得增加或删除语句，但可适当调整语句位置； 3.将窗体文件和工程文件分别命名为F1和P1，并保存到考生目录下。 二．编程题（26分） [题目]编写程序，找出由1，2，3，4四个不同数字组成的4位整数中的素数。 [编程要求] 1程序参考界面如图2所示，编程时不得增加或减少界面对象或改变对象的种类，窗体及界面元素大小适中，且均可见； 2单击“开始”按钮，生成（或筛选出）由1，2，3，4四个数字组成的4位整数，并显示在列表框List1中，在列表框List2中显示其中的素数； 3单击“清理”按钮，则将两个列表框清空；单击“退出”按钮，结束程序运行； 4程序中必须包含一个判断某数是否为素数的通用过程。 [要求] 将窗体文件和工程文件分别命名为F2和P2，并保存到考生目录下。 图2