vb复习题题目 答案 修复的Word文档下载推荐.docx
《vb复习题题目 答案 修复的Word文档下载推荐.docx》由会员分享，可在线阅读，更多相关《vb复习题题目 答案 修复的Word文档下载推荐.docx（89页珍藏版）》请在冰豆网上搜索。
Printb（K）
a）1
b）3
c）5
d）0答案：
3）下列程序执行后，变量s的值为______。
DimsAslong,xAsInteger
s=0:
x=1
DoWhile（x<
10）
s=s+x
x=x+2
当x=11时退出循环s=25
Prints
a）10
b）25
c）50
d）100答案：
B
4）编写如下事件过程：
PrivateSubForm_MouseDown（ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle）
IfShift=6AndButton=2Then
Print"
Hello"
EndIf
EndSub
程序运行后，为了在窗体上输出"
，应在窗体上执行以下___D____操作。
a）同时按下Shift键和鼠标左键
b）同时按下Shift键和鼠标右键
c）同时按下Ctrl、Alt键和鼠标左键
d）同时按下Ctrl、Alt键和鼠标右键答案：
D
5）当变量x=2,y=5时，以下程序的输出结果为____。
Dountily>
5
x=x*y
y=y+1
loop
printx
a）2
b）5
c）10
d）20答案：
C
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答案：
7）如下有一段不完整的程序段，如果要求该程序执行3次循环，则应在程序中的括号里输入______。
X=1
do
x=x+3
printx
loopuntil（___）
a）x>
=8
b）x<
c）x>
=7
d）x<
=7答案：
8）若整型变量a的值为2、b的值为3，则下列程序段执行后整型变量c的值为______。
Ifa>
5then
ifb<
4then
c=a-b
else
c=b-a
Endif
elseifb>
3thenc=a*b
c=amodb
Endif
b）-1
c）1
d）6答案：
9）设有如下语句：
str1=inputbox（"
输入"
"
练习"
）
从键盘上输入字符串“示例”后，str1的值是___。
a）“输入”
b）“”
c）“练习”
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显示"
答案：
11）下列程序的运行后s的值是_____。
S=0
Forx=99to1Step-2
Nextx
a）100
b）500
c）2500
d）5000答案：
12）下列程序的执行结果是____。
K=0
ForI=1To3
任何数的0次幂均为1
a=I^I^K
printa;
NextI
a）111
b）123
c）000
d）149答案：
13）下列程序的执行结果是_____。
Dima（5）AsString
DimbAsInteger
DimIAsInteger
ForI=0To5
a（I）=I+1
Printa（I）
NextI
a）123456
b）6
c）654321
14）下列程序的执行结果为_____。
DimintsumAsInteger
DimIAsInteger
intsum=0
ForI=20.2To5Step-4.7
intsum=intsum+I
20+15+10+5=50
Printintsum
a）150
b）200
15）下列程序的执行结果为_____。
DimSAsInteger,nAsInteger
S=0:
n=1
DoWhilen<
=100
从1加到100的和为5050
S=S+n
n=n+1
PrintS
a）5050
b）2500
c）3000
d）4000答案：
16）下列程序的执行结果为_____。
a=100:
b=50
bThen
a=a-b
Else
b=b+a
a=50b=100
Printa
a）50
b）100
c）200
d）10答案：
17）下列程序的执行结果为________。
ForI=0To50Step10
intsum=intsum+I
18）下面程序执行后，X的结果为_____。
X=0
ForI=1to5
Forj=Ito5
X=X+1
Nextj
5+4+3+2+1=15
PrintX
a）5
b）10
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
Printa
a=a+1
Loopuntila<
=10
c）100
d）死循环答案：
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
nextI
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
其循环执行的次数为___3*5=15___。
a）12
b）13
c）14
d）15答案：
25）有如下程序段，该程序执行后，变量a的值为______。
ForI=1To2
ForJ=ITo2
ForK=1ToJ
a=a+2
NextJ
b）8
26）执行下列程序后，变量a的值为____。
DimIasinteger
dimaasinteger
a=0
forI=0to100step2
统计循环次数
nextI
c）51
27）执行下列程序后，X的值为______。
X=3
y=6
DoWhiley<
=6
x=x*y
Loop
a）3
c）18
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.
升级会员 