2007年上海市高等学校计算机等级考试测
试卷
云南省高中会考试卷哪里下载南京英语小升初试卷下载电路下试卷下载上海试卷下载口算试卷下载
二级（Visual Basic程序设计）(A卷)
一、选择
题
快递公司问题件快递公司问题件货款处理关于圆的周长面积重点题型关于解方程组的题及答案关于南海问题
1.Visual Basic是一种面向对象的程序设计语言，______ 不是面向对象系统所包含的三要素。
A.变量 B.事件
C.属性 D.方法
2.
要求
对教师党员的评价套管和固井爆破片与爆破装置仓库管理基本要求三甲医院都需要复审吗
改变窗体的标题内容，应当通过窗体的______属性来实现。
A.Caption B.Name
C.Text D.Label
3.为了使文本框同时具有水平和垂直滚动条，应先把 MultiLine 属性设置为 True，然后再把 ScrollBars 属性设置为______ 。
A.0 B.1
C.2 D.3
4.要使Print方法在Form_Load事件中起作用，要对窗体的_____属性进行设置。
A.ForeColor B.Caption
C.BackColor D.AutoRedraw
5.下面所列的控件中，其值既能在程序设计时设定，又能在程序运行时通过赋值改变的是________。
A.Drive1.Drive B.Text1.Visible
C.Dir1.Path D.List1.Sorted
6.下列控件中无法响应Click事件的是________。
A.驱动器列表框 B.文本框
C.标签 D.时钟
7.在Visual Basic代码中，将多个语句合并在一行上的并行符是________ 。
A.撇号（'） B.冒号（：）
C.感叹号（！） 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.5
C.0 D.无定义出错
11.根据变量的作用域，可以将变量分为三类，它们是__________
A.局部变量、窗体/模块级变量和标准变量 B.局部变量、窗体/模块级变量和全局变量
C.局部变量、模块变量和标准变量 D.局部变量、窗体变量和全局变量
12.复选框对象是否被选中，是由其_______ 属性决定的。
A.Caption B.Name
C.Value D.Enabled
13.要使图像框可以自动调整图形的大小，则需设置_________属性。
A.Stretch B.Appearance
C.Autosize D.AutoRedraw
14.执行命令 Circle（600，600），500，，，，3 将绘制_______。
A.圆 B.圆弧
C.椭圆 D.扇形
15.结构化程序由三种基本结构组成，下面属于三种基本结构之一的是______。
A.递归结构 B.循环结构
C.过程结构 D.输入输出结构
二、填充题
1.下面的程序段实现的功能是：当在文本框中输入整数n时，在窗体上输出 n+1 行图形。
Private Sub Command1_Click()
Cls
n = Val(Text1)
For i = (1) Step -1
Print Tab(9 - i); "#"; Spc(i - 1); "#"; Spc(i - 1); "#"
Next i
Print (2)
End Sub
2.在程序设计中，将文本框控件Text1用作输入密码，当键盘上按任一键时，都显示"*"，需要设置________ 属性。
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 3
For j = 2 To 4
a(i, j) = i + j
Next j
Next i
Text1.Text = a(2, 3) + a(3, 4)
End Sub
程序运行后，单击命令按钮，在文本框中显示的值是______。
5.ReDim 语句用于确定________ 数组的大小。
6.在窗体上画一个名称为Command1的命令按钮和一个名称为Text1的文本框，然后编写如下程序：
Private Sub Command1_Click()
Dim x,y,z As Integer
x=5: y=7: z=0
Text1.Text=x & y & z
End Sub
程序运行后，如果单击命令按钮，则在文本框中显示的内容是________。
7.菜单项只有一个事件，即________ 事件。
8.Visual Basic提供了三种对数据文件的访问方式，它们是顺序访问方式、二进制访问方式和__________访问方式。
9.已知窗体 Form1 的 CurrentX = 1000，执行了命令 PSet Step(200, 200) 后，CurrentX 的值为_____________ 。
三、程序填充
1.用循环显示如图所示结果。每项数据前交替出现正负号。
Option Explicit
Private Sub Command1_Click()
Dim s As Long, i%, j%, n%, fh%, str1 As String
n = Val(Text1)
For i = ___(1)___
s = 0
fh = IIf(i Mod 2 = 0, 1, -1) ' 控制 i 行第一项数据的正负号
For j = 1 To i
fh = __(2) ' 控制 j 列上数据的正负号
s = ____(3)____ ' 产生 j 列上的数据
str1 = Trim(Str(s))
If fh = -1 Then ' 输出 j 列上的数据
______(4)______
Else
Picture1.Print " +"; str1;
End If
Next j
_____(5)____
Next i
End Sub
2. 本程序的功能是用于判断通过输入对话框输入的正整数是否为降序数。判断结果显示在标签框Lable1中。
设正整数n=d1d2......dm，如果di+1≤di（i=1,2,……,m-1），则n 是一个降序数（即左边的数字大于等于右边的数字），如：321，8844是降序数，而2435不是降序数。
Option Explicit
Private Sub Command1_Click()
Dim i%, n As String, flag As Boolean
n = ____(1)___ ' 通过对话框输入数据
flag = False
For i = Len(n) ____(2)____ ' Len(n)测试字符串长度
If ___(3)__ > Mid(n, i - 1, 1) Then ' 判断
flag = ___(4)__ ' 设置判断标记
Exit For
End If
Next i
If ____(5)___ Then
Label1.Caption = n & "不是降序数"
Else
Label1.Caption = n & "是降序数"
End If
End Sub
四、设计操作
1.编写一个完整的程序，要求如下：
1. 参见样例在Form1窗体上放置1个文本框，1个标签和1个命令按钮。文本框设置为多行和有滚动条；按钮的Caption为"查找"，初始状态为不可用；窗体的标题设置为考生真实的准考证号。建立如下菜单：
菜单项
菜单名
备注
数据
Menu1
一级菜单
…产生
Menu11
二级菜单
窗体2
Menu2
一级菜单
退出(X)
Menu3
一级菜单
在Form2上放置2个命令按钮，按钮的标题分别是"绘图"和"返回"，窗体的标题为考生真实的姓名。
2. 在Form1中单击"产生"菜单项后，在文本框内内随机产生10个四位正整数，每个数占一行，此时"查找"按钮变为有效；单击"查找"按钮，在标签内显示文本框内内出现的最大随机数。
3. 选择"窗体2"菜单项，显示Form2 窗体，选择"退出"菜单项，结束程序运行。在Form2窗体中单击"返回"按钮，显示Form1窗体。
4. 在Form2窗体中单击"绘图"按钮，重新定义窗体的坐标系为(-4, 4)-(6, -6)。在窗体上用Line方法绘制阿基米德螺线，其中直线的颜色是随机的，直线的一端为坐标(0,0)，另一端坐标用阿基米德方程计算：
x =α Cos α y=α Sin α ；α 在0~2π , 步长为0.1。
5．在C:\VB4目录下将
工程
路基工程安全技术交底工程项目施工成本控制工程量增项单年度零星工程技术标正投影法基本原理
保存为v4.vbp、Form1 窗体为v41.frm、Form 2 窗体为v42.frm（文件名中符号1是数字1，不是字母L）
2007年上海市高等学校计算机等级考试测试卷
二级（Visual Basic程序设计）(B卷)
一、选择题
1.结构化程序由三种基本结构组成，下面属于三种基本结构之一的是______。
A.递归结构 B.循环结构
C.过程结构 D.输入输出结构
2.下列控件中可自动设置滚动条是__________。
A.复选框 B.框架
C.文本框 D.标签框
3.为了使标签覆盖背景，应把BackStyle属性设置为______ 。
A.0 B.1
C.True D.False
4.下列关于"控体"属性的说法正确的是__________。
A.单击窗体中的某控件，在属性窗口中的属性列表框中找到所要设置的属性，即可设置其属性值。
B.所有对象都具有同样的属性
C.控件的属性只能在设计时设置，不能在运行时修改
D.控件的每一个属性都具有同样的默认值
5.从随机文件中读取数据的命令是________。
A.Input B.Print
C.Get D.Put
6.VB中利用Circle 方法可以画________。
A.点 B.直线
C.直角矩形 D.圆角矩形
7.下列_____________组语句可实现将变量x、y互换。
A.x = y : y = x
B.y = y + 2 * x : x = y - 2 * x : y =(y - x) / 2
C.x = x + y : x = x - y : y = x - y
D.y = y + 2x : x = y - 2x : y =(y - x) / 2
8.为了给x,y,z三个变量赋初值1，下面的赋值语句正确的是___________。
A.x=1：y=1：z=1 B.x=1，y=1，z=1
C.x=y=z=1 D.xyz=1
9.如果列表框List1中已有10项数据，应使用语句______将数据"Mydata"插入到列表框的第3项 。
A.List1.AddItem "Mydata" ,3 B.List1.Insert "Mydata", 3
C.List1.AddItem "Mydata", 2 D.List1.Insert "Mydata", 2
10.下面数组声明语句错误的是__________。
A.Dim a%(-5 to -3) B.Dim a%(-1 to 2,3)
C.Dim n%,a%(n) D.Dim a(-1 to 0) as Integer
11.从函数过程退出，并返回到主调过程，可使用语句______ 。
A.Exit B.Return
C.Exit Sub D.Exit Function
12.触发滚动条Scroll事件的操作是：__________。
A.单击滚动条箭头 B.单击滚动条箭头与滚动块之间的空白区
C.拖曳滑块 D.其他的 3 个说法均可
13.设置复选框或单选按钮标题对齐方式的属性是______ 。
A.Align B.Alignment
C.Sorted D.Value
14.当文件指针到达文件尾部时，_______ 函数的值为真。
A.LOF() B.EOF()
C.LOC() D.LEN()
15.为了让加载的图片能随图像框控件Image1的大小自动缩放，需要设置Image1的_______ 。
A.Stretch属性设置为True B.Stretch属性设置为False
C.AutoSize属性设置为True D.AutoSize属性设置为False
二、填充题
1.若VB的执行程序在 C:\VB 文件夹内，App.Path 可返回_____________。
2.下面的程序段实现的功能是：当在文本框中输入整数 n 时，在窗体上输出 n+1 行图形。
Private Sub Form_Click()
Cls
n = Val(Text1)
Print Tab(9); "#"
For i = 1 To (1)
Print Tab(9-i); "#"; Spc(i - 1); "#"; Spc(i - 1); "#"
Next i
End Sub
3.表达式 Mid("abcdefgh",3,4) 的值是___________ 。
4.在窗体上画一个名称为Command1的命令按钮，然后编写如下程序：
Private Sub Command1_Click()
Dim i%, j%, s%
For i = 1 To 2
For j = 1 To 2
s = s + (i - 1) * 2 + j
Next j
Next i
Print s
End Sub
程序运行后，单击命令按钮，窗体上显示的是_______。
5.下面程序段的功能是数组x中有10个元素，查找数组中最小元素的下标imin。
Dim x%()
x=Array(1,-5,7,4,3,2,9,0,-1,5)
imin=0
For k=1 To 9
If x(k)< (1) Then (2)
Next k
Print imin
6.在Visual Basic中声明静态变量的关键字是_____________。
7.如果窗体上已编辑好菜单，为了能在窗体上使用右键弹出菜单，可在窗体的MouseUp事件中通过其参数Button= ________来判断已经按下了鼠标的右键。
8.已知窗体Form1 的 CurrentX = 400，执行了命令Line Step(200, 200) - Step (500, 400)后，CurrentX的值为_____________ 。
9.单选框的文本标题是通过________属性设置的。
三、程序填充
1.以下程序的功能是数据移动。每单击"变换矩阵"按钮一次，可将矩阵循环上移一行，第一行元素换到最后一行。程序运行界面如图所示。
Form_ Activate()事件：用1~16的自然数生成1个4×4按自然排列的二维矩阵，并输出到Picture1上；
moveline() 子过程：循环上移矩阵一行；
Command1_Click事件过程：调用moveline()子过程，并在Picture2上输出结果。
浙公网安备 33021202002483