- 1、本文档共10页,可阅读全部内容。
- 2、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
- 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载。
- 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
- 5、该文档为VIP文档,如果想要下载,成为VIP会员后,下载免费。
- 6、成为VIP后,下载本文档将扣除1次下载权益。下载后,不支持退款、换文档。如有疑问请联系我们。
- 7、成为VIP后,您将拥有八大权益,权益包括:VIP文档下载权益、阅读免打扰、文档格式转换、高级专利检索、专属身份标志、高级客服、多端互通、版权登记。
- 8、VIP文档为合作方或网友上传,每下载1次, 网站将根据用户上传文档的质量评分、类型等,对文档贡献者给予高额补贴、流量扶持。如果你也想贡献VIP文档。上传文档
VB期末复习题库VisualBasic(填仝题)
1假定当前日期为2002年7月120,星期六,则执行语句PCntday(now)后,输出结果是 (提示:不能出现符号#)。12
语句a%=3.14156:Printa%的输出结果是 。 3
“以下循环的执行次数是 o
K二0
DoWhilekUO
k二k+1
Loop111
Fix(5.8)的值是 o5
“下列程序段的扌気行后新出的结果为 o
I二4:A二5
Do
1=1+1:A二A+2
LoopUntiII二7
Print““A二z;A“A=11
表达式3/6*5的值是 o2.5
”下列程序的作用是将三个数按从大到小进行排序,请补充完该程序。
IfabThen
d二a:a二b:b二d
EndIf
IfacThen
d二a:a二c:c二d
EndIf
If Then
d二b:b二c:c二d
EndIf
Printa,b,cbc
在Selectcase结构中应至少包含一个 子句。CASE
9窗体的属性可在属性窗口中设置,也可在程序审用 语句动态设置。
赋值
10“有如下Sub过程:
Subind(aAsInteger)
StaticxAsInteger
x二x+a
Printx;
EndSub
以下是调用它的事件过程,程序运行后,单击命令按钮Commandl,输出结果为
O
PrivateSubCommandl_CIick()
Ind(2)
TOC\o1-5\h\zEndSub“ 2
11逻辑常量值为TRUE或 oFALSE
12货币类型的数据小数点药社晝是固定的,精确到小数点后 位。4
13表达式(2+8*3)/2的值是 o13
14”以下程序用来判断一个整薮X是杏为偶数,并将其中的偶数在窗体上显示,请补充完该程序。
IfX___2二 ThenPrintXuMOD#O
15当弟裔体审禹对象进行 操作时,VisualBasic就会显示该对象的代码
窗口。双击
”下列程序的执行结果是—o
T二0:m二1:Sum二0
Do
t二t+m:Sum=Sum+t:m二m+2
LoopWhiIem=9
PrintSum*55
一组具有相同名称,不同下标的下标变量称为 o数组
”给定年份,下列程序用来判断该年是否闰年,请补充完该程序。
提示:闰年的条件是年号可以被4整除但不能被100整除,或者能被400整除。PrivateSubCommand6_CIick()
DimyAsInteger
y二InputBox(“请输入年号“)
If(yMod4二0 yMod10000)or(yMod400=0)Then
Print是闰年
ElsePrint…是普通年份…
EndIf
EndSub”AND
设a二2,b二3,c二4,d二5下列abandcOdorc二a表达式的值是 。
FALSE
20表达式:ur“2“二阳2“的值是 oTRUE
21为了能自动放大或缩小图象框中的函形反号图象框的大小相适应,必须把该图象框的Stretch属性设置为 oTRUE
22根据变量的定义位置和所使用的变量定义语句的不同,VB中的变量可以分为3类,即 、模块变量和全局变量。局部变量
23表达式34and7二5的值是 。FALSE
”以下的程序用来输出100到2000间不能被3整除的数字,请补充完该程序。
PrivateSubCommmand1_CIick()
DimxAsInteger
x二100
DoUntiIx
IfxMod3_0Then
Printx
EndIf
x=x+1
Loop
EndSub2000
“下列程序段的执行时,共循环—次。
Fora二0To1
Forb=1To2
Forc=1To3
1=1+1
Nextc
Nextb
nextaH12
”以下程序计算2到50间所有偶数的和,请补充完该程序
Submult()
DimSumAsInteger
Sum=0
DimIasinteger
Forto50
IfIMOD2二__Then—
NextI
Printsum
EndSubI二2#0#SUM二SUM+I
A二7,B二3,C二4,则表达式AMOD3+B*/C\5的值为 。2
“下列循环语句,要求和数达到10既停止累加,痕田循坏,
文档评论(0)