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

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

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

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

【考试须知】

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

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

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

一、改错题（14分）

【题目】下面程序功能是：求出10～99之间所有因子（包括1与该数本身）个数为6的数。

Option Explicit

Private Sub Command1_Click()

    Dim i As Integer,cn() As Integer,s As String,j As Integer

    For i=10 To 99                    //此处插入图片。

        Call cd(i,cn)

        If UBound(cn)=6 Then

            s=CStr(i)&"=>"

            For j=1 To 6

                s=s&Str(cn(i))

            Next j

            s=s&Chr(13)&Chr(10)

        End If

    Next i

    Text1=s

End Sub

Private Sub cn(n As Integer,cn() As Integer)

    Dim i As Integer,k As Integer

    For i=1 To n

        k=k+1

        If n Mod i=0 Then

            ReDim Preserve cn(k)

            cn(k)=i

        End If

    Next i

End Sub

【要求】

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

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

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

二、编程题（26分）

【题目】找出1～100之间所有连续4个或4个以上整数组成的序列，要求序列中每个整数均必须具有两个不同素因子。例如，33（素

因子3，11），34（素因子2，17），35（素因子5，7），36（素因子2，3），故33，34，35，36就符合要求。

【编程要求】

1. 按“开始”按钮，则开始运行程序，将结果按图示格式显示在文本框中；按“清除”按钮，则将文本框清空；按“结束”按钮，

结束程序运行；

2. 程序中至少要有一个通用过程，判断一个数是否有两个不同的素因子。

【要求】

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

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