vb大一选择程序结构习题答案答案

《vb大一选择程序结构习题答案答案》由会员上传分享，免费在线阅读，更多相关内容在工程资料-天天文库。

1、4.2习题一、选择题1.以下不正确的单行结构条件语句是（D）。（A）Ifx>yThenPrint＂x>y＂（B）IfxThent=t*x（C）IfxMod3=2ThenPrintx（D）Ifx<0Theny=2*x-1:PrintxEndIf2.给定程序段DimaAsInteger,bAsInteger,cAsIntegera=1：b=2：c=3Ifa=c-bThenPrint＂#####＂ElsePrint＂*****＂以上程序（C）。（A）没有输出（B）有语法错（C）输出#####（D）输出*****3.运行下面程序后，在弹出的消息窗口中显示的是（D）。Priva

2、teSubForm_Click()score=Int(Rnd)+5SelectCasescoreCase5a$="Good"Case4a$="Ok"Case3a$="Pass"CaseElsea$="Bad"EndSelectMsgBoxa$EndSubA、Bad　B、Pass　　　　C、Ok　　D、Good4.下面语句书写正确的是（D）。(A)Ifa>maxThenmax=aElsemax=bEndIf(B)Ifa>maxThenmax=aElsemax=bEndIf(C)Ifa>maxThenmax=aElsemax=6(D)Ifa>maxThenmaintena

3、ncemeasures,thereisabigsecurityrisk,managementhashadagreatimpacttothecity.3.1-8busterminalstationstatusinYibincitylayouts(4)hoursofoperationmostofYibincitybuslinesin5:30-6:20,andbasicallymeettheYibintravelneeds.Busmax=aElsemax=6EndIf5.执行下列程序段输出的结果为（C）。a=3IFa>0ThenPrint＂###＂ElsePrint＂$$$

4、＂EndIfA)###$$$B)$$$###C)###D)$$$6.下面程序段运行后,显示的结果是(B)dimxifxthenprintxelseprintx+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+3i

5、fx<1thenf=x*x+3(C)F=x*x+3(D)f=sqr(x+1)Ifx>=1thenf=sqr(x+1)Ifx<1thenf=x*x+39.下面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)=“教授

6、”thenn=n+1(D)Ifsex=“男”andage<40andduty=“教授”andduty=“副教授”thenn=n+110.下面程序段求两个数中的大数，(D)不正确。(A)Max=IIF(x>y,x,y)(B)Ifx>ythenMAX=XELSEMAX=Y(C)MAX=XIFY>=XTHENMAX=Y(D)IFY>=XTHENMAX=YMAX=Xmaintenancemeasures,thereisabigsecurityrisk,managementhashadagreatimpacttothecity.3.1-8busterminalstationst

7、atusinYibincitylayouts(4)hoursofoperationmostofYibincitybuslinesin5:30-6:20,andbasicallymeettheYibintravelneeds.Bus二、填空题1.下面事件过程的功能是：输入三个整数x、y和z，按从大到小顺序输出这三个数，在横线上填上适当内容。PrivateSubCommand1_Click()Dimx!,y!,z!x=InputBox("x=")y=InputBox("y=")z=InputBox("z=")If(1)x