vb大一选择程序结构习题答案答案_精品文档Word下载.doc
《vb大一选择程序结构习题答案答案_精品文档Word下载.doc》由会员分享，可在线阅读，更多相关《vb大一选择程序结构习题答案答案_精品文档Word下载.doc（5页珍藏版）》请在冰豆网上搜索。
Good"
Case4
Ok"
Case3
a$="
Pass"
CaseElse
Bad"
EndSelect
MsgBoxa$
EndSub
A、Bad B、Pass C、Ok D、Good
4.下面语句书写正确的是（D）。
（A）Ifa>
maxThenmax=aElsemax=bEndIf
（B）Ifa>
maxThenmax=a
Elsemax=b
EndIf
（C）Ifa>
maxThen
max=a
Else
max=6
（D）Ifa>
maxThen
max=a
5.执行下列程序段输出的结果为（C）。
a=3
IFa>
0Then
Print＂###＂
Else
Print＂$$$＂
EndIf
A）###$$$
B）$$$###
C）###
D）$$$
6.下面程序段运行后,显示的结果是（B）
dimx
ifxthenprintxelseprintx+1
（A）1（B）0（C）-1（D）显示出错信息
7:
语句IFx=1THENy=1,下列说法正确的是（C）
（A）X=1和Y=1均为赋值语句（B）X=1和Y=1均为关系表达式
（C）X=1为关系表达式,Y=1为赋值语句（D）X=1为赋值语句,Y=1为关系表达式
8.用IF语句表示分段函数，下列程序段不正确的是（A）
（A） Ifx>
=1thenf=sqr（x+1）（B）Ifx>
=1thenf=sqr（x+1）
F=x*x+3ifx<
1thenf=x*x+3
（C）F=x*x+3（D）f=sqr（x+1）
Ifx>
=1thenf=sqr（x+1）Ifx<
1thenf=x*x+3
9.下面IF语句统计满足性别（sex）为男，职称（duty）为副教授以上，年龄（age）小于40岁条件的人数，不正确的语句是（D）
（A） Ifsex=”男”andage<
40andinstr（duty,”教授”）>
0thenn=n+1
（B） Ifsex=“男”andage<
40and（duty=“教授”orduty=“副教授”）thenn=n+1
（C） Ifsex=“男”andage<
40andright（duty,2）=“教授”thenn=n+1
（D） Ifsex=“男”andage<
40andduty=“教授”andduty=“副教授”thenn=n+1
10.下面程序段求两个数中的大数，（D）不正确。
（A）Max=IIF（x>
y,x,y）
（B）Ifx>
ythenMAX=XELSEMAX=Y
（C）MAX=X
IFY>
=XTHENMAX=Y
（D）IFY>
=XTHENMAX=Y
MAX=X
二、填空题
1.下面事件过程的功能是：
输入三个整数x、y和z，按从大到小顺序输出这三个数，在横线上填上适当内容。
PrivateSubCommand1_Click（）
Dimx!
y!
z!
x=InputBox（"
x="
）
y=InputBox（"
y="
z=InputBox（"
z="
If
（1）x<
yThent=x:
x=y:
y=t
If
（2）x<
zThent=x:
x=z:
z=t
Ify<
zThent=y:
y=z:
Printx,y,z
2．下面事件过程的功能是：
输入一个字符，若它是大写字母，则把它变成小写字母，若它是小写字母，则把它变成大写字母；
若它是其它字符，则它的值不变，在横线上填上适当内容。
DimchAsString*1
ch=InputBox（"
请输入一个字符：
"
If
（1）Asc（ch）>
=65AndAsc（ch）<
=90ThenAsc（ch）>
=65
ch=LCase（ch）
ElseIf
（2）Asc（ch）>
=97AndAsc（ch）<
=122Then
ch=UCase（ch）
Endif
Printch
3.单行结构条件语句必须在
（1）行内书写完。
4.判别变量I是否为偶数，若为偶数就把它显示出来使用的单行结构条件语句为（IfiMod2=0Thenprintx
）。
5.判别变量x是否大于0，若大于0，则累加到变量s1中，否则，累加到变量s2中，使用
的单行结构条件语句为（Ifx>
0Thens1=s1+xElses2=s2+x）
6.给定分段函数，求y的值，使用的单行结构条件语句为
（Ifx>
0Theny=2*x+1ElseIfx=0Theny=0Elsey=2*x-1）
7.下面事件过程的功能是：
输入x和a的值，按公式
计算y的值，在横线上填上适当内容。
a%,y#
a=InputBox（"
a="
If
（1）x=aOrx=-aThen
y=0
If
（2）-a<
xAndx<
aThen
y=Sqr（a*a-x*x）
Else
y=x-1
Print"
;
y
8.下面事件过程的功能是：
输入年份和月份，输出该月有多少天，在横线上填上适当内容。
提示：
每年的1，3，5，7，8，10，12月每月有31天；
每年的4，6，9，11月，每月有30天；
每年的2月份，闰年为29天，平年为28天。
年份能被4整除，但不能被100整除或年份能被400整除的年份均为闰年，否则，为平年。
Dimyear%,month%,days%
year=InputBox（"
请输入年份：
month=InputBox（"
请输入月份：
SelectCase
（1）month
Case1,3,5,7,8,10,12
days=31
（2）Case4,6,9,11
days=30
Case2
If（3）yearMod4=0AndyearMod100<
>
0OryearMod400=0Then
days=29
days=28
Printyear;
"
年"
month;
月有"
days;
天"
9.若case子句中的表达式表列为用逗号把若干个常数分隔开来，则它的含义是：
当测试表达式的值等于
（1）这些常数中的某一个时，执行该case子句相应的程序块。
若case子句中的表达式表列具有形式：
表达式1To表达式2，则它的含义是：
当测试表达式的值等于
（2）这个范围内的值时，执行该case子句相应的程序块。
Is关系运算符表达式，则它的含义是：
当测试表达式的值满足（3）Is后的关系时，执行该case子句相应的程序块。
三．阅读下列程序，写出执行结果
1.PrivateSubCommand1_Click（）
Dima%,b%,c%,s%,w%,t%
a=-1:
b=3:
c=3
s=0:
w=0:
t=0
Ifc>
0Thens=a+b
Ifa<
=0Then
Ifc<
w=a-b
Ifc>
0Thenw=a-bElset=c
c=a+b
Printa,b,c
Prints,w,t
1答案
-132
200
2.当x的输入值分别为2.5、8、4和15时，写出下列事件过程输出结果
Dimx%,y%
请输入x的值：
SelectCasex
Case1,3,5
y=x*2
Case6To10
y=x+1
Case2,4
y=3*x
CaseIs>
10
y=x*x+7
x,"
2.答案
X=2y=6
X=8y=9
X=4y=12
X=15y=232
升级会员 