Vb资料.docx
- 文档编号:29846313
- 上传时间:2023-07-27
- 格式:DOCX
- 页数:15
- 大小:18.26KB
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
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**********
Case0
MsgBox"成绩应该在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'后一条
Ifi Withstud(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
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- Vb 资料