试卷编号：8074
所属语言：Visual Basic
试卷方案：201006
试卷总分：100分
共有题型：8种
━━━━━━━━━━━━━━━
一、填空 共10题 （共计10分）
━━━━━━━━━━━━━━━
第1题 （1.0分） 题号:37
VisualBasic6.0用于开发【1】环境下的应用程序.
答案：
1). WINDOWS
第2题 （1.0分） 题号:316
循环语句FOR K=1 TO 10 STEP –1控制的循环次数为【1】.
答案：
1). 0
第3题 （1.0分） 题号:54
在VB中,若要求在模块中强制显式地指定变量的数据类型,应当在模块首部的申明部分使用【1】语句.
答案：
1). Option Explicit
第4题 （1.0分） 题号:240
设X$ ="abc123456"则"a"+str$(val(right(X$,4)))的值是【1】.
答案：
1). a3456
第5题 （1.0分） 题号:279
设置计时器对象触发事件的时间间隔用【1】属性.
答案：
1). interval
第6题 （1.0分） 题号:57
在控件之中,【1】不能从工具箱中被删除.
答案：
1). 内部控件 或 标准控件
第7题 （1.0分） 题号:318
由For k=35 to 0 step 3:next k循环语句控制的循环次数是【1】.
答案：
1). 0
第8题 （1.0分） 题号:50
在VB 6.0中,设 Single型变量 XYZ 的值为123.45,若要将其转换成字符串,应使用的类型转换函数是【1】.
答案：
1). STR 或 CSTR
第9题 （1.0分） 题号:251
Print "x=" & (2=4) 的结果为【1】.
答案：
1). x=False
第10题 （1.0分） 题号:239
设a=2,b=3,c=4,d=5,则NOT a<=c OR 4*c=b^2 AND b<> a+c 的值为【1】.
答案：
1). False
━━━━━━━━━━━━━━━
二、判断 共10题 （共计10分）
━━━━━━━━━━━━━━━
第1题 （1.0分） 题号:227
单击并拖拽工具箱中所需的控件到窗体上即可完成添加控件任务.
答案：N
第2题 （1.0分） 题号:234
如果某子程序add用public static sub add()定义,则该子程
序的变量都是局部变量.
答案：N
第3题 （1.0分） 题号:327
由Visual Basic语言编写的应用程序有解释和编译两种执行方式.
答案：Y
第4题 （1.0分） 题号:237
在VB中,运算 "ABCDE123A" Like "[a*a] " 的结果是True.
答案：Y
第5题 （1.0分） 题号:253
Listl.clear是清除Listl的全部列表项,所以Clear是对象的方法.
答案：Y
第6题 （1.0分） 题号:276
对象的可见性用enabled属性设置,可用性用visible属性设置.
答案：N
第7题 （1.0分） 题号:245
"菜单编辑器"中至少要填"名称"和"标题"这两个框,才
能真确完成菜单栏的设计.
答案：Y
第8题 （1.0分） 题号:336
在VB5 中,文件菜单的"删除工程"的作用是将当前VB工程在硬
盘中删除掉.
答案：N
第9题 （1.0分） 题号:360
直线控件可以在窗体上拖动,因此它具有MOVE方法.
答
案：N
第10题 （1.0分） 题号:362
属性是用来描述和反映对象特征的参数,不同的对象具有各自
不同的属性,对象的所有属性都可以在属性窗口中设置.
答案：N
━━━━━━━━━━━━━━━━━
三、单项选择 共10题 （共计10分）
━━━━━━━━━━━━━━━━━
第1题 （1.0分） 题号:856
执行下面的程序段后,x的值为().
x=5
For i=1 To 20 Step 2
x=x+i\5
Next i
A:21
B:22
C:23
D:24
答案：A
第2题 （1.0分） 题号:223
()对象不能作为控件的容器.
A:Form
B:PictureBox
C:Shape
D:Frame
答案：C
第3题 （1.0分） 题号:336
设a=10,b=5,c=1,执行语句Printa>b>c后,窗体上显示的是().
A:True
B:False
C:1
D:出错信息
答案：B
第4题 （1.0分） 题号:369
下列各种窗体事件中,不能由用户触发的事件是().
A:Load事件和Unload事件
B:Click事件和Unload事件
C:Click事件和Dbclick事件
D:Load事件和Initialize事件
答案：D
第5题 （1.0分） 题号:808
要使文本框获得输入焦点,则应采用文本框控件的哪个方法().
A:GodFocus
B:LostFocus
C:KeyPress
D:SetFocus
答案：D
第6题 （1.0分） 题号:298
激活主菜单的按键是().
A:F1或Ctrl键
B:Ctrl键或Atl键
C:F10或Ctrl键
D:F10或Atl键
答案：B
第7题 （1.0分） 题号:361
下列不能打开属性窗口的操作是().
A:执行"视图"菜单中的"属性窗口"命令
B:按F4键
C:按Ctrl+T
D:单击工具栏上的"属性窗口"按钮
答案：C
第8题 （1.0分） 题号:357
下列()是窗体的扩展名.
A:frm
B:bas
C:cls
D:dll
答案：A
第9题 （1.0分） 题号:841
运行下面的程序: CLS
LINE (100,100)-(200,50)
LINE - (150,150)
LINE -(100,100)
屏幕上显示的是().
A:三条放射形直线
B:四条放射形直线
C:矩形
D:三角形
答案：D
第10题 （1.0分） 题号:860
组合框的三种不同风格:下拉组合框、简单组合框和下拉列表框由
()属性决定.
A:Style
B:BoderStyle
C:FillStyle
D:DrawStyle
答案：A
━━━━━━━━━━━━━━━━
四、多项选择 共5题 （共计10分）
━━━━━━━━━━━━━━━━
第1题 （2.0分） 题号:285
在VB中，需要用数据访问对象对数据库进行访问，下列哪些属于VB的数据访问对象（）。
A:DAO
B:ADO
C:OAD
D:RDO
答案：ABD
第2题 （2.0分） 题号:283
要选择列表框List1的第6项，可以使用语句（）。
A:List1.Selected(6)=True
B:List1.Selected(5)=True
C:List1.ListIndex=5
D:List1.Selected=5
答案：BC
第3题 （2.0分） 题号:277
下列说法哪些是正确的（）？
A:不能对符号常量重新赋值
B:Label控件用来在窗体中显示文本，其中的文本用户不能直接修改
C:TAB()函数
用于在输出表达式前将输出点定位在第N-1个字符位置
D:格式输出函数Format()可以使数值、日期或字符串按用户指定的格式输出
答案：ABD
第4题 （2.0分） 题号:280
请把下面说法中正确的选出来（）。
A:在函数调用过程中数值型函数的默认返回值为0，可变型函数的默认返回值为空串
B:在调用Sub过程中使用Call语句时，参数必须在括号内
C:过程本身使用的参数列表称为“形参”，而主程序传递给过程的真正参数称为“实参”
D:DIM语句声明的数组把数值数组中的全部数组元素都初始化为0，把字符串数组中的全部元素都初始化为空字符串
答案：BCD
第5题 （2.0分） 题号:278
下列哪些标识符不符合变量的命名规则（）？
A:hyu
B:$abc
C:4w
D:y.u
E:ty%
F:_n8
答案：BCDEF
━━━━━━━━━━━━━━━━
五、程序填空 共1题 （共计10分）
━━━━━━━━━━━━━━━━
第1题 （10.0分） 题号:51
'-------------------------------------------------------
'【程序填空】
'-------------------------------------------------------
'功能：下面的程序段用于建立文件并输出文件，文件内容如下：
'
'*****
' *****
' *****
' *****
' *****
'-------------------------------------------------------
Private Sub Form_Click()
'**********SPACE**********
Open "c:\1.txt" For 【?】 As #1
For i = 1 To 5
Print #1, Spc(i); "*****"
Next i
'**********SPACE**********
【?】
'**********SPACE**********
Open "c:\1.txt" For 【?】 As #1
For i = 1 To 5
Line Input #1, x
Print x
Next i
Close #1
End Sub
答案：
1). Output
2). Close #1 或 Close
3). Input
━━━━━━━━━━━━━━━━
六、程序改错 共2题 （共计20分）
━━━━━━━━━━━━━━━━
第1题 （10.0分） 题号:487
'------------------------------------------------
'【程序改错】
'------------------------------------------------
'题目:设窗体中有图片框Pic1，现要求在其中绘制10个同心圆，
' 然后将此图以Test.BMP作文件名存入磁盘。
'------------------------------------------------
Option Explicit
Private Sub Command1_Click()
Dim X As Integer
Dim Y As Integer
Dim I As Integer
Dim rad(9) As Integer
X = Pic1.ScaleWidth / 2
Y = Pic1.ScaleHeight / 2
'**********FOUND**********
For I = 1 To 9
rad(I) = 500 * Rnd
Next I
I = 9
'**********FOUND**********
Do Until I < 1
Pic1.Circle (X, Y), rad(I), RGB(256 * Rnd, 256 * Rnd, 256 * Rnd)
'**********FOUND**********
I = I + 1
Loop
SavePicture Pic1.Image, "Test.BMP"
End Sub
答案：
1). for i=0 to 9 或 for i=0 to 9 step 1
2). Do Until I < 0 或 do until 0>i
3). I = I - 1 或 i=-1+i
第2题
（10.0分） 题号:489
'------------------------------------------------
'【程序改错】
'------------------------------------------------
'题目:给定三角形的三条边，计算三角形的面积。要求
' 程序首先判断给定的三条边能否构成三角形。
'------------------------------------------------
Option Explicit
Private Sub Form_Click()
Dim a As Single, b As Single, c As Single
Dim s As Single, t As Single
start:
a = InputBox("输入1边长：")
b = InputBox("输入2边长：")
c = InputBox("输入3边长：")
'**********FOUND**********
If a + b < c Or b + c < a Then
MsgBox ("不能构成三角形，请重新输入个边")
GoTo start
End If
'**********FOUND**********
t = (a + b) / 2
'**********FOUND**********
s = Sqr((t - a) * (t - b) * (t - c))
Print "该三角形的面积："; s
End Sub
答案：
1). If a + b < c Or b + c < a Or a + c < b Then
2). t = (a + b + c) / 2 或 t = (a + b + c ) / 2
3). s = Sqr(t * (t - a) * (t - b) * (t - c)) 或 s = Sqr( t * (t - a) * (t - b) * (t - c) )
━━━━━━━━━━━━━━━━
七、程序设计 共1题 （共计10分）
━━━━━━━━━━━━━━━━
第1题 （10.0分） 题号:146
'-------------------------------------------------
'【程序设计】
'-------------------------------------------------
'题目：(事件)单击窗体。
' (响应)求50以内所有偶数的和，并在窗体上输出出来。
' 将结果存入变量S中。
'-------------------------------------------------
答案：----------------------
Dim i As Integer
For i = 2 To 50
If (i Mod 2) = 0 Then
s = s + i
End If
Next
Print (CStr(s))
----------------------
━━━━━━━━━━━━━━━━━━
八、VB窗体设计 共2题 （共计20分）
━━━━━━━━━━━━━━━━━━
第1题 （10.0分） 题号:46
---------------------------------------------------------------------
【窗体设计】
---------------------------------------------------------------------
题目：请按照题目要求设计指定的窗体。（本题有6个项目要完成）
建立如图001所示界面：
注意：保存时不得修改窗体和工程文件的名称及路径，否则后果自负。
---------------------------------------------------------------------
1、窗体设置
1）名称设置为“考试系统”
2）AutoRedraw设置为True
3）边框风格设置为1
4）标题设置为“窗体”
5）前景色设置为红色，值为H000000FF
2、在窗体左上角添加一个标签控件
1）名称设置为“提示信息”
2）设置为可以自动调整大小
3）内容设置为“考试系统正在运行”
3、在窗体上添加一个时钟控件
1）时间间隔设置为1.5秒
4、在
窗体中间位置添加一个框架控件
1）边框风格设置为0
2）标题为“选择题”
5、在框架中添加上下两个单选按钮
1）第一个单选按钮在上方，标题设置为“单选”，并设为选中
2）第二个单选按钮在下方，标题设置为“多选”
6、在窗体右下角添加一个命令按钮
1）标题为“确定”
2）字体名称设置为“黑体”、字体大小12、带下划线
3）设置高度为511
4）在单击事件里添加代码，使得窗体左上角的标签的内容为“考试系统结束运行”
----------此为题目要求的最后一行，以下空白---------------------------------------
第2题 （10.0分） 题号:50
---------------------------------------------------------------------
【窗体设计】
---------------------------------------------------------------------
题目：请按照题目要求设计指定的窗体。（本题有6个项目要完成）
建立如图005所示界面：
注意：保存时不得修改窗体和工程文件的名称及路径，否则后果自负。
---------------------------------------------------------------------
1、窗体设置
1）名称为“个人介绍”
2）标题为“我的个人信息”
2、在窗体上方添加一个文本框控件
1）文本内容为“个人简历”
2）设置文本被锁定
3）文本允许多行
4）该文本框设置为不可见
3、在文本框下添加一个标签控件
1）内容右对齐
2）标题内容为“所获奖励”
3）该标签不可见
4、在标签下添加一个组合框控件
1）名称为“组合框”
2）列表项目依次为“小学”、“初中”、“高中”、“大学”
3）列表项目排序属性设置为True
5、添加两个一级菜单，均无子菜单
1）第一个一级菜单，名称为Menu1，标题为“个人简历”
2）第二个一级菜单，名称为Menu2，标题为“所获奖励”
3）在Menu1的单击事件里添加代码，使文本框可见
4）在Menu2的单击事件里添加代码，使标签可见
6、在窗体右下角添加一个命令按钮
1）标题为“清除”
2）在单击事件里添加代码，清除组合框里的所有项目
----------此为题目要求的最后一行，以下空白---------------------------------------