《2007年上海市高等学校计算机等级考试测试卷》由会员分享，可在线阅读，更多相关《2007年上海市高等学校计算机等级考试测试卷（16页珍藏版）》请在金锄头文库上搜索。
1、20072007 年上海市高等学校计算机等级考试测试卷年上海市高等学校计算机等级考试测试卷2007 年上海市高等学校计算机等级考试测试卷二级（Visual Basic 程序设计）(A 卷)一、选择题1.Visual Basic 是一种面向对象的程序设计语言，_ 不是面向对象系统所包含的三要素。A.变量 B.事件C.属性 D.方法2.要求改变窗体的标题内容，应当通过窗体的_属性来实现。A.Caption B.NameC.Text D.Label3.为了使文本框同时具有水平和垂直滚动条，应先把 MultiLine 属性设置为 True，然后再把 ScrollBars 属性设置为_ 。A.0 B.1
2、C.2 D.34.要使 Print 方法在 Form_Load 事件中起作用，要对窗体的_属性进行设置。A.ForeColor B.CaptionC.BackColor D.AutoRedraw5.下面所列的控件中，其值既能在程序设计时设定，又能在程序运行时通过赋值改变的是_。A.Drive1.Drive B.Text1.VisibleC.Dir1.Path D.List1.Sorted6.下列控件中无法响应 Click 事件的是_。A.驱动器列表框 B.文本框C.标签 D.时钟7.在 Visual Basic 代码中，将多个语句合并在一行上的并行符是_ 。A.撇号（） B.冒号（：）C.感叹
3、号（！） D.问号（?）8.语句 If x=1 Then y=1，下列说法正确的是_。A.x=1 和 y=1 为赋值语句 B.x=1 和 y=1 均为关系表达式C.x=1 为关系表达式，y=1 为赋值语句 D.x=1 为赋值语句，y=1 为关系表达式9.在默认状态下，若有数组声明：Dim c(3, 4 To 5) As Integer,下面数组元素引用中正确的是 _ 。A.c(1,2) B.c(0,5)C.c(4) D.c(4,4)10.在过程 A 中定义了静态变量 y。当调用过程 A 后，在退出过程A 时，y 的值为 5。请问，下次再进入过程 A 时，y 的值为_。A.不定值 B.5C.0
4、D.无定义出错11.根据变量的作用域，可以将变量分为三类，它们是_A.局部变量、窗体/模块级变量和标准变量 B.局部变量、窗体/模块级变量和全局变量C.局部变量、模块变量和标准变量 D.局部变量、窗体变量和全局变量12.复选框对象是否被选中，是由其_ 属性决定的。A.Caption B.NameC.Value D.Enabled13.要使图像框可以自动调整图形的大小，则需设置_属性。A.Stretch B.AppearanceC.Autosize D.AutoRedraw14.执行命令 Circle（600，600） ，500， ， ， ，3 将绘制_。A.圆 B.圆弧C.椭圆 D.扇形15.
5、结构化程序由三种基本结构组成，下面属于三种基本结构之一的是_。A.递归结构 B.循环结构C.过程结构 D.输入输出结构二、填充题1.下面的程序段实现的功能是：当在文本框中输入整数 n 时，在窗体上输出 n+1 行图形。Private Sub Command1_Click()Clsn = Val(Text1)For i = (1) Step -1Print Tab(9 - i); “#“; Spc(i - 1); “#“; Spc(i - 1); “#“Next iPrint (2) End Sub2.在程序设计中，将文本框控件 Text1 用作输入密码，当键盘上按任一键时，都显示“*“，需要设
6、置_ 属性。3.表达式 20 / 4 - 3 2 * 6 2 mod 7 2 的值是_。4.在窗体上画一个名称为 Text1 的文本框和一个名称为 Command1 的命令按钮，然后编写如下事件过程：Private Sub Command1_Click()Dim a%(10, 10)Dim i%, j%For i = 1 To 3For j = 2 To 4a(i, j) = i + jNext jNext iText1.Text = a(2, 3) + a(3, 4)End Sub程序运行后，单击命令按钮，在文本框中显示的值是_。5.ReDim 语句用于确定_ 数组的大小。6.在窗体上画一个
7、名称为 Command1 的命令按钮和一个名称为 Text1的文本框，然后编写如下程序：Private Sub Command1_Click()Dim x,y,z As Integerx=5: y=7: z=0Text1.Text=x str1;End IfNext j_(5)_Next iEnd Sub2. 本程序的功能是用于判断通过输入对话框输入的正整数是否为降序数。判断结果显示在标签框 Lable1 中。设正整数 n=d1d2.dm，如果 di+1di（i=1,2,m-1） ，则n 是一个降序数（即左边的数字大于等于右边的数字） ，如：321，8844 是降序数，而 2435 不是降序数
8、。Option ExplicitPrivate Sub Command1_Click()Dim i%, n As String, flag As Booleann = _(1)_ 通过对话框输入数据flag = FalseFor i = Len(n) _(2)_ Len(n)测试字符串长度If _(3)_ Mid(n, i - 1, 1) Then 判断flag = _(4)_ 设置判断标记Exit ForEnd IfNext iIf _(5)_ Then Label1.Caption = n “#“For i = 1 To (1) Print Tab(9-i); “#“; Spc(i - 1
9、); “#“; Spc(i - 1); “#“Next iEnd Sub3.表达式 Mid(“abcdefgh“,3,4) 的值是_ 。4.在窗体上画一个名称为 Command1 的命令按钮，然后编写如下程序：Private Sub Command1_Click()Dim i%, j%, s%For i = 1 To 2For j = 1 To 2s = s + (i - 1) * 2 + jNext jNext iPrint sEnd Sub程序运行后，单击命令按钮，窗体上显示的是_。5.下面程序段的功能是数组 x 中有 10 个元素，查找数组中最小元素的下标 imin。Dim x%()x=
10、Array(1,-5,7,4,3,2,9,0,-1,5)imin=0For k=1 To 9If x(k) (1) Then (2) Next kPrint imin6.在 Visual Basic 中声明静态变量的关键字是_。7.如果窗体上已编辑好菜单，为了能在窗体上使用右键弹出菜单，可在窗体的 MouseUp 事件中通过其参数 Button= _来判断已经按下了鼠标的右键。8.已知窗体 Form1 的 CurrentX = 400，执行了命令 Line Step(200, 200) - Step (500, 400)后，CurrentX 的值为_ 。9.单选框的文本标题是通过_属性设置的。
11、三、程序填充1.以下程序的功能是数据移动。每单击“变换矩阵“按钮一次，可将矩阵循环上移一行，第一行元素换到最后一行。程序运行界面如图所示。Form_ Activate()事件：用 116 的自然数生成 1 个 44 按自然排列的二维矩阵，并输出到 Picture1 上；moveline() 子过程：循环上移矩阵一行；Command1_Click 事件过程：调用 moveline()子过程，并在Picture2 上输出结果。Option ExplicitDim s(4, 4)Private Sub Form_Activate()Dim i%,j%Picture1.Print “生成原始矩阵：“
12、s(i, j);Next jPicture1.PrintNext iEnd SubPublic Sub moveline(a()Dim i%, j%, t%(1 To 4) Picture2.ClsPicture2.Print “变换后的矩阵：“ a(i, j);Next jPicture2.PrintNext iEnd Sub2. 下列代码实现插入排序。在文本框输入一个数, 按回车键后，调用 Insert()子过程，将数插入到数组中，使得数组中的各元素保持升序，并显示。Form_ Activate()事件形成原始升序数据；Insert() 子过程将数据 x 插入到数 b()某位置上；Text1_KeyPress 事件过程在按回车键后调用 Insert()子过程，显示结果。Option ExplicitDim a() a 数组在各过程中共享Private Sub Form_Activate()Dim i%a = Array(2, 7, 10)Print “原始数据“For i = 0 To 2 ： Print a(i); ： Next iPrintEnd SubPrivate Sub
