vb复习资料Word文档下载推荐.docx
《vb复习资料Word文档下载推荐.docx》由会员分享,可在线阅读,更多相关《vb复习资料Word文档下载推荐.docx(59页珍藏版)》请在冰点文库上搜索。
DOWhilek<
10
K=k+1:
______
loop
printt
T=T+K
31)VisualBasie提供了列表框控件,当列表框中的项目较多、超过了列表框的长度时,系统会自动在列表框边上加一个______。
滚动条
32)一个程序最多可以有________窗体。
255
33)将一般窗体转换为MDI窗体的子窗体时要把MDIChild属性的值设置为_______。
34)要选择多个不相邻的控件,按住_______或SHIFT键不放,再单击要选择的控件。
CTRL
35)表达式:
"
1"
+"
2"
="
3"
的值是_______。
FALSE
26)以下程序计算2到50间所有偶数的和,请补充完该程序
Submult()
DimSumAsInteger
Sum=0
DimIasinteger
For___to50
IfIMOD2=___Then___
Printsum
I=2#0#SUM=SUM+I
27)A=7,B=3,C=4,则表达式AMOD3+B^3/C\5的值为____。
28)下列循环语句,要求和数达到10既停止累加,退出循环,请补充完程序。
Forj=1to10
s=s+j
Ifs>
=10then______。
Nextj
EXITFOR
29)下列程序段的运行结果是:
Subsele()
DimnasInteger
I=21:
n=3
DoWhileI>
n
I=I-n
Loop
打印结果_____。
3
30)VisualBasie中的常量分为两种,一种是文字常量,一种是____常量。
符号
记录21
21)为了能自动放大或缩小图象框中的图形以与图象框的大小相适应,必须把该图象框的Stretch属性设置为______。
22)根据变量的定义位置和所使用的变量定义语句的不同,VB中的变量可以分为3类,即_____、模块变量和全局变量。
局部变量
23)表达式3>
4and7=5的值是______。
24)以下的程序用来输出100到2000间不能被3整除的数字,请补充完该程序。
PrivateSubCommmand1_Click()
x=100
DoUntilx>
_____
IfxMod3<
0Then
Printx
x=x+1
X>
200
25)下列程序段的执行时,共循环____次。
Fora=0To1
Forb=1To2
Forc=1To3
I=I+1
Nextc
Nextb
nexta
12
46)复选对象是否被选中,是由其_____属性决定的。
a)Checked
b)Value
c)Enabled
d)Selected
B
47)没有Caption属性的控件是_____。
a)Label
b)OptionButton
c)Frame
d)LisBox
D
48)下列符号是VisualBasic中合法变量名的是_____。
a)IF
b)7AB
c)A[B]7
d)AB_7
49)使窗体自动向下移动的语句是Move_____。
a)Left,Top+100
b)Top+100
c)Top+100
d)Top=Top+100
A
50)
RGB函数通过红、绿、蓝三基色混合产生某种颜色,其语法为RGB(红、绿、蓝),括号中红、绿、蓝三基色的成分使用0-255之间的整数。
若使用3个滚动条分别输入3种基色,为保证输入数值有效,则应设置_____属性。
a)Max和Min
b)SmallChange和LargeChange
c)Scroll和Change
d)Value
41)用InputBox函数可帮助生成_______。
a)消息框
b)“保存”对话框
c)简单输入框
d)“颜色”对话框
C
42)______对象不能响应Click事件。
a)列表框
b)图片框
c)窗体
d)计时器
43)17mod3的运算结果是_____。
a)0.5
b)1
c)1.5
d)2
44)变量X=32769,则变量声明时不能将其声明为_____。
a)Intrger
b)Variant
c)Long
d)Single
45)表达式2*3^2+2*8/4+3^2的值为_____。
a)64
b)31
c)49
d)22
36)_____是由VisualBasic提供的一种专门的子程序,由对象本身所具有,反映该对象功能的内部函数或过程。
a)文件
b)属性
c)方法
d)窗体
37)刚建立一个新的标准EXE工程后,不在工具箱中出现的控件是_____。
a)单选按钮
c)通用对话框
d)文本框
38)下列各项不是VisualBasic的基本数据类型的是_____。
a)Char
b)String
c)Integer
d)Double
39)下列运算结果中,值最大的是______。
a)3\4
b)3/4
c)4mod3
d)3mod4
40)以下不属控件的一项是_____。
a)文本框
b)标签框
c)列表框
d)消息框
31)有如下程序,该程序将______。
ForI=1to10step0
K=k+2
a)形成无限循环。
b)循环体执行一此后结束循环。
c)语法错误。
d)循环体不执行即结束循环。
32)有如下程序段,该程序段执行完毕后,共循环了________。
ForI=1To5
Forj=1ToI
Fork=jTo4
Print"
a"
Nextk
a)4
b)5
c)38
d)40
33)有如下程序,该程序的运行结果为______。
DimkAsInteger
n=5:
m=1:
k=1
DoWhilek<
=n
m=m*2
k=k+1
Printm
a)1
c)32
34)以下程序输出1到1000之间所有的偶数之和,请补充完该程序。
PrivateSubCommand_Click()
DimxAsDouble
ForI=0To1000
If____Then
x=x+I
a)iMod2=0
b)xMod2=0
c)IMod2<
0
d)xMod2<
35)以下是计算10的阶乘的程序,请补充该程序。
Dimtassingle
DimkasInteger
k=0:
t=1
While_______
t=t*k
Wend
Printt
a)k<
b)k>
c)k=10
d)k>
=10
记录31到35(总共351个记录)第一页前一页下一页最后一页
vb期末复习题库VisualBasic期末复习题库
单项选择题判断题填空题编程题
26)执行下列程序后,变量a的值为____。
dimaasinteger
a=0
forI=0to100step2
a=a+1
nextI
b)10
c)51
d)100
27)执行下列程序后,X的值为______。
X=3
y=6
DoWhiley<
=6
x=x*y
y=y+1
a)3
b)6
c)18
d)20
28)执行下列程序段后,整型变量c的值为___。
A=24
b=328
selectcaseb\10
case0
c=a*10+b
case1to9
c=a*100+b
case10to99
c=a*1000+b
endselect
a)537
b)2427
c)24328
d)240328
29)执行完下面的程序段后,循环将执行____次。
ForI=1.7To5.9Step0.9
Printa
b)4
c)5
d)6
30)有如下语句,执行后该段语句的循环次数是_____。
Dims,I,jasinteger
ForI=1to3
Forj=3To1Step-1
S=I*j
a)9
c)3
d)4
21)下面程序段的循环结构执行后,的输出值是_____。
程序段为:
ForI=1to10step2
y=y+I
printI;
a)25
c)11
d)因为Y的初值不知道,所以不确定
22)写列程序段的执行结果____。
A="
abbacddcba"
forI=6to2step-2
x=mid(a,I,I)
y=left(a,I)
z=right(a,I)
z=x&
y&
z
printUcase(z)
a)ABA
b)AABAAB
c)BBABBA
d)ABBABA
23)以下语句输出结果是(在立即窗口中)_____。
Beijing"
b="
ShangHai"
Printa;
b
a)BeijingShangHai
b)AbeijingShangHai
c)BeijingShangHai
d)Abeijing
24)有如下程序:
ForI=1To3
Forj=5To1Step-1
PrintI+j
Nextj,I
其循环执行的次数为______。
a)12
b)13
c)14
d)15
25)有如下程序段,该程序执行后,变量a的值为______。
ForI=1To2
ForJ=ITo2
ForK=1ToJ
a=a+2
NextK
NextJ
a)2
b)8
c)10
记录21到25(总共351个记录)第一页前一页下一页最后一页
16)下列程序的执行结果为_____。
A=100:
b=50
bThen
a=a-b
Else
b=b+a
Endif
a)50
b)100
c)200
d)10
17)下列程序的执行结果为________。
DimintsumAsInteger
DimIAsInteger
intsum=0
ForI=0To50Step10
intsum=intsum+I
Printintsum
a)150
b)200
c)50
d)0
18)下面程序执行后,X的结果为_____。
X=0
ForI=1to5
Forj=Ito5
X=X+1
PrintX
a)5
c)15
19)下面程序执行的结果是____。
PrivateSubForm_Click()
A$="
123"
:
B$="
456"
C=Val(A$)+Val(B$)
PrintC\100
a)123
b)3
d)579
20)下列循环语句将执行______次。
A=100
Do
Loopuntila<
c)100
d)死循环
记录16到20(总共351个记录)第一页前一页下一页最后一页
11)下列程序的运行后s的值是_____。
S=0
Forx=99to1Step-2
s=s+x
a)100
b)500
c)2500
d)5000
12)下列程序的执行结果是____。
a=I^I^K
printa;
a)111
b)123
c)000
d)149
13)下列程序的执行结果是_____。
Dima(5)AsString
DimbAsInteger
ForI=0To5
a(I)=I+1
Printa(I)
a)123456
c)654321
14)下列程序的执行结果为_____。
ForI=20.2To5Step-4.7
intsum=intsum+I
15)下列程序的执行结果为_____。
DimSAsInteger,nAsInteger
S=0:
n=1
DoWhilen<
=100
S=S+n
n=n+1
PrintS
a)5050
b)2500
c)3000
d)4000
记录11到15(总共351个记录)第一页前一页下一页最后一页
6)当执行以下程序时,在名为lblResult的标签框内将显示_____。
PrivateSubcmdlt_click()
DimI,R
R=0
ForI=1To5Step1
R=R+I
lblResult.Caption=Str(R)
a)字符串15
b)整数15
c)字符串5
d)整数5
7)如下有一段不完整的程序段,如果要求该程序执行3次循环,则应在程序中的括号里输入______。
X=1
do
x=x+3
printx
loopuntil(___)
a)x>
=8
b)x<
c)x>
=7
d)x<
8)若整型变量a的值为2、b的值为3,则下列程序段执行后整型变量c的值为______。
5then
ifb<
4then
c=a-b
else
c=b-a
elseifb>
3thenc=a*b
c=amodb
b)-1
c)1
9)设有如下语句:
str1=inputbox("
输入"
"
练习"
)
从键盘上输入字符串“示例”后,str1的值是___。
a)“输入”
b)“”
c)“练习”
d)“示例”
10)我们在一个窗体上建立两个文本框,名称分别为Text1和Text2,事件过程如下,
PrivateSubText1_change()
Text2.text=ucase(Text1.text)
则在Text1文本框输入“visualbasic”,Text2将______。
a)Text2中无内容显示。
b)Text2显示"
VISUALBASIC"
。
c)Text2显示"
visualbasic"
d)Text1显示"
记录6到10(总共351个记录)第一页前一页下一页最后一页
记录16
16)下列程序的执行结果是____。
T=O:
m=1:
Sum=0
t=t+m:
Sum=Sum+t:
m=m+2
LoopWhilem<
=9
PrintSum
55
17)一组具有相同名称,不同下标的下标变量称为______。
数组
18)给定年份,下列程序用来判断该年是否闰年,请补充完该程序。
提示:
闰年的条件是年号可以被4整除但不能被100整除,或者能被400整除。
PrivateSubCommand6_Click()
DimyAsInteger
y=InputBox("
请输入年号"
If(yMod4=0______yMod100<
0)or(yMod400=0)Then
是闰年"
ElsePrint"
是普通年份"
AND
19)设a=2,b=3,c=4,d=5下列a>
bandc<
dorc=a表达式的值是_____。
20)假定在C:
盘根目录下有一个名为pic2.gif的图形文件,要在运行期间把该文件装入一个图片框,应执行的语句为_____。
PICTURE1.PICTURE=LOADPICTURE("
C:
\PIC2.GIF"
到20(总共103个记录)第一页前一页下一页最后一页
1)下列程序运行后,输出的结果为______。
B=1
Dowhile(b<
40)
b=b*(b+1)
Printb
a)42
b)39
c)6
d)1
2)设执行以下程序段时依次输入1、3、5,执行结果为_____。
Dima(4)AsInteger
Dimb(4)AsInteger
ForK=0To2
a(K+1)=Val(InputBox(“请输入数据:
))
b(3-K)=a(K+1)
Printb(K)
3)下列程序执行后,变量s的值为______。
DimsAslong,xAsInteger
s=0:
x=1
DoWhile(x<
10)
x=x+2
Lo