内蒙古巴彦淖尔市临河三中2018-2019学年高二信息技术下学期第一次月考试题日期:2019-3-27信用破产是最大的破产，考出自己的真实水平！保存试卷！一、选择（20*2分）１.下列能够实现循环结构程序设计的是（）Ａ．IFＢ．SELECTCASEＣ．FOR--NEXTＤ．IF--ELSEIF--ENDIF２.下列程序运行的结果是（）S=0ForA=1To5S=S+ANextAPrintAA.6B.5C.15D.13.下列程序运行的结果是（）S=0ForA=1To5S=S+ANextAPrintSA.6B.5C.15D.14.下列程序运行的结果是（）S=0FORA=5TO1S=S+ANEXTAPRINTSA.15B.5C.0D.15.下列程序运行的结果是（）S=0FORA=5TO1S=S+ANEXTAPRINTAA.15B.5C.0D.16.S=0FORA=1TO10IFAMOD3=0THENS=S+ANEXTAPRINTSA.55B.1C.10D.187.下列程序段的运行结果如右图所示,请将程序补充完整PrivatsubForm1_activate()Fori=3To1Step-1PrintTab(5-i);For__________________Print“*”;NextjPrintNextIEndSuba.j=1to2*i-1b.forj=5to1step-2c.j=1toId.forj=2+i8.下列程序的运行结果是（）FORA=1TO100IFA>9THENEXITFORNEXTAPRINTAA.101B.9C.100D.109.下列程序的执行结果是（）FORA=1TO3PRINTA;NEXTAA.111B.123C.222D.33310.下列叙述不正确的是（）A.FOR循环执行时，在NEXT处循环变量增步长B.FOR循环至少执行一次循环体C.FOR循环在FOR语句处进行判断D.NEXT后的变量可以省略不写。11、FORA=1TO5S=0FORB=1TOAS=S+1NEXTB,APRINTS该程序的运行结果是[]A、0B、15C、6D、512、S=5FORA=1TO5STEP3S=S+ANEXTAPRINTS该程序的运行结果是[]A、5B、20C、0D、1013、下列程序段运行结果是：（）。DimFAsLong,AAsLongF=0ForA=3To-3Step-3F=F+ANextAPrintAA、-6B、-3C、0D、-414.下面程序运行时内层循环总次数（）。Forx=1to2Fory=1toxNextyNextxA、1B、2C、3D、415、下列程序段的执行结果为（）。PrivateSubForm_Load()s=0Fori=1To5s=s+i*iNextiMagBox(s)EndSubA、0B、55C、25D、5016、S=0:M=0:N=0FORI=1TO20IFIMOD2=0THENS=S+1ELSEIFIMOD3=0THENM=M+1ELSEIFIMOD5=0THENN=N+1ENDIFNEXTIPRINTS,M,N这段程序的执行结果是()A.1041B.1031C.1052D.103317、执行下列程序后,变量X的值是()PRIVATESUBFORM__CLICK()S=0FORA=1TO5FORB=1TO3S=S+1NEXTBNEXTAPRINTSENDSUBA.70B.8C.25D.1518.下列程序所计算的数学式子是()PRIVATESUBFORM__CLICK()S=0FORA=1TO5S=S+（10^A-1）/9NEXTAPRINTSENDSUBA.10+100+1000+10000+100000B.1+11+111+1111+11111C.3+33+333+3333+33333D.9+99+999+9999+9999919.下列程序的执行结果是()PRIVATESUBFORM__CLICK()X=INT(RND)+1IFXTHENPRINTXELSEPRINTX+2ENDSUBA.0B.1C.出错D.220、下列程序的功能是()PRIVATESUBFORM—CLICK（）S=0:M=0FORA=1TO100IFAMOD2=0THENS=S+AELSEM=M+1ENDIFNEXTAPRINTS,MENDSUBA、统计1---100间的偶数和B、统计1---100间的偶数个数C、统计1---100间的偶数和,奇数个数D、统计1---100间的偶数个数,奇数和.二、填空（12*2分）21、VB中的三种基本程序结构是（）结构，（）结构和（）结构。22、FOR循环体的执行次数由(),()和()决定.23.在FOR循环中，步长为正，超过的含义是循环控制变量的值（）终值；步长为负，超过的含义是循环控制变量的值（）终值。24.FOR循环只能（）嵌套，不能交叉嵌套。25.两个FOR共用一个NEXT时，（）层循环控制变量在前。26.产生[6,18]间的随机整数,请写出表达式()27.在FOR循环中,步长缺省,默认是()三、程序填空（12*3分）28.以下程序的功能是：从键盘上输入10个学生的考试分数，然后输出平均分。PrivateSubFormClick()DimxAsSingle，aveAsSinglesum=0Fori=1to10x=[1][2]Nexti[3]Print“Ave=”;aveEndSub29、求2+4+6+8+10+12+14+……100PRIVATESUBFORM-------CLICK（）DIMIASINTEGER，SASINTEGERFORI=2TO100[4]S=S+[5]NEXTIPRINTSENDSUB30.下面这段程序是求1~100的自然数之和.Sum=[6]Fori=1to100Sum=sum+[7]NextiPrint“sum=”;sum31.下面这段程序是将输入的数据相乘并输出。Y=[8]Fori=1to3X=val(InputBox(“请输入数据：”))Y=[9]NextiPrinty32.下面这段程序功能是：在文本框中输入一个数据，如果该数据满足“除以5余1，除以6余2”这个条件，则输出；否则，清除文本框的内容，并将焦点定位在文本框中。DimxAsIntegerX=[10]IfxMod5=1[11]xMod6=2thenPrintxElseText1.text=””[12]Endif临河三中2018-2019学年第二学期月考高二计算机班VB试题答案一、选择（20*2分）1---5CACCB6-10DADBB11-15DDACB16-20BDBBC二、填空21、顺序选择循环22、初值终值步长23、大于小于24、包含25、内26、INT(RND*13)+1271三、程序填空28、VAL(INPUTBOX(“请输入”))S=S+XAVE=S/1029.STEP2I30.1I31.1Y*i32.val(text1.text)AndText1.setfocus
