Vb资料.docx
《Vb资料.docx》由会员分享，可在线阅读，更多相关《Vb资料.docx（15页珍藏版）》请在冰豆网上搜索。
Vb资料
试卷一
用鼠标选中某菜单控件时,触发Click事件;而用键盘选中该
菜单控件时,触发KeyPress事件.
答案：
N
第5题（1.0分）题号:
309
所有的对象都有caption属性.
答案：
N
第6题（1.0分）题号:
280
方法是VB对象可以响应的用户操作.
答案：
N
第7题（1.0分）题号:
224
VisualBasic程序的运行,仅能从某一窗体启动,如Form1窗体.
答案：
N
第8题（1.0分）题号:
251
Image控件使用的资源比Picture控件使用的多.
答案：
N
第9题（1.0分）题号:
256
TextBox与Label有许多共同特点,它们都能显示和输入文本.
答案：
N
第10题（1.0分）题号:
221
VB是一种面向对象的程序设计语言.
答案：
Y
━━━━━━━━━━━━━━━━━
三、单项选择共10题（共计10分）
━━━━━━━━━━━━━━━━━
第2题（1.0分）题号:
872
用键盘的光标键选中某一菜单项,并按回车将触发菜单的（）的事件.
A:
KeyPress
B:
KeyDown
C:
Click
D:
KeyUp
答案：
C
第3题（1.0分）题号:
224
（）对象具有Clear方法.
A:
图片框
B:
窗体
C:
复选框
D:
列表框
答案：
D
第4题（1.0分）题号:
871
要想清除文本框中的内容则可利用（）进行.
A:
Caption
B:
Text
C:
Clear
D:
Cls
答案：
B
第5题（1.0分）题号:
360
下列表达式中,其值为0的是（）.
A:
7/9
B:
7mod15
C:
7\9
D:
15mod9
答案：
C
第6题（1.0分）题号:
222
（）对象不具有Caption属性.
A:
Label
B:
Option
C:
Form
D:
Timer
答案：
D
第7题（1.0分）题号:
822
以下（）对象不具有Clear方法.
A:
列表框
B:
组合框
C:
剪贴板
D:
图片框
答案：
D
━━━━━━━━━━━━━━━━
四、多项选择共5题（共计10分）
━━━━━━━━━━━━━━━━
第1题（2.0分）题号:
276
下列语句哪些是错误的语句（）？
A:
ConstImaxAsInteger=&o155
B:
Const_GaAsString="abc"
C:
Dimaa,bbAsInteger,ccAsString
D:
yy=8,uu=9
答案：
BD
第2题（1.0分）题号:
367
如果没有使用Public、Private或者Friend,Sub过程在缺省情况
下是公用的、
答案：
N
第4题（1.0分）题号:
369
如果在过程调用时使用按值传递参数,则在被调过程中可以改
变实参的值.
答案：
N
第5题（1.0分）题号:
326
用鼠标选中某菜单控件时,触发Click事件;而用键盘选中该
菜单控件时,触发KeyPress事件.
答案：
N
第8题（1.0分）题号:
315
图片框的Move方法不仅可以移动图片框,而且还可以改变该图片
框的大小,同时也会改变该图片框有关属性的值.
第10题（1.0分）题号:
827
以下控件中不属于容器的是（）.
A:
Form控件
B:
PictureBox
C:
Image
D:
Frame
答案：
C
第1题（2.0分）题号:
277
下列说法哪些是正确的（）？
A:
不能对符号常量重新赋值
B:
Label控件用来在窗体中显示文本，其中的文本用户不能直接修改
C:
TAB（N）函数用于在输出表达式前将输出点定位在第N-1个字符位置
D:
格式输出函数Format（）可以使数值、日期或字符串按用户指定的格式输出
答案：
ABD
第2题（2.0分）题号:
281
窗体也是一个对象，它具有（）的特征。
A:
属性
B:
过程
C:
事件
D:
方法
答案：
ACD
第3题（2.0分）题号:
279
下面有关数组的说法那些是错误的（）？
A:
数组存放的是具有相同数据类型的多个数据
B:
数组的下标不允许是常数
C:
DIM语句声明的数组把数组中的全部数组都初始化为逻辑型
D:
多维数组中每一维的大小为上界-下界；数组的大小为每一维大小的乘积
E:
动态数组是指在声明时没有给出数组的大小，当要使用数组时，再决定数组的大小
答案：
BCD
第4题（2.0分）题号:
278
下列哪些标识符不符合变量的命名规则（）？
A:
hyu
B:
$abc
C:
4w
D:
y.u
E:
ty%
F:
_n8
答案：
BCDEF
第5题（2.0分）题号:
283
要选择列表框List1的第6项，可以使用语句（）。
A:
List1.Selected（6）=True
B:
List1.Selected（5）=True
C:
List1.ListIndex=5
D:
List1.Selected=5
答案：
BC
'功能：
以下程序段用于输出杨辉三角：
结果样式如图1
'-------------------------------------------------------
PrivateSubForm_Click（）
Constn=10
Dimarr（n,n）AsInteger
ForI=1Ton
arr（I,I）=1
'**********SPACE**********
【?
】
NextI
ForI=3Ton
Forj=2ToI-1
'**********SPACE**********
arr（i,j）=【?
】
Nextj
NextI
ForI=1Ton
Forj=1ToI
'**********SPACE**********
?
【?
】&"";
Nextj
Print
NextI
EndSub
答案：
=======（答案1）=======
arr（i,1）=1
=======（答案2）=======
arr（i-1,j-1）+arr（i-1,j）
=======（答案3）=======
arr（i,j）
=========或=========
str（arr（i,j））
━━━━━━━━━━━━━━━━
六、程序改错共1题（共计10分）
━━━━━━━━━━━━━━━━
第1题（10.0分）题号:
142
'------------------------------------------------
'【程序改错】
'------------------------------------------------
'题目：
程序功能根据输入的学习成绩,分别显示优秀
'（90分以上）,良好（75分以上）,及格（60分以上）
'不及格四个等级.
'------------------------------------------------
OptionExplicit
PrivateSubForm_Click（）
Cls
DimiAsInteger
i=InputBox（"请输入学习成绩"）
SelectCasei
'**********FOUND**********
Case0MsgBox"成绩应该在0--100之间"""
'**********FOUND**********
Case90
Print"优秀"
Case75To89
Print"良好"
Case60To74
Print"及格"
'**********FOUND**********
Case
MsgBox"不及格",vbCritical
EndSelect
EndSub
答案：
=======（答案1）=======
Caseis>100,is<0
=========或=========
caseis<0,is>100
=======（答案2）=======
Case90to100
=======（答案3）=======
Caseelse
━━━━━━━━━━━━━━━━
七、程序设计共2题（共计20分）
━━━━━━━━━━━━━━━━
第1题（10.0分）题号:
496
'-------------------------------------------------
'【程序设计】
'-------------------------------------------------
'题目：
（事件）单击窗体。
'（响应）求1-100中为5或7的倍数的和。
请将结果
'输出到窗体上,并存入所给变量SUM中。
'使用while...wend语句完成程序
'-------------------------------------------------
答案：
----------------------
DimiAsInteger
i=1
Whilei<=100
IfiMod5=0OriMod7=0Then
Sum=Sum+i
EndIf
i=i+1
Wend
PrintSum
下列说法哪些是正确的（）？
A:
不能对符号常量重新赋值
B:
Label控件用来在窗体中显示文本，其中的文本用户不能直接修改
C:
TAB（N）函数用于在输出表达式前将输出点定位在第N-1个字符位置
D:
格式输出函数Format（）可以使数值、日期或字符串按用户指定的格式输出
答案：
ABD
━━━━━━━━━━━━━━━━
五、程序填空共1题（共计10分）
━━━━━━━━━━━━━━━━
第1题（10.0分）题号:
64
'-------------------------------------------------------
'【程序填空】
'-------------------------------------------------------
'利用自定义类型数组，编写如下程序：
模拟实现数据库记录
'输入、显示与查询功能。
程序运行后,单击“新增”按钮，将
'文本框中的学生信息加到数组中；单击“前一个”或“后一个”
'按钮，显示当前元素的前或后一个记录；单击“最高”按钮，
'则显示最高分的记录。
并随时显示数组中输入的记录数与当前数
'组元素的位置。
'-------------------------------------------------------
OptionBase1
Dimn%,i%
'**********SPACE**********
Dimstud（1To100）As【?
】
PrivateSubCommand1_Click（IndexAsInteger）
'**********SPACE**********
SelectCase【?
】
Case0'新增
Ifn<100Then
n=n+1
Else
MsgBox"输入人数超过数组声明的个数"
End
EndIf
i=i+1
Withstud（n）
.Name=Text1
.Special=Text2
.Total=Val（Text3）
EndWith
Text1=""
Text2=""
Text3=0
Case1'前一条
Ifi>1Theni=i-1
Withstud（i）
Text1=.Name
Text2=.Special
Text3=.Total
EndWith
Case2'后一条
IfiWithstud（i）
Text1=.Name
Text2=.Special
Text3=.Total
EndWith
Case3'找最高分者
Max=stud
（1）.Total
maxi=1
Forj=2Ton
Ifstud（j）.Total>MaxThen
Max=stud（j）.Total
maxi=j
EndIf
Nextj
Withstud（maxi）
Text1=.Name
Text2=.Special
Text3=.Total
EndWith
i=maxi
EndSelect
Label5=i&"/"&n'显示当前位置和总数
EndSub
答案：
=======（答案1）=======
StudType
=======（答案2）=======
Index
━━━━━━━━━━━━━━━━
六、程序改错共1题（共计10分）
━━━━━━━━━━━━━━━━
第1题（10.0分）题号:
137
'------------------------------------------------
'【程序改错】
'------------------------------------------------
'题目：
求s=72+102+132+……832的值。
'------------------------------------------------
OptionExplicit
PrivateSubForm_Click（）
Cls
DimsAsLong
DimiAsInteger
'**********FOUND**********
s=1
'**********FOUND**********
Fori=72To832
s=s+i
'**********FOUND**********
loop30
Prints
EndSub
答案：
=======（答案1）=======
s=0
=======（答案2）=======
Fori=72To832step30
=======（答案3）=======
Nexti
=========或=========
Next
━━━━━━━━━━━━━━━━
七、程序设计共2题（共计20分）
━━━━━━━━━━━━━━━━
第1题（10.0分）题号:
485
'-------------------------------------------------
'【程序设计】
'-------------------------------------------------
'题目：
（事件）单击窗体。
'（响应）我国现有人口为13亿，设年增长率为1%，
'计算多少年后增加到20亿。
并将结果输出
'在窗体上。
将结果存入变量year中。
'使用dowhile...loop语句完成程序。
'-------------------------------------------------
答案：
----------------------
dimpasdouble
dimrassingle
dimnasinteger
p=1300000000
r=0.01
dowhilep<2000000000
p=p+p*r
n=n+1
loop
print"n=",n
year=n
升级会员 