最新vb期末复习题1资料.docx
《最新vb期末复习题1资料.docx》由会员分享,可在线阅读,更多相关《最新vb期末复习题1资料.docx(109页珍藏版)》请在冰豆网上搜索。
最新vb期末复习题1资料
VisualBasic期末复习题库
单项选择题判断题填空题编程题
1)下列程序运行后,输出的结果为______。
B=1
Dowhile(b<40)
b=b*(b+1)
Loop
Printb
a)42
b)39
c)6
d)1答案:
A
2)设执行以下程序段时依次输入1、3、5,执行结果为_____。
Dima(4)AsInteger
Dimb(4)AsInteger
ForK=0To2
a(K+1)=Val(InputBox(“请输入数据:
"))
b(3-K)=a(K+1)
NextK
Printb(K)
a)1
b)3
c)5
d)0答案:
A
3)下列程序执行后,变量s的值为______。
DimsAslong,xAsInteger
s=0:
x=1
DoWhile(x<10)
s=s+x
x=x+2
Loop
Prints
a)10
b)25
c)50
d)100答案:
B
4)菜单控件只包括一个事件,即
(1),当用鼠标单击或键盘选中后按“回车”键
时触发该事件,除分隔条以外的所有菜单控件都能识别该事件。
C
A、GotFocusB、LoadC、ClickD、KeyDown
5)滚动条控件(如图所示)的Max属性所设置的是
(2)。
A、滚动框处于最右位置时,一个滚动条位置的Value属性最大设置值
B、单击滚动条和滚动箭头之间的区域时,滚动条中滚动块的最大移动量
C、单击滚动条的箭头区域时,滚动条中滚动块的最大移动量
D、滚动条控件无该属性
6)编写如下事件过程:
PrivateSubForm_MouseDown(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)
IfShift=6AndButton=2Then
Print"Hello"
EndIf
EndSub
程序运行后,为了在窗体上输出"Hello",应在窗体上执行以下_______操作。
a)同时按下Shift键和鼠标左键
b)同时按下Shift键和鼠标右键
c)同时按下Ctrl、Alt键和鼠标左键
d)同时按下Ctrl、Alt键和鼠标右键答案:
D
7)当变量x=2,y=5时,以下程序的输出结果为____。
Dountily>5
x=x*y
y=y+1
loop
printx
a)2
b)5
c)10
d)20答案:
C
8)当执行以下程序时,在名为lblResult的标签框内将显示_____。
PrivateSubcmdlt_click()
DimI,R
R=0
ForI=1To5Step1
R=R+I
NextI
lblResult.Caption=Str(R)
EndSub
a)字符串15
b)整数15
c)字符串5
d)整数5答案:
A
9)如下有一段不完整的程序段,如果要求该程序执行3次循环,则应在程序中的括号里输入______。
X=1
do
x=x+3
printx
loopuntil(___)
a)x>=8
b)x<=8
c)x>=7
d)x<=7答案:
A
10)若整型变量a的值为2、b的值为3,则下列程序段执行后整型变量c的值为______。
Ifa>5then
ifb<4then
c=a-b
else
c=b-a
Endif
elseifb>3then
c=a*b
else
c=amodb
Endif
a)2
b)-1
c)1
d)6答案:
A
11)设有如下语句:
str1=inputbox("输入","","练习")
从键盘上输入字符串“示例”后,str1的值是___。
a)“输入”
b)“”
c)“练习”
d)“示例”答案:
D
12)我们在一个窗体上建立两个文本框,名称分别为Text1和Text2,事件过程如下,
PrivateSubText1_change()
Text2.text=Ucase(Text1.text)
EndSub
则在Text1文本框输入“visualbasic”,Text2将______。
a)Text2中无内容显示。
b)Text2显示"VISUALBASIC"。
c)Text2显示"visualbasic"
d)Text1显示"visualbasic"答案:
B
13)下列程序的运行后s的值是_____。
S=0
Forx=99to1Step-2
s=s+x
Nextx
Prints
a)100
b)500
c)2500
d)5000答案:
C
14)下列程序的执行结果是____。
K=0
ForI=1To3
a=I^I^K
printa;
NextI
a)111
b)123
c)000
d)149答案:
A
15)下列程序的执行结果是_____。
Dima(5)AsString
DimbAsInteger
DimIAsInteger
ForI=0To5
a(I)=I+1
Printa(I)
NextI
a)123456
b)6
c)654321
d)0答案:
A
16)下列程序的执行结果为_____。
DimintsumAsInteger
DimIAsInteger
intsum=0
ForI=20.2To5Step-4.7
intsum=intsum+I
NextI
Printintsum
a)150
b)200
c)50
d)0答案:
C
17)下列程序的执行结果为_____。
DimSAsInteger,nAsInteger
S=0:
n=1
DoWhilen<=100
S=S+n
n=n+1
Loop
PrintS
a)5050
b)2500
c)3000
d)4000答案:
A
18)下列程序的执行结果为_____。
A=100:
b=50
Ifa>bThen
a=a-b
Else
b=b+a
Endif
Printa
a)50
b)100
c)200
d)10答案:
A
19)下列程序的执行结果为________。
DimintsumAsInteger
DimIAsInteger
intsum=0
ForI=0To50Step10
intsum=intsum+I
NextI
Printintsum
a)150
b)200
c)50
d)0答案:
A
20)下面程序执行后,X的结果为_____。
X=0
ForI=1to5
Forj=Ito5
X=X+1
Nextj
NextI
PrintX
a)5
b)10
c)15
d)20答案:
C
21)下面程序执行的结果是____。
PrivateSubForm_Click()
A$="123":
B$="456"
C=Val(A$)+Val(B$)
PrintC\100
EndSub
a)123
b)3
c)5
d)579答案:
C
22)下列循环语句将执行______次。
A=100
Do
Printa
a=a+1
Loopuntila<=10
a)1
b)10
c)100
d)死循环答案:
D
23)下面程序段的循环结构执行后,的输出值是_____。
程序段为:
ForI=1to10step2
y=y+I
NextI
printI;
a)25
b)10
c)11
d)因为Y的初值不知道,所以不确定答案:
C
24)写列程序段的执行结果____。
A="abbacddcba"
forI=6to2step-2
x=mid(a,I,I)
y=left(a,I)
z=right(a,I)
z=x&y&z
nextI
printUcase(z)
a)ABA
b)AABAAB
c)BBABBA
d)ABBABA答案:
C
25)以下语句输出结果是(在立即窗口中)_____。
A="Beijing"
b="ShangHai"
Printa;b
a)BeijingShangHai
b)AbeijingShangHai
c)BeijingShangHai
d)Abeijing答案:
C
26)有如下程序:
ForI=1To3
Forj=5To1Step-1
PrintI+j
Nextj
NEXTI
其循环执行的次数为______。
a)12
b)13
c)14
d)15答案:
D
27)有如下程序段,该程序执行后,变量a的值为______。
ForI=1To2
ForJ=ITo2
ForK=1ToJ
a=a+2
NextK
NextJ
NextI
a)2
b)8
c)10
d)20答案:
C
28)执行下列程序后,变量a的值为____。
DimIasinteger
dimaasinteger
a=0
forI=0to100step2
a=a+1
nextI
a)1
b)10
c)51
d)100答案:
C
29)执行下列程序后,X的值为______。
X=3
y=6
DoWhiley<=6
x=x*y
y=y+1
Loop
a)3
b)6
c)18
d)20答案:
C
30)执行下列程序段后,整型变量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答案:
C
31)执行完下面的程序段后,循环将执行____次。
ForI=1.7To5.9Step0.9
a=a+1
Printa
NextI
a)3
b)4
c)5
d)6答案:
C
32)有如下语句,执行后该段语句的循环次数是_____。
Dims,I,jasinteger
ForI=1to3
Forj=3To1Step-1
S=I*j
Nextj
NextI
a)9
b)10
c)3
d)4答案:
A
33)有如下程序,该程序将______。
ForI=1to10step0
K=k+2
NextI
a)形成无限循环。
b)循环体执行一此后结束循环。
c)语法错误。
d)循环体不执行即结束循环。
答案:
A
34)有如下程序段,该程序段执行完毕后,共循环了________。
ForI=1To5
Forj=1ToI
Fork=jTo4
Print"a"
Nextk
Nextj
NextI
a)4
b)5
c)38
d)40答案:
D
35)有如下程序,该程序的运行结果为______。
DimkAsInteger
n=5:
m=1:
k=1
DoWhilek<=n
m=m*2
k=k+1
Loop
Printm
a)1
b)5
c)32
d)40答案:
C
36)以下程序输出1到1000之间所有的偶数之和,请补充完该程序。
PrivateSubCommand_Click()
DimxAsDouble
ForI=0To1000
If____Then
x=x+I
EndIf
NextI
Printx
EndSub
a)iMod2=0
b)xMod2=0
c)IMod2<>0
d)xMod2<>0答案:
A
37)以下是计算10的阶乘的程序,请补充该程序。
Dimtassingle
DimkasInteger
k=0:
t=1
While_______
k=k+1
t=t*k
Wend
Printt
a)k<10
b)k>10
c)k=10
d)k>=10答案:
A
38)_____是由VisualBasic提供的一种专门的子程序,由对象本身所具有,
反映该对象功能的内部函数或过程。
a)文件
b)属性
c)方法
d)窗体答案:
C
39)刚建立一个新的标准EXE工程后,不在工具箱中出现的控件是_____。
a)单选按钮
b)图片框
c)通用对话框
d)文本框答案:
C
40)下列各项不是VisualBasic的基本数据类型的是_____。
a)Char
b)String
c)Integer
d)Double答案:
A
41)下列运算结果中,值最大的是______。
a)3\4
b)3/4
c)4mod3
d)3mod4答案:
D
40)以下不属控件的一项是_____。
a)文本框
b)标签框
c)列表框
d)消息框答案:
D
42)用InputBox函数可帮助生成_______。
a)消息框
b)“保存”对话框
c)简单输入框
d)“颜色”对话框答案:
C
42)______对象不能响应Click事件。
a)列表框
b)图片框
c)窗体
d)计时器答案:
D
43)17mod3的运算结果是_____。
a)0.5
b)1
c)1.5
d)2答案:
D
44)变量X=32769,则变量声明时不能将其声明为_____。
a)Integer
b)Variant
c)Long
d)Single答案:
A
45)表达式2*3^2+2*8/4+3^2的值为_____。
a)64
b)31
c)49
d)22答案:
B
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答案:
D
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答案:
A
51)_____控件可以使用SetFocus()方法。
a)Frame
b)Label
c)TextBox
d)Timer答案:
C
52)滚动条单击边上的箭头按钮移动的大小由_____设定。
a)Change
b)SmallChange
c)Scroll
d)Tabstop答案:
B
53)下列程序段的执行结果为______。
N=0:
J=1
DoUntilN>2
N=N+1
J=J+N*(N+1)
Loop
PrintN;J
a)01
b)37
c)321
d)313答案:
C
54)下列程序段的执行结果为______。
X=6
ForK=1To10Step-2
X=X+K
NextK
PrintK;X
a)-16
b)-116
c)16
d)1131答案:
C
55)下列程序段的执行结果为______。
K=0
ForJ=1to2
ForI=1to3
K=I+1
NextI
ForI=1to7
K=K+1
NextI
NextJ
PrintK
a)10
b)6
c)11
d)16答案:
C
56)下列程序段的执行结果为_______。
M=0
ForI=1To3
ForJ=5To1Step-1
N=N+1
NextJ,I
PrintN;J;I
a)1204
b)1504
c)1231
d)1531答案:
B
57)下列程序段运行后,输出结果是____。
B=1
Dountilb>7
b=b*(b+1)
Loop
Printb
a)7
b)39
c)42
d)1答案:
C
58)下列程序共执行了________循环。
DimintsumAsInteger
DimIAsInteger
DimjAsInteger
ForI=1To10Step2
Forj=1To5Step2
intsum=intsum+j
Nextj
NextI
a)10
b)20
c)25
d)15答案:
D
59)x是小于100的非负数,用vb表达式正确的是______。
a)0
b)0<=x<100
c)x>=0ANDx<100
d)0<=xORx<100答案:
C
60)15.5\2的结果是_____。
a)1
b)1.5
c)7
d)8答案:
D
61)19.5Mod2*2的运算结果是_____。
a)3.5
b)1
c)3
d)0答案:
D
62)a=5,b=8,则int((b-a)*rnd+a)的结果是介于_____之间的整数。
a)[5,8)
b)(0,5)
c)[3,5)
d)(0,3]答案:
A
63)a和b中有且只有一个为0,可以用以下表达式来表示_____。
a)a=0orb=0
b)a=0Xorb=0
c)a*b=0Anda+b<>0
d)a=0Andb=0答案:
B
64)Boolean类型的数据由几个字节组成_______。
a)1
b)2
c)3
d)4答案:
B
65)Cint函数返回值类型是_____。
a)整型
b)字符串
c)变体
d)双精度浮点型答案:
A
66)ControlBox属性只适用于窗体,当窗体的______属性设置为0-None时,
则ControlBox属性不起作用。
a)Borderstyle
b)Autoredraw
c)Windowstate
d)Enabled答案:
A
67)dima(-3to3)所定义的数组元素个数是_____。
a)6
b)7
c)8
d)9答案:
B
68)Dimb1,b2asboolean语句显式声明变量_____。
a)b1和b2都为布尔型变量
b)b1是整型,b2是布尔型
c)b1是变体型(可变型),b2是布尔型
d)b1和b2都是变体型(可变型)答案:
C
69)Double类型的数据由_____个字节组成。
a)21
b)4
c)8
d)16答案:
C
70)Inputbox()函数的返回值类型为_____。
a)数值型
b)字符型
c)逻辑型
d)变体型答案:
B
71)Inputbox函数的参数中,必选参数Prompt的作用是_____。
a)输出信息
b)定义提示信息
c)定义隐含信息
d)定义输入的位置答案:
B
72)Rnd函数不可能产生的值是_____。
a)0
b)1
c)0.1234
d)0.00005答案:
B
73)VisualBasic是一种面向对象的程序设计语言,构成对象的三要素是________。
a)属性、事件、方法
b)控件、属性、事件
c)窗体、控件、过程
d)窗体、控件、模块答案:
A
74)变