计算机二级VB第6章选择题及答案.docx
《计算机二级VB第6章选择题及答案.docx》由会员分享，可在线阅读，更多相关《计算机二级VB第6章选择题及答案.docx（36页珍藏版）》请在冰豆网上搜索。
计算机二级VB第6章选择题及答案
1、窗体上有一个命令按钮Command1，编写如下事件过程：
PrivateSubCommand1_Click（）
a=Val（InputBox（"请输入分数：
","计算你的等级",60））
Ifa<0Ora>100Then
Print"输入错误"
ElseIfa<60Then
Print"不及格"
ElseIfa<80Then
Print"合格"
Else
Print"优秀"
EndIf
EndSub
运行时，单击按钮，在输入对话框中直接回车，输出结果为（）。
A、输入错误
B、不合格
C、合格
D、优秀
2、窗体上有一个命令按钮Command1，编写如下事件过程：
PrivateSubCommand1_Click（）
DimiAsInteger
DimsumAsInteger
sum=0
Fori=1To200
sum=sum+i
IfiMod19=18Then
ExitFor
EndIf
Nexti
Printsum
EndSub
运行时，单击按钮，输出结果为（）。
A、20100
B、0
C、190
D、171
3、运行下列程序，单击窗体后输出的结果是（）。
PrivateSubForm_Click（）
DimkAsInteger
Fork=1To2
Print"3"+k;"3"&k;Spc（3）;
Next
EndSub
A、3131
3232
B、31313232
C、431
532
D、431532
4、下列程序段的执行结果是（）。
X=3:
Y=5:
z=9
X=X+Y
Y=X-Y
IfX+Y>Z-XThenz=X+Y
IfX+Y>Z-YThenX=z+Y
PrintX,Y,Z
A、359
B、14311
C、8311
D、859
5、执行下列程序段后输出的结果是（）。
s=1
Fori=1To3
Forj=0Toi-1
s=s+s*j
Nextj
Prints;
NextI
A、12
B、21
C、2212
D、1212
6、窗体上有一个命令按钮command1，编写如下事件过程：
PrivateSubCommand1_Click（）
DimiAsInteger
DimsumAsInteger
Fori=1Toi+99
sum=sum+i
i=i+1
Nexti
Printsum
EndSub
运行时单击按钮，输出结果是（）。
A、编译错误
B、2401
C、2500
D、变量sum溢出
7、执行下列程序段后，窗体输出的结果是（）。
DimaAsInteger
a=Val（InputBox（"请输a的值",,6））
SelectCasea
Case1To4
Print"A"
CaseIs>3
Print"B"
Case5To10
Print"C"
CaseElse
Print"D"
EndSelect
A、A
B、B
C、C
D、D
8、有如下程序段：
PrivateSubForm_Click（）
Dims%,t%,a%,b%
s=1:
t=1
a=Val
b=Val
Ifa>0Thens=s+1
Ifa>bThen
t=t+s
Else
Ifa=bThen
t=5
Else
t=2*s
EndIf
EndIf
Printt
EndSub
要使程序输出结果为4，则a和b应满足的条件是（）。
A、a>0andaB、a<0andaC、a>0anda>b
D、a<0anda>b
9、窗体上有一个命令按钮Command1，编写如下事件过程：
PrivateSubCommand1_Click（）
Dimi%,j%,x%,n%
x=0
n=InputBox（""）
Fori=1Ton
Forj=1Toi
x=x+j
Nextj
Nexti
Printx
EndSub
运行时单击命令按钮，如果在输入对话框中输入3，则窗体上显示的内容是（）。
A、6
B、10
C、14
D、18
10、已知字母D的ASCII码是68。
在窗体上添加命令按钮Command1，并编写如下事件过程，要使单击按钮输出如下结果，程序中空缺的部分应为（）。
D
EDE
FEDEF
GFEDEFG
PrivateSubCommand1_Click（）
m=68:
a="D"
Printa
Fori=（）
m=m+1
a=Chr（m）+a+Chr（m）
Printa
Nexti
EndSub
A、0to4
B、1to3
C、1to4
D、1to5
11、运行下列程序段，其中n=n+1语句被执行的次数是（）
Dimm%,n%
Form=1to3
Forn=1to6Step2
n=n+1
Printn
Next
Next
A、3
B、6
C、9
D、18
12、窗体上有一个命令按钮Command1，编写如下事件过程：
PrivateSubCommand1_Click（）
Fori=1To4
Forj=4To8
Sum=Sum+1
Nextj
Nexti
PrintSum
EndSub
运行时单击按钮，输出的结果是（）。
A、4
B、8
C、20
D、32
13、执行下列程序段后，x的值是（）。
n=5:
x=1:
I=1
Do
x=x*I
I=I+1
LoopWhileIA、10
B、15
C、24
D、120
14、窗体上有一个命令按钮Command1,编写如下事件过程
PrivateSubCommand1_Click（）
Sum=0
Form=1To3
SelectCasem
Case1
a=1
Case2
a=2
Case3
a=3
EndSelect
Printa
Sum=Sum+a
Nextm
PrintSum
EndSub
单击命令按钮输出结果是（）。
A、3339
B、3216
C、1113
D、1236
15、窗体上有一个命令按钮Command1，编写如下事件过程：
PrivateSubCommand1_Click（）
a=0
Form=1To3
a=a+1
b=0
Forj=1To3
a=a+1
b=b+2
Nextj
Nextm
Printa,b
EndSub
运行时，单击按钮，输出结果为（）。
A、66
B、618
C、126
D、1218
16、窗体上有一个命令按钮（command1），编写如下事件过程：
PrivateSubCommand1_Click（）
a=80:
b=50:
c=30
IfacThenb=c
Ifb=cAndaIfa=bAndb>cThenc=a+b
Printa,b,c
EndSub
运行时单击命令按钮，窗体输出的结果是（）。
A、805030
B、803030
C、503080
D、503030
17、阅读下列程序段：
m=0
Fori=1To3
Forj=1Toi
m=m+j
Nextj,i
执行以上的循环后，i和m的值分别为（）。
A、36
B、310
C、46
D、410
18、阅读下列程序段：
x=0
Fori=1To4
Forj=1Toi
X=x+1
Nextj,i
执行以上的循环后，x的值为（）。
A、6
B、9
C、10
D、16
19、如下程序段的功能是计算1/2+1/4+1/6+……+1/50,并显示结果
PrivateSubCommand1_Click（）
DimiAsInteger
DimsumAsDouble
i=［1］
sum=0
DoWhile（i<=50）
sum=sum+1/［2］
i=i+2
Loop
Printsum
EndSub
［1］［2］处分别填写（）。
A、2，sum
B、2，I
C、0，sum
D、1，I
20、以下条件语句错误的是（）。
A、IfxTheny=y+1
B、Ifx=0Theny=0
C、Ifx>0Theny=1:
Printy
D、Ifx>yThenPrintyEndIf
21、窗体上有两个文本框（Text1、Text2）和一个命令按钮（Command1），编写如下事件过程：
PrivateSubCommand1_Click（）
x=0
DoWhilex<50
x=（x+2）*（x+4）
n=n+1
Loop
=CStr（n）
=CStr（x）
EndSub
运行时，单击命令按钮，Text1和Text2将分别显示（）。
A、0和0
B、1和8
C、2和120
D、3和15180
22、窗体上有命令按钮Command1和Command2，阅读下列程序：
DimaAsInteger
PrivateSubForm_Load（）
a=0:
a=a+1
EndSub
PrivateSubCommand1_Click（）
DimaAsInteger
a=a+2
Printa,
EndSub
PrivateSubCommand2_Click（）
Printa
EndSub
运行时，先后单击Command1和Command2按钮，输出的结果为（）。
A、21
B、31
C、22
D、11
23、下列程序段的执行结果是（）。
x=100:
y=80:
z=30
Ifx>yOryIfy=zAndx>zThenx=x-z
Printx,y,z
A、703030
B、1003030
C、708030
D、1008030
24、运行下列程序，单击窗体后输出的结果是（）。
PrivateSubForm_Click（）
s=1
Fori=1To2
Forj=0Toi
s=s+s*j
Prints;Spc
（2）;
Nextj
Print
Nexti
EndSub
A、12
412
B、12
24
C、12
2412
D、12
126
25、执行下列程序段后，x的值是（）。
n=5:
x=1:
i=1
Do
x=x*i
i=i+1
LoopWhileiA、10
B、15
C、24
D、120
26、在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程:
PrivateSubCommand1_Click（）
x=-5
IfSgn（x）Then
y=Sgn（x^2）
Else
y=Sgn（x）
EndIf
Printy
EndSub
程序运行后,单击命令按钮,窗体上显示的是（）。
A、-5
B、25
C、1
D、-1
27、下列程序段是求两个数中的最大数，其中不正确的是（）。
A、IfaB、Max=IIf（a>b，a，b）
C、Max=a:
Ifb>=aThenMax=b
D、Ifb>=aThenMax=b:
Max=a
28、以下程序段的输出结果是（）。
M=24:
N=18
A=M:
B=N
R=MModN
DoWhileR<>0
M=N
N=R
R=MModN
Loop
PrintA*B/N
A、6
B、24
C、72
D、432
29、假定有如下事件过程：
PrivateSubForm_Click（）
DimxAsInteger,nAsInteger
x=1
n=0
DoWhilex<32
x=x*3
n=n+1
Loop
Printx,n
EndSub
程序运行后，单击窗体，输出结果是（）。
A、814
B、563
C、281
D、2435
30、下列程序段的运行结果是（）。
PrivateSubForm_Click（）
Fori=1To5
SelectCaseiMod2
Case0
Print"*"
ExitFor
Case1
Print"$"
CaseElse
Print"#"
EndSelect
Nexti
EndSub
A、*
#
B、$
*
C、*
$
D、$
#
31、如下程序段的功能是：
从键盘上输入若干学生的考试分数，当输入负数时结束输入，然后输出其中最高的分数和最低的分数。
PrivateSubForm_Click（）
DimxAsSingle,mmaxAsSingle,mminAsSingle
x=InputBox（"请输入学生的考试分数"）
mmax=x
mmin=x
DoWhile［1］
If［2］Then
mmax=x
EndIf
Ifxmmin=x
EndIf
x=InputBox（"请输入学生的考试分数"）
Loop
Print"Max=";mmax,"Min=";mmin
EndSub
程序的空缺处［1］和［2］应分别填写（）。
A、x>=0和x>mmax
B、x>=0和xC、x<0和x>mmax
D、x<0和x32、窗体上有一个文本框Text1和命令按钮Command1，编写如下事件过程：
PrivateSubCommand1_Click（）
i=
SelectCasei
Case1:
j="+"
Case2:
j="-"
Case3:
j="*"
CaseElse:
j="非法"
EndSelect
=j
EndSub
运行时，在Text1中输入1后单击命令按钮，Text1中内容是（）。
A、+
B、-
C、*
D、非法
33、在窗体上有两个列表框List1、List2，一个命令按钮Command1，有5个列表项，为空，程序运行后，单击Command1，List1和List2中分别有（）个字段。
PrivateSubCommand1_Click（）
DimiAsInteger
Fori=1To-1
（1）=True
1
Nexti
EndSub
A、0和5
B、1和4
C、5和0
D、4和1
34、窗体上有一个命令按钮Command1，编写如下事件过程：
PrivateSubCommand1_Click（）
x=InputBox（x）
Ifx^2=16Theny=x
Ifx^2<16Theny=1/x
Ifx^2>16Theny=x^2+1
Printy
EndSub
运行时，单击按钮，在输入框中输入6后回车，窗体上将显示（）。
A、6
B、
C、37
D、65
35、下列程序段的执行结果是（）。
n=1
j=1
DoWhilej<=4
n=n*j
Printn;
j=j+1
Loop
A、1234
B、12624
C、2468
D、14711
36、设有以下程序段：
Fori=1To4
Forj=6To1Step-1
Printi*j
Nextj,i
则语句Printi*j的执行次数是（）。
A、12
B、13
C、24
D、25
37、执行下列程序段后，窗体显示的内容为
PrivateSubForm_Click（）
a=85
Ifa>=60Then
i=i+1
ElseIfa>=70Then
i=i+2
ElseIfa>=80Then
i=i+3
ElseIfa>=90Then
i=i+4
EndIf
Print"i=",i
EndSub
A、i=1
B、i=2
C、i=3
D、i=4
38、窗体上有一个命令按钮Command1，编写如下事件过程：
PrivateSubCommand1_Click（）
x=0
DoWhilex<10
x=（x-2）*（x+3）
n=n+1
Loop
EndSub
运行时单击按钮，n和x的值分别是（）。
A、1和0
B、2和24
C、3和50
D、4和68
39、下列循环语句能正常结束循环的是（）。
A、i=5
Do
i=i+1
LoopUntili<0
B、i=1
Do
i=i+2
LoopUntili=10
C、i=10
Do
i=i-1
LoopUntili<0
i=6
D、Do
i=i-2
LoopUntili=1
40、执行下列程序段后，x的值是（）。
n=6:
x=1:
I=1
Do
x=x*I
I=I+1
LoopWhileIA、120
B、1
C、6
D、21
41、执行以下程序段后，窗体显示的内容为
PrivateSubForm_Click（）
a=75
Ifa>=60Then
i=i+4
ElseIfa>=70Then
i=i+3
ElseIfa>=80Then
i=i+2
ElseIfa>=90Then
i=i+1
EndIf
Print"i=",i
EndSub
A、i=4
B、i=3
C、i=2
D、i=1
42、以下程序段的执行结果是（）。
n=2
j=1
DoWhilej<4
n=n*j
Printn;
j=j+1
Loop
A、234
B、2624
C、248
D、2412
43、运行下列程序段，n的值是（）
Dimm%,n%
Form=1to3
Forn=1to6Step2
n=n+1
Next
Next
A、9
B、1
C、7
D、3
44、执行以下程序段后，窗体显示的内容为（）。
PrivateSubForm_Click（）
s=2
Fori=1To2
Forj=0Toi
s=s+s*j
Prints;Spc
（2）;
Nextj
Print
Nexti
EndSub
A、24
824
B、12
2412
C、24
48
D、24
4824
45、以下程序段的执行结果是（）。
DimaAsInteger,bAsInteger,cAsInteger
a=14:
b=9:
c=5:
a=a+b:
c=c+b
Ifa-c>b-cThena=b+c
Ifa-b>b-cThenb=a-c
Printa,b,c
A、14914
B、23914
C、23149
D、1495
46、执行以下程序段后输出的结果是（）。
Fori=1To3
x=4
Forj=1To4
x=x+6
Nextj
Nexti
Printx;
A、16
B、24
C、28
D、22
47、以下程序段的执行结果是（）。
n=2
j=1
DoWhilej<4
n=n*j
Printn;
j=j+1
Loop
A、234
B、2624
C、2412
D、248
48、运行下列程序，单击窗体后输出的结果是（）。
PrivateSubForm_Click（）
s=1
Fori=1To2
Forj=
升级会员 