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

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

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

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

[考试须知]

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

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

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

一、改错题（14分）

[题目]下面程序的功能是：从由2，4，5，7四个数字组成的没有重复数字的24个四位数中，找出一个具有倍数关系的四位数对。本题程序界面如图1。

Option Explicit

Private Sub Compare(A() As Integer,S As String,Idx As Integer

Dim I As Integer, J As Integer

For I=1 To Idx

    For J=1 To Idx

        If A(I) Mod A(J)=0 Or J<> I Then

             S =A(I)&”是”&A(J) &”的”&A(I)\A(J)&”倍”&vbCrLf

             Exit Sub

        End If

    Next J

Next I

End Sub

Private Sub Command_Click()

Dim N(100 ) As Integer, I As Integer, S As String,Idx As Integer

Dim J As Integer, Ch As String*1,K As Integer

For I=2457 To 7542

   S=Str(I)

For J=1 To 4

   Ch=Mid(S,J,I)

   If Ch <>”2” And Ch<>”5” And Ch <> “7” Then Exit For

   K=J

   Do Until K>4

     If Ch=Mid(S,K,I) Then Exit For

           K=K+1

         Loop

Next J

If J>4 Then

  Idx=Idx+1

  N(Idx)=1

  List.AddItem I

End If

Next I

  Call Compare(N,S,Idx)

  End Sub

[要求]

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

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

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

二、编程题（26分）

[题目]编写程序：生成两个等差数列A={3，10，17，24，31，……，108}与B={3，8，13，18，23，……，108}，再找出两个数列中的相同项。

[编程要求]

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

2.       单击“运行”按钮，生成这两个数列，分别输出到多行文本框1与多行文本框2中，找出两个数列中的相同项，并输出到文本框3中；

3.       单击“清除”按钮，则将文本框清空，并将焦点置于“运行”按钮上；单击“结束”按钮，结束程序运行；

4.       程序中必须包含一个生成等差数列的通用过程。

[要求]

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

图1                               图2