vb大一选择程序结构习题答案答案_精品文档.doc
- 文档编号:212212
- 上传时间:2022-10-06
- 格式:DOC
- 页数:5
- 大小:37.50KB
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)x x=y: y=t If (2)x x=z: z=t Ify y=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)-a y=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
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- vb 大一 选择 程序结构 习题 答案 精品 文档