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

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

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

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

[考试须知]

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

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

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

一、改错题（14分）

[题目]下面程序的功能是：在140000至160000之间找出满足以下条件的六位数，该数分别乘以3与4得到的两个六位数，也由同样六个数字组成，只是排列次序不同，本题程序界面如图1。

Option Explicit

Private Sub Command_Click()

       Dim M(0 To 9) As Integer, N(0 To 9) As Integer, F As Long, P As Long

       Dim I As Integer

       List1.AddItem”  F  ” & ” F*3 ” & ” F*4 ”

       For F=140000 To 160000

          Erase  M

          Call  Analyze(F,M)

          Erase  N

       For I=3 To 4

          P=F*I

          If  Len(CSte(P))=6 Then

Call  Analyze(P,N)

            If  Not Compare(M,N) Then Exit For

          Eles

            Exit For

          End If

       Next I

       If I>4 Then List.AddItem F & Str(F*3)&Str(F*4)

       Next F

End Sub

Private Sub Analyze(N As Long, An()  As Interger)

  Dim S As String, I As Intege, Idx As Integer

  S=Str(N)

  For I=I To Len(S)

     Idx=Mid(S,I,I)

     An(Idx)=An(Idx)+1

  Next I

 End Sub

Private Function Compara(a() As Integer, B() As Interger) As Boolean

  Dim I As Integer

  Compare=True

  For I=0 To 9

If a(I) <> B(I) Then Exit Function

Next I

 End Function

[要求]

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

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

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

二、编程题（26分）

[题目]编写程序找出满足

[编程要求]

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

2.       单击“开始”按钮，求出满足条件的M和N值，并按图示格式输出到文本框中；

3.       单击“清除”按钮，则将文本框清空，焦点置于“开始”按钮上；单击“结束”按钮，

结束程序运行；

4.       程序中必须包含一个判断某数是否为素数的通用过程。

[要求]

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

  图1                          图 2