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

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

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

       (本试卷完成时间70分钟)

[考试须知]

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

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

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

一．改错题（14分）

[题目]下面程序的功能是，找出1~300之间的三个相临整数N ，N+1和N+2，且每个整数均为两个素数的乘积。本题程序界面如图1。

Option Explict

Private Sub Command1-click()

Dim p() as Integer ,I As Integer,N(3) As Integer

Call Prime (P,150)

For I=1 to 300

  If Compare (P,I)Then

  List 1.Additem I &”,”&I+1&”,” & I+2

End if

 Next I

End sub

Private Sub Prime (p () As Integer ,N As Integer )

      Dim I As Integer ,K As Integer ,Idx As Integer

      For I =2 to N

          For K=2 to sqr(I)

              If I Mod K = 0 Then Exit For

          Next k

If  k >sqr(I) Then

  Idx=Idx +1

  ReDim p(Idx)

  P(Idx)=I

End if

Next I

End sub

Private Function Compare (p()As Integer)As Boolean

  Dim I As Integer ,J As Integer ,k As Integer ,Flg As Boolean

  For k = 1 to 3

  I=1

Do While I < =Ubound (p)

 For J=1 to Ubound (p)

   If A =P(I)*p(J) Then Exit Do

Next J

I=I+1

Loop

If J>UBound(p) Then Exit For

A=A+1

Next k

Compare =True

  End Function

[要求]

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

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

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

二．编程题（26分）

[题目]编写程序求给定正整数的所有因子及所有因子的倒数之和。

[编程要求]

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

2．  运行程序，在文本框1中输入测试数据，单击“运行”按纽，求出其所有因子及所有因子的倒数和，按图示格式输出到多行文本框2中（结果要进行约分）；

3．  单击“清除”按纽，则将两个文本框清空，焦点置于文本狂1上；

4．  程序中必须包含一个求其正整数所有因子倒数之和的通用过程。

[要求]

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

图 1                        图 2