vb大一选择程序结构习题答案答案_精品文档.doc
《vb大一选择程序结构习题答案答案_精品文档.doc》由会员分享，可在线阅读，更多相关《vb大一选择程序结构习题答案答案_精品文档.doc（5页珍藏版）》请在冰豆网上搜索。
4.2习题
一、选择题
1.以下不正确的单行结构条件语句是（D）。
（A） Ifx>yThenPrint＂x>y＂
（B） IfxThent=t*x
（C） IfxMod3=2ThenPrintx
（D） Ifx<0Theny=2*x-1:
PrintxEndIf
2.给定程序段
DimaAsInteger,bAsInteger,cAsInteger
a=1：
b=2：
c=3
Ifa=c-bThenPrint＂#####＂ElsePrint＂*****＂
以上程序（C）。
（A）没有输出（B）有语法错（C）输出#####（D） 输出*****
3.运行下面程序后，在弹出的消息窗口中显示的是（D）。
PrivateSubForm_Click（）
score=Int（Rnd）+5
SelectCasescore
Case5
a$="Good"
Case4
a$="Ok"
Case3
a$="Pass"
CaseElse
a$="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
Else
max=6
EndIf
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）xx=y:
y=t
If
（2）xx=z:
z=t
Ifyy=z:
z=t
Printx,y,z
EndSub
2．下面事件过程的功能是：
输入一个字符，若它是大写字母，则把它变成小写字母，若它是小写字母，则把它变成大写字母；若它是其它字符，则它的值不变，在横线上填上适当内容。
PrivateSubCommand1_Click（）
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
EndSub
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的值，在横线上填上适当内容。
PrivateSubCommand1_Click（）
Dimx!
a%,y#
x=InputBox（"x="）
a=InputBox（"a="）
If
（1）x=aOrx=-aThen
y=0
Else
If
（2）-ay=Sqr（a*a-x*x）
Else
y=x-1
EndIf
EndIf
Print"y=";y
EndSub
8.下面事件过程的功能是：
输入年份和月份，输出该月有多少天，在横线上填上适当内容。
提示：
每年的1，3，5，7，8，10，12月每月有31天；每年的4，6，9，11月，每月有30天；每年的2月份，闰年为29天，平年为28天。
年份能被4整除，但不能被100整除或年份能被400整除的年份均为闰年，否则，为平年。
PrivateSubCommand1_Click（）
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
Else
days=28
EndIf
EndSelect
Printyear;"年";month;"月有";days;"天"
EndSub
9.若case子句中的表达式表列为用逗号把若干个常数分隔开来，则它的含义是：
当测试表达式的值等于
（1）这些常数中的某一个时，执行该case子句相应的程序块。
若case子句中的表达式表列具有形式：
表达式1To表达式2，则它的含义是：
当测试表达式的值等于
（2）这个范围内的值时，执行该case子句相应的程序块。
若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<=0Then
w=a-b
EndIf
Else
Ifc>0Thenw=a-bElset=c
EndIf
c=a+b
Printa,b,c
Prints,w,t
EndSub
1答案
-132
200
2.当x的输入值分别为2.5、8、4和15时，写出下列事件过程输出结果
PrivateSubCommand1_Click（）
Dimx%,y%
x=InputBox（"请输入x的值：
"）
SelectCasex
Case1,3,5
y=x*2
Case6To10
y=x+1
Case2,4
y=3*x
CaseIs>10
y=x*x+7
EndSelect
Print"x=";x,"y=";y
EndSub
2.答案
X=2y=6
X=8y=9
X=4y=12
X=15y=232
升级会员 