vb复习资料.docx
《vb复习资料.docx》由会员分享，可在线阅读，更多相关《vb复习资料.docx（59页珍藏版）》请在冰点文库上搜索。
vb复习资料
无标题文档VisualBasic期末复习题库
填空题判断题选择题编程题
记录46
46）货币型数据的类型标识符为______。
答案：
@
47）以下程序用来输出1到100所有奇数的和，请补充完该程序。
PrivateSubCommand3_Click（）
DimsAsLong
DimxAsInteger
s=0
Forx=1to100step____
s=s+x
Nextx
Prints
EndSub
答案：
2
48）假设有一复选框控件，名为Check1，在程序中，我们用“check1.value=1”语句设置Value属性的值，则该程序执行后，复选框处于____状态。
答案：
选中
49）激活属性窗口的快捷键是______。
答案：
F4
50）下列程序的执行结果是_______。
A=75
Ifa>60Then
I=1
ElseIfa>70Then
I=2
ElseIfa>80Then
I=3
ElseIfa>90Then
I=4
EndIf
PrintI
答案：
1
记录36
36）______属性用来设置窗体的标题。
它确定和改变显示在窗体的标题栏中的文本。
答案：
CAPTION
37）假定有一个文本框，其名称为Textl，为了使该文本框具有焦点，应执行的语句是______。
答案：
TEXT1.SETFOCUS
38）执行下面的程序段后，s的值为____。
S=5
ForI=2.6To4.9Step2
s=s+1
NextI
答案：
7
39）表达式“12345”<>“12345”&“ABC”的值是_____。
答案：
TRUE
40）下列程序用来计算1+2+3……+10的值，请补充完程序。
Dimt,kassingle
K=0
DOWhilek<10
K=k+1:
______
loop
printt
答案：
T=T+K
31）VisualBasie提供了列表框控件，当列表框中的项目较多、超过了列表框的长度时，系统会自动在列表框边上加一个______。
答案：
滚动条
32）一个程序最多可以有________窗体。
答案：
255
33）将一般窗体转换为MDI窗体的子窗体时要把MDIChild属性的值设置为_______。
答案：
TRUE
34）要选择多个不相邻的控件，按住_______或SHIFT键不放，再单击要选择的控件。
答案：
CTRL
35）表达式：
"1"+"2"="3"的值是_______。
答案：
FALSE
26）以下程序计算2到50间所有偶数的和，请补充完该程序
Submult（）
DimSumAsInteger
Sum=0
DimIasinteger
For___to50
IfIMOD2=___Then___
NextI
Printsum
EndSub
答案：
I=2#0#SUM=SUM+I
27）A=7,B=3,C=4,则表达式AMOD3+B^3/C\5的值为____。
答案：
2
28）下列循环语句，要求和数达到10既停止累加，退出循环，请补充完程序。
Forj=1to10
s=s+j
Ifs>=10then______。
Nextj
答案：
EXITFOR
29）下列程序段的运行结果是：
Subsele（）
DimnasInteger
I=21:
n=3
DoWhileI>n
I=I-n
Loop
PrintI
EndSub
打印结果_____。
答案：
3
30）VisualBasie中的常量分为两种，一种是文字常量，一种是____常量。
答案：
符号
记录21
21）为了能自动放大或缩小图象框中的图形以与图象框的大小相适应,必须把该图象框的Stretch属性设置为______。
答案：
TRUE
22）根据变量的定义位置和所使用的变量定义语句的不同，VB中的变量可以分为3类，即_____、模块变量和全局变量。
答案：
局部变量
23）表达式3>4and7=5的值是______。
答案：
FALSE
24）以下的程序用来输出100到2000间不能被3整除的数字，请补充完该程序。
PrivateSubCommmand1_Click（）
DimxAsInteger
x=100
DoUntilx>_____
IfxMod3<>0Then
Printx
EndIf
x=x+1
Loop
EndSub
答案：
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
答案：
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
41）用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）Intrger
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
36）_____是由VisualBasic提供的一种专门的子程序，由对象本身所具有，反映该对象功能的内部函数或过程。
a）文件
b）属性
c）方法
d）窗体
答案：
C
37）刚建立一个新的标准EXE工程后，不在工具箱中出现的控件是_____。
a）单选按钮
b）图片框
c）通用对话框
d）文本框
答案：
C
38）下列各项不是VisualBasic的基本数据类型的是_____。
a）Char
b）String
c）Integer
d）Double
答案：
A
39）下列运算结果中，值最大的是______。
a）3\4
b）3/4
c）4mod3
d）3mod4
答案：
D
40）以下不属控件的一项是_____。
a）文本框
b）标签框
c）列表框
d）消息框
答案：
D
31）有如下程序，该程序将______。
ForI=1to10step0
K=k+2
NextI
a）形成无限循环。
b）循环体执行一此后结束循环。
c）语法错误。
d）循环体不执行即结束循环。
答案：
A
32）有如下程序段，该程序段执行完毕后，共循环了________。
ForI=1To5
Forj=1ToI
Fork=jTo4
Print"a"
Nextk
Nextj
NextI
a）4
b）5
c）38
d）40
答案：
D
33）有如下程序，该程序的运行结果为______。
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
34）以下程序输出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
35）以下是计算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
记录31到35（总共351个记录）第一页前一页下一页最后一页
vb期末复习题库VisualBasic期末复习题库
单项选择题判断题填空题编程题
26）执行下列程序后，变量a的值为____。
DimIasinteger
dimaasinteger
a=0
forI=0to100step2
a=a+1
nextI
a）1
b）10
c）51
d）100
答案：
C
27）执行下列程序后，X的值为______。
X=3
y=6
DoWhiley<=6
x=x*y
y=y+1
Loop
a）3
b）6
c）18
d）20
答案：
C
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
答案：
C
29）执行完下面的程序段后，循环将执行____次。
ForI=1.7To5.9Step0.9
a=a+1
Printa
NextI
a）3
b）4
c）5
d）6
答案：
C
30）有如下语句，执行后该段语句的循环次数是_____。
Dims,I,jasinteger
ForI=1to3
Forj=3To1Step-1
S=I*j
Nextj
NextI
a）9
b）10
c）3
d）4
答案：
A
21）下面程序段的循环结构执行后，的输出值是_____。
程序段为：
ForI=1to10step2
y=y+I
NextI
printI;
a）25
b）10
c）11
d）因为Y的初值不知道，所以不确定
答案：
C
22）写列程序段的执行结果____。
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
23）以下语句输出结果是（在立即窗口中）_____。
A="Beijing"
b="ShangHai"
Printa;b
a）BeijingShangHai
b）AbeijingShangHai
c）BeijingShangHai
d）Abeijing
答案：
C
24）有如下程序：
ForI=1To3
Forj=5To1Step-1
PrintI+j
Nextj,I
其循环执行的次数为______。
a）12
b）13
c）14
d）15
答案：
D
25）有如下程序段，该程序执行后，变量a的值为______。
ForI=1To2
ForJ=ITo2
ForK=1ToJ
a=a+2
NextK
NextJ
NextI
a）2
b）8
c）10
d）20
答案：
C
记录21到25（总共351个记录）第一页前一页下一页最后一页
vb期末复习题库VisualBasic期末复习题库
单项选择题判断题填空题编程题
16）下列程序的执行结果为_____。
A=100:
b=50
Ifa>bThen
a=a-b
Else
b=b+a
Endif
Printa
a）50
b）100
c）200
d）10
答案：
A
17）下列程序的执行结果为________。
DimintsumAsInteger
DimIAsInteger
intsum=0
ForI=0To50Step10
intsum=intsum+I
NextI
Printintsum
a）150
b）200
c）50
d）0
答案：
A
18）下面程序执行后，X的结果为_____。
X=0
ForI=1to5
Forj=Ito5
X=X+1
Nextj
NextI
PrintX
a）5
b）10
c）15
d）20
答案：
C
19）下面程序执行的结果是____。
PrivateSubForm_Click（）
A$="123":
B$="456"
C=Val（A$）+Val（B$）
PrintC\100
EndSub
a）123
b）3
c）5
d）579
答案：
C
20）下列循环语句将执行______次。
A=100
Do
Printa
a=a+1
Loopuntila<=10
a）1
b）10
c）100
d）死循环
答案：
D
记录16到20（总共351个记录）第一页前一页下一页最后一页
vb期末复习题库VisualBasic期末复习题库
单项选择题判断题填空题编程题
11）下列程序的运行后s的值是_____。
S=0
Forx=99to1Step-2
s=s+x
Nextx
Prints
a）100
b）500
c）2500
d）5000
答案：
C
12）下列程序的执行结果是____。
K=0
ForI=1To3
a=I^I^K
printa;
NextI
a）111
b）123
c）000
d）149
答案：
A
13）下列程序的执行结果是_____。
Dima（5）AsString
DimbAsInteger
DimIAsInteger
ForI=0To5
a（I）=I+1
Printa（I）
NextI
a）123456
b）6
c）654321
d）0
答案：
A
14）下列程序的执行结果为_____。
DimintsumAsInteger
DimIAsInteger
intsum=0
ForI=20.2To5Step-4.7
intsum=intsum+I
NextI
Printintsum
a）150
b）200
c）50
d）0
答案：
C
15）下列程序的执行结果为_____。
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
记录11到15（总共351个记录）第一页前一页下一页最后一页
vb期末复习题库VisualBasic期末复习题库
单项选择题判断题填空题编程题
6）当执行以下程序时，在名为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
7）如下有一段不完整的程序段，如果要求该程序执行3次循环，则应在程序中的括号里输入______。
X=1
do
x=x+3
printx
loopuntil（___）
a）x>=8
b）x<=8
c）x>=7
d）x<=7
答案：
A
8）若整型变量a的值为2、b的值为3，则下列程序段执行后整型变量c的值为______。
Ifa>5then
ifb<4then
c=a-b
else
c=b-a
Endif
elseifb>3thenc=a*b
else
c=amodb
Endif
a）2
b）-1
c）1
d）6
答案：
A
9）设有如下语句：
str1=inputbox（"输入","","练习"）
从键盘上输入字符串“示例”后，str1的值是___。
a）“输入”
b）“”
c）“练习”
d）“示例”
答案：
D
10）我们在一个窗体上建立两个文本框，名称分别为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
记录6到10（总共351个记录）第一页前一页下一页最后一页
无标题文档VisualBasic期末复习题库
填空题判断题选择题编程题
记录16
16）下列程序的执行结果是____。
T=O:
m=1:
Sum=0
Do
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
Print"是闰年"
ElsePrint"是普通年份"
EndIf
EndSub
答案：
AND
19）设a=2,b=3,c=4,d=5下列a>bandc<>dorc=a表达式的值是_____。
答案：
FALSE
20）假定在C：
盘根目录下有一个名为pic2.gif的图形文件，要在运行期间把该文件装入一个图片框，应执行的语句为_____。
答案：
PICTURE1.PICTURE=LOADPICTURE（"C:
\PIC2.GIF"）
到20（总共103个记录）第一页前一页下一页最后一页
vb期末复习题库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
Lo
升级会员 