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

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

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

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

【考试须知】

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

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

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

一、改错题（14分）

【题目】本程序用于验证下列命题：可被37整除的三位整数，其各位数字循环移位后得到的三位数也可被37整除。例如148，481，

841都是这样的数（不考虑含有数字0的三位数）。

Option Explicit

Private Sub Command1_Click()

    Dim n As Integer,p(2) As Integer,j As Integer

    Dim s As String,f As Boolean

    For n=100 To 999                             //此处插入图片。

        Call pnum(n,p,f)

        If f And n Mod 37=0 Then

            s=CStr(n)

            For j=1 To 2

                If p(j) Mod 37 <> 0 Then

                    MsgBox("验证失败")

                    Exit Sub

                Else

                    s=s&Str(p(j))

                End If

             Next j

             List1.AddItem s

        End If

    Next n

End Sub

Private Sub Sub1(n As Integer,p() As Integer,flag As Boolean)

    Dim i As Integer,k As Integer,h As Integer

    flag=False

    If InStr(CStr(n),"0")=0 Then flag=True

    For i=1 To 2

        k=n Mod 10

        h=n\100

        p(i)=Str(k)&Str(h)

        n=p(i)

    Next i

End Sub

【要求】

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

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

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

二、编程题（26分）

【题目】将若干正整数排成圆圈，依次编号（例如26为第一号）。编写程序，找出拐点元素（所谓拐点元素是指它比左右相邻元素

都大或都小），输出拐点元素的值及位置。

【编程要求】

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

2. 按“运行”按钮，则生成由15个无重复数的两位随机整数数列，显示到文本框内；求出该数列中的怪点元素，按示例格式（数据

，位置号）显示在列表框中；按“清除”按钮，则文本框、列表框清空，将焦点置于文本框上；按“退出”按钮，结束程序运行；

3. 程序中应定义一个生成没有重复元素的的两位随机整数数组的通用过程。

【要求】

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