内蒙古巴彦淖尔市临河三中2018_2019学年高二信息技术下学期第一次月考试题.docx

内蒙古巴彦淖尔市临河三中2018-2019学年高二信息技术下学期第一次月考试题 日期 : 2019-3-27信用破产是最大的破产，考出自己的真实水平！保存试卷！一、选择（20*2分）. 下列能够实现循环结构程序设计的是（）IF SELECT CASE FOR-NEXT IF -ELSEIF -END IF.下列程序运行的结果是（）S=0 For A= 1 To 5 S=S+ANext APrint AA. 6 B. 5 C. 15 D. 13.下列程序运行的结果是（）S=0 For A= 1 To 5 S=S+ANext APrint SA. 6 B. 5 C. 15 D. 14. 下列程序运行的结果是（） S=0FOR A= 5 TO 1 S=S+A NEXT A PRINT S A. 15 B. 5 C. 0 D. 15. 下列程序运行的结果是（） S=0FOR A= 5 TO 1 S=S+A NEXT A PRINT A A. 15 B. 5 C. 0 D. 16. S=0 FOR A= 1 TO 10 IF A MOD 3 =0 THEN S=S+A NEXT A PRINT S A. 55 B. 1 C. 10 D. 187.下列程序段的运行结果如右图所示,请将程序补充完整 Privat sub Form1_activate( )For i=3 To 1 Step -1 Print Tab(5-i); For _ Print “*”; Next j PrintNext I End Sub a. j= 1 to 2*i-1 b. for j=5 to 1 step -2c. j= 1 to I d. for j=2+i8.下列程序的运行结果是（ ） FOR A= 1 TO 100 IF A9 THEN EXIT FOR NEXT A PRINT AA. 101 B. 9 C. 100 D. 109.下列程序的执行结果是（ ） FOR A= 1 TO 3 PRINT A; NEXT A A. 1 1 1 B. 1 2 3C. 2 2 2 D. 3 3 310.下列叙述不正确的是（ ） A.FOR循环执行时，在NEXT处循环变量增步长 B.FOR循环至少执行一次循环体 C.FOR循环在FOR语句处进行判断 D.NEXT后的变量可以省略不写。11、 FOR A=1 TO 5 S=0 FOR B= 1 TO A S=S+1 NEXT B,A PRINT S 该程序的运行结果是 A、0 B、 15 C、 6 D、512、S=5 FOR A=1 TO 5 STEP 3 S=S+A NEXT A PRINT S 该程序的运行结果是 A、5 B、20 C、0 D、1013、下列程序段运行结果是：（ ）。Dim F As Long , A As LongF=0For A=3 To -3 Step -3F=F+ANext APrint AA、-6 B、-3 C、0 D、-414.下面程序运行时内层循环总次数（ ）。For x=1 to 2For y=1 t o xNext yNext xA、1 B、2 C、3 D、415、下列程序段的执行结果为（ ）。Private Sub Form_Load()s=0For i = 1 To 5s=s+i*iNext iMag Box (s)End SubA、0 B、55 C、25 D、5016、S=0: M=0:N=0 FOR I=1 TO 20 IF I MOD 2=0 THEN S=S+1 ELSEIF I MOD 3 =0 THEN M=M+1 ELSEIF I MOD 5 =0 THEN N=N+1 END IFNEXT IPRINT S,M,N这段程序的执行结果是( ) A. 10 4 1 B. 10 3 1 C. 10 5 2 D. 10 3 317、执行下列程序后,变量X的值是( ) PRIVATE SUB FORM_CLICK( ) S=0 FOR A = 1 TO 5FOR B= 1 TO 3 S=S+1NEXT B NEXT A PRINT SEND SUBA. 70 B. 8 C. 25 D. 1518. 下列程序所计算的数学式子是( )PRIVATE SUB FORM_CLICK( )S=0FOR A= 1 TO 5S=S+（10A-1）/9NEXT APRINT SEND SUBA. 10+100+1000+10000+100000B. 1+11+111+1111+11111C. 3+33+333+3333+33333 D. 9+99+999+9999+9999919.下列程序的执行结果是( ) PRIVATE SUB FORM_CLICK( ) X=INT(RND)+1 IF X THEN PRINT X ELSE PRINT X+2 END SUBA. 0 B. 1 C. 出错 D. 220、下列程序的功能是( )PRIVATE SUB FORMCLICK（ ）S=0 : M=0FOR A=1 TO 100IF A MOD 2 = 0 THEN S=S+AELSE M=M+1END IFNEXT APRINT S , MEND SUBA、统计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个学生的考试分数，然后输出平均分。 Private Sub Form Click() Dim x As Single，ave As Single sum=0 For i=1 to 10 x=1 2 Next i 3 Print “Ave=”;ave End Sub29、求2+4+6+8+10+12+14+100 PRIVATE SUB FORM-CLICK（ ） DIM I AS INTEGER，S AS INTEGER FOR I= 2 TO 100 4 S=S+ 5 NEXT I PRINT S END SUB 30.下面这段程序是求1100的自然数之和.Sum=6 For i=1to 100Sum=sum+7 Next iPrint “sum=”;sum31.下面这段程序是将输入的数据相乘并输出。Y=8 For i=1 to 3 X=val(InputBox(“请输入数据：”)Y=9 Next iPrint y32.下面这段程序功能是：在文本框中输入一个数据，如果该数据满足“除以5 余1，除以6余2”这个条件，则输出；否则，清除文本框的内容，并将焦点定位在文本框中。Dim x As IntegerX=10 If x Mod 5=111 x Mod 6=2 then Print xElse Text1.text=” 12 End if 临河三中2018-2019学年第二学期月考高二计算机班VB试题答案一、选择（20*2分）1-5 CACCB 6-10 DADBB 11-15 DDACB 16-20 BDBBC二