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

计算机基础知识应用能力等级考试上机试卷(2005秋)

二级Visual Basic语言(试卷代号VB06)

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

[考试须知]

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

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

3.      程序代码书写应成锯齿形。

一、改错题（14分）

[题目]下面程序的功能是:将给定的字符串中的数字字符筛选出来,依次组成若干个两位整数;并求出它们的最大公约数.本题程序界面见图1.

Option Explicit

Private Sub Command1_Click()

  Dim A () As Integer,I As Integer, Ch As String

  Dim j As Integer,G As Integer , Id As Integer

  Dim S As String, St As String

  S = “36a487b2541224301842e72”

  Text = S

   For I = 1 To Len(S)

If Mid(S, I , 1)

   Ch = Ch & Mid(S , I, 1)

End If

If Len(Ch) = 2 Then

   Id = Id + 1

   ReDim Preserve A(Id)

   A(Is) = Ch

   Text2 = Text2 & Str(A(Id))

End IF

Ch =” ”

         Next I

         G = A(1)

         For I = 2 To Id

G=Gcd(G, A(I))

         Next I

         Text2 = Text2 & vbCrLf & “ “ &vbCrLf & “以上数据的最大公约数是: ” & G

        End Sub

  Private Function Gcd(N As Integer, M As Integer)

Dim R As Integer

R = N Mod M

If R<> 0 Then

  Gcd = Gcd(M, R)

Else

   Gcd = R

  End If

   End Function

 [要求]

1.       新建工程,输入上述代码,改正程序中的错误;

2.       改错时,不得增加或删除语句,但可适当调整语句位置;

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

二、编程题(26分)

[题目]编写程序找出倒数之和等于19/20的四个连续的自然数.

[编程要求]

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

2.       单击”运行”按钮,找出倒数之和等于19/20的四个连续的自然数,并按图示格式显示在多行文本框中;

3.       单击”清除”按钮,则将文本框清空;单击”退出”按钮,结束程序运行;

4.       程序中必须包含一个求四个连续的自然数倒数之和的通用过程.

[要求]

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

图1图2