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

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

二级Visual Basic语言（试卷代码VB08）

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

[考试须知]

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

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

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

一．改错题（14分）

[题目]本程序的功能是将无符号二进制数转化为十进制数。本程序界面见图1。

Private Sub Command1_Click()

   Dim st1 As String,st2 As String,n As Integert

   Dim s As String

   S=Text1

   n=InStr(s,”.”)

   If n <>0 Then

       st1=Left(s,n-1)

       st2=Right(s,Len(s)-n-1)

  Else

       st1=s

  End If

  If n<>0 Then

     Text2=cov1(st1) & ”.” & cov2(st2)

  Else

     Text2=cov1(st1)

  End If

End Sub

Private Function cov1(st As String) As Integer

Dim i As Integer, k As Integer

For i=Len(st) To 1 Step -1

   cov1=cov1+Val(Mid(st, i, 1))*2^k

   k=k+1

Next i

End Function

Private Function cov2(st As Integer) As Single

Dim i As Integer, k As Integer

K=-1

For i=1 To Len(st)

   cov2=cov2+Val(Mid(st, i, 1))*2^k

   k=k-1

Next i

End Function

[要求]

1．  新建工程，输入上述代码，改正程序中的错误；

2．  改错时，不得增加或删除语句，但可适当调整语句位置；

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

二．编程题（26分）

[题目]编写程序求1~200之间可以表示为4n+1形式并等于两个平方数之和的所有素数。

[编程要求]

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

2．  单击“运行”按钮，求出满足条件的素数，并按图示格式输出到列表框；

3．  单击“清除”按钮，则将列表框清空，焦点置于“运行”按钮上；单击“结束”按钮，结束程序运行；

4．  程序中必须包含一个将某种数表示成两个平方数之和的通用过程。

[要求]

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

图1

图2