10VB.docx
- 文档编号:6848014
- 上传时间:2023-01-11
- 格式:DOCX
- 页数:18
- 大小:81.13KB
10VB.docx
《10VB.docx》由会员分享,可在线阅读,更多相关《10VB.docx(18页珍藏版)》请在冰豆网上搜索。
10VB
云南师范大学2007-2008学年下学期统一考试
《计算机技术基础》(VB6.0)期末考试试卷
考试方式(闭卷)考试时量:
100分钟试卷编号(A卷)
一、判断题:
(每题1分,共20分)
1.VB中的“消息”是指由一个应用程序传递到另一个应用程序的信息包。
A
A.对 B.错
2.窗体的Enabled属性设为False时,窗体题的按钮、文本框控件就不会对用户的操作做出反应。
A
A.对 B.错
3.""是一个字符串,而""不是一个字符串。
B
A.对 B.错
4.函数过程和子过程的区别是子过程结束将返回过程值,函数过程结束不必返回函数值。
B
A.对 B.错
5.Timer是时钟控件的唯一事件。
A
A.对 B.错
6.对象的属性只能在属性窗口中设置。
B
A.对B.错
7.Byte类型的数据由2个字节组成。
B
A.对B.错
8.系统提供的诸如sqr()等函数不属于过程。
B
A.对B.错
9.对象的三要素包括:
属性、事件、方法。
A
A.对B.错
10.使用Print方法只能在窗体中输出,不能在图片框中输出。
B
A.对B.错
二、单选题(在本题的每一小题的被选答案中只有一个正确答案,多选不给分,每题1分,共40分)
11.要判断“命令按钮”是否被鼠标单击,应在“命令按钮”的事件中判断。
C
A.Chang B.KeyDown C.Click D.KeyPress
12.在下列表达式中,非法的是__C____。
A.a=b+cB.a>b+c
C.a≠b>cD.a
13.常量2.7856E-6的类型是_B_____。
A.整型 B.实型 C.字符型 D.双精度
14.VB表达式Cos(0)+Abs(-1)+Int(Rnd
(1))的值是___B___。
A.1B.2C.0D.-1
15.记录长度最大可取的值是__A____字节。
A.32767 B.32768 C.65535 D.65536
16.将数据项“China”添加到列表框(List)中成为第一项应使用_A__语句。
A.List1.AddItem”China”,0 B.List1.AddItem”China”,l
C.List1.AddItem0,”China” D.List1.AddItem1,”China”
17.文本框(Text1)中有选定的文本,执行Text1.SelText=”Hello”的结果是_A__。
A.“Hello”将替换掉原来选定的文本
B.“Hello”将插入到原来选定的文本之前
C.Text1.SelLength为5
D.文本框中只有“Hello”
18.函数Int(Rnd*11)+10产生的数值的范围是____C__。
A.(0,10) B.[10,10] C.[10,20] D.(0,20)
19.框架内的所有控件是__A_。
A.随框架一起移动、显示、消失和屏蔽
B.不随框架一起移动、显示、消失和屏蔽
C.仅随框架一起移动 D.仅随框架一起显示和消失
20.数学表达式x>y>z的正确VB逻辑表达式是__D____。
A.x>yAnd
21.在下列说法中,正确的是__D_。
A.通过适当的设置,可以在程序运行期间,让时钟控件显示在窗体上
B.在列表框中不能进行多项选择
C.在列表框中能够将项目按字母顺序从大到小排列
D.框架也有Click和DblClick事件
22.按文件的组织方式分为____A__。
A.顺序文件和随机文件 B.文本文件和二进制文件
C.程序文件和数据文件 D.只读文件和读写文件
23.已编译的控件部件的扩展名是__A_。
A..OCX B..VBP C..EXE D..CTL
24.当一个工程含有多个窗体时,其中的启动窗体是__D____。
A.启动VB时建立的窗体B.第一个添加的窗体
C.最后一个添加的窗体D.在“工程属性”对话框中指定的窗体。
25.通过代码在运行时设置属性的语法格式为__B____。
A.对象名=属性.新值 B.对象名.属性=新值
C.对象名.新值=属性.新值 D.对象名.属性=属性.新值
26.下列程序段的运行结果。
A
PrivateSubForm_Click()
DimMsg
Hide
Msg=”选择‘确定’按钮”
MsgBoxMsg
Show
EndSub
A.隐藏窗体,按‘确定’按钮使窗体重现
B.隐藏窗体
C.显示窗体,按‘确定’按钮使窗体隐藏
D.显示窗体
27.运行下面程序后,在窗体中显示的是__D____。
PrivateSubForm_Click()
a$="*":
b$="$"
Fork=1 To3
x$=String$(Len(a$)+k,b$)
Printx$;
Nextk
EndSub
A.、********* B.*$*$*$
C.1*$2*$3*$ D.、$$$$$$$$$
28.写出如下程序运行结果。
D
Functionf(mAsInteger)AsInteger
b=1
StaticcAsInteger
b=b+1
c=c+1
f=m*b*c
EndFunction
PrivateSubCommand1_Click()
DimaAsInteger
a=2
sum=0
ForI=1To3
sum=sum+f(a)
NextI
printsum
EndSub
A.12 B.16 C.20 D.24
29.执行下面程序段后,变量x的值为____A__。
x=5
ForI=1To20step2
x=x+I\5
NextI
A.21 B.22 C.23 D.24
30.以下程序的循环次数是___A___。
PrivateSubCommand1_Click()
Forj=8To35Step3
Printj;
Nextj
EndSub
A.10 B.9 C.27 D.28
31.如果要使一个窗体从屏幕上和内存中完全消失,所要使用的语句是___D___。
A.Hide B.Show C.Load D.Unload
32.设x=4,y=6,则以下不能在窗体上显示出“A=10”的语句是A
A.PrintA=x+yB.Print"A=";x+y
C.Print"A="+Str(x+y)D.Print"A="&x+y
33.决定标签的字符串颜色的属性是D
A.FontColorB.BackStyleC.BackColorD.ForeColor
34.可以惟一标识控件数组中的每一个控件属性的是C
A.NameB.CaptionC.IndexD.Enabled
35.下来程序段执行结果为A
x=5
y=-6
ifnotx>0thenx=y-3
Elsey=x+3
printx-y;y-x
A.-33B.5-9C.3-3D.-65
36.表达式4+5\6*7/8Mod9的值是B
A.4B.5C.6D.7
37.参与运算的两个表达式均为True,运算结果也为True,则该逻辑运算符为:
A
A.ANDB.IMPC.NOTD.XOR
38.下面不是VB的工作模式。
A.设计模式B.运行模式C.中断模式D.大纲模式
参考答案:
D
39.在VB中,被称为对象。
A.窗体B.控件C.窗体和控件D.窗体、控件、属性
参考答案:
C
40.设a=”VisualBasic”,下面使b=”Basic”的语句是。
A.b=Left(a,8,12)B.b=Left(a,8,5)C.b=Mid(a,8,5)D.b=Right(a,5,5)
参考答案:
C
三、填空题:
(每空2分,共10分)。
1、使用DimCJ(1To3,1To4,2To3),声明数组CJ有【1】个数组元素。
(答案:
24)
2、为了使标签中的文字以粗体形式显示,需要把【2】属性设置为【3】。
(答案:
FontBold,true)
3、在定义子过程或函数的形式参数时,使用关键字【4】表示传数值,使用【5】表示传地址。
(答案:
Byval,ByRef)
4、下列程序允许用户按Enter键将一个组合框(cboComputer)中没有的项目添加到组合框中。
SubcboComputer_KeyPress(KeyAsciiAsInteger)
DimflagAsBoolean
IfKeyAscii=13Then
flag=False
ForI=0TocboComputer.ListCount-1
If【6】Then
Flag=True
ExitFor
EndIf
Nexti
IfNotflagThen
【7】
Else
MsgBox(”组合框中已有该项目!
”)
EndIf
EndIf
EndSub
(答案:
cboComputer.Text=cboComputer.list(i),cboComputer.AddItemcboComputer.Text)
5、函数odd用于判断一个数是否是奇数。
当单击命令按钮时,产生[10,100]之间的随机数,调用odd过程,判断该数是否为奇数。
如果是则显示“奇数”,否则显示“偶数”。
PrivateSubodd(nAsInteger)
Printn;
Ifn/2<>n\2Then
Print"奇数"
Else
【8】
EndIf
EndSub
PrivateSubCommand1_Click()
DimxAsInteger
Randomize
x=【9】
oddx
EndSub
(答案:
Print“偶数”,Int((100-10+1)*Rnd+10)或Int(91*Rnd+10))
6、请用正确内容填空,以下程序的输出结构是:
4710
5811
6912
OptionBase1
PrivateSubForm_Click()
Dimiasinteger
Dimjasinteger
Dima(3,3)asinteger
Fori=1to3
Forj=1to3
a(i,j)=【10】
printa(i,j);
Nextj
Nexti
EndSub
(答案:
3+i+3*(j-1))
五、编程题:
(共30分)
1.窗体设计(7分)
请设计如图1所示的界面。
各控件和属性参照表1。
图1学生成绩统计
表2窗体控件与属性
控件
名称(Name)属性
标题(Caption)属性
文本(text)属性
窗体
form1
学生成绩统计
无
框架
Frame1
学生成绩统计
无
Frame2
分数段统计
无
文本框
Text1
无
“”
Text2
无
“”
Text3
无
“”
Text4
无
“”
Text5
无
“”
Text6
无
“”
Text7
无
“”
Text8
无
“”
Text9
无
“”
Text10
无
“”
标签
Label1
总人数:
无
Label2
最高分:
无
Label3
及格率:
无
Label4
请输入及格分数线:
无
Label5
平均分:
无
Label6
最低分:
无
Label7
优秀率:
无
Label8
请输入优秀分数线:
无
Label9
从第一个到N各学生的成绩:
无
Label10
各分数段人数:
无
Label11
0--59分人数
无
Label12
60--100分人数
无
列表框
List1
无
无
命令按钮
Command1
统计
无
Command2
开始
无
评分标准:
控件
名称(Name)属性
标题(Caption)属性
文本(text)属性
评分标准
窗体
form1
学生成绩统计
无
1
框架
Frame1
学生成绩统计
无
1
Frame2
分数段统计
无
文本框
Text1
无
“”
1.5
Text2
无
“”
Text3
无
“”
Text4
无
“”
Text5
无
“”
Text6
无
“”
Text7
无
“”
Text8
无
“”
Text9
无
“”
Text10
无
“”
标签
Label1
总人数:
无
1.5
Label2
最高分:
无
Label3
及格率:
无
Label4
请输入及格分数线:
无
Label5
平均分:
无
Label6
最低分:
无
Label7
优秀率:
无
Label8
请输入优秀分数线:
无
Label9
从第一个到N各学生的成绩:
无
Label10
各分数段人数:
无
Label11
0--59分人数
无
Label12
60--100分人数
无
列表框
List1
无
无
1
命令按钮
Command1
统计
无
1
Command2
开始
无
2.菜单设计(7分)
请设计一个如图1与图2所示的下拉菜单,各菜单的名称属性如表2所示,要求使用菜单编辑器设置各级菜单及相应热键。
图2文件下拉菜单
图3格式下拉菜单
表2菜单属性值表
标题
名称
上级菜单标题
热键
快捷键
文件
Mfile
无
F
无
新建
MNew
文件
N
CtrL+N
打开
MOpen
文件
O
CtrL+O
保存
MSave
文件
S
CtrL+S
关闭
MClose
文件
C
CtrL+C
分割线
MSp1
文件
无
无
退出
MExit
文件
E
CtrL+E
格式
MChar
无
H
无
居左
MLeft
格式
L
CtrL+L
居右
MRight
格式
R
CtrL+R
居中
MCenter
格式
M
CtrL+M
分割线
MSp2
格式
无
无
字体
MFont
格式
T
CtrL+T
评分标准:
标题
名称
上级菜单标题
热键
快捷键
评分标准
文件
Mfile
无
F
无
0.5
新建
MNew
文件
N
CtrL+N
0.5
打开
MOpen
文件
O
CtrL+O
0.5
保存
MSave
文件
S
CtrL+S
0.5
关闭
MClose
文件
C
CtrL+C
0.5
分割线
MSp1
文件
无
无
0.75
退出
MExit
文件
E
CtrL+E
0.5
格式
MChar
无
H
无
0.5
居左
MLeft
格式
L
CtrL+L
0.5
居右
MRight
格式
R
CtrL+R
0.5
居中
MCenter
格式
M
CtrL+M
0.5
分割线
MSp2
格式
无
无
0.75
字体
MFont
格式
T
CtrL+T
0.5
3、For循环语句编写以下程序:
求:
S=1+(1*2)+(1*2*3)+(1*2*3*4)+……+(1*2*3*……*6)
参考程序:
PrivateSubCommond1_Click()
DimsAsInteger
DimjAsInteger0.5分
DimiAsInteger0.5分
j=1:
s=01分
Fori=1To61分
j=j*I1.5分
s=s+j1分
NextI1分
Text1.text=s1分
EndSub
或
PrivateSubCommond1_Click()
DimsAsInteger0.5分
DimjAsInteger0.5分
DimiAsInteger0.5分
j=1:
s=01分
Fori=1To61分
Forj=1Toi1.5分
s=s*j1分
Nextj0.5分
Nexti0.5分
text1.text=s1分
EndSub
4、使用Rnd函数生成5个[0~100]之间的随机整数,找出这5个数中的最大数与最小数,并以升序重新排列这5个数。
窗体格式如图
参考答案:
‘*****界面设计(1分)**************
OptionExplicit
OptionBase1
Dima(5)AsInteger
PrivateSubCommand1_Click()
DimmaxAsInteger‘存储最大数
DimminAsInteger‘存储最小数
DimiAsInteger‘循环变量
DimjAsInteger‘循环变量
DimtAsInteger‘交换变量
DimsAsString‘存储排序后的5个数
‘****求最大最小值(2分)**********
max=0
min=100
Fori=1To5
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 10 VB