编写如下程序代码: Private Sub Commandl—Click() Dim t As Integer Dim n As Integer,x As Integer t=0 For n=1 To 12

admin2020-06-30  35

问题 编写如下程序代码:
    Private Sub Commandl—Click()
    Dim t As Integer
    Dim n As Integer,x As Integer
    t=0
    For n=1 To 12
    x=2*n一1
    If x/3=x  3 Then t=t+1
    Next
    Print t
    End Sub
程序运行后,单击命令按钮Command1,输出结果为(    )。

选项 A、5
B、3
C、2
D、4

答案D

解析 本题考查For循环控制结构及if语句的使用,程序开始时,定义3个整型变量t、n和x。For循环结构中循环变量n的初始值为1,终止值为12,条件判断语句if的功能是判断变量x的值是否能被3整除.若x能被3整除,则将变量t加1,循环执行过程中个变量的值如下:
    当n=1时,x=2*1—1=1,条件判断语句if x/3=x\3为假;
    当n=2时,x=2*2一1=3,条件判断语句jf x/3=x\3为真,执行t=t+1=1;
    当n=3时,x=2*3—1=5,条件判断语句if x/3=x\3为假;
    当n=4时,x=2*4—1=7,条件判断语句if x/3=x\3为假;
    当n=5时,x=2*5—1=9,条件判断语句if x/3=x\3为真,执行t=t+1=2;
    当n=6时,x=2{6—1=11,条件判断语句if x/3=x\3为假;
    当n=7时,x=2*7—1=13,条件判断语句if x/3=x\3为假;
    当n=8时,x=2*8—1=15,条件判断语句if x/3=x\3为真.执行t=t+1=3;
    当n=9时,x=2*9一1=17,条件判断语句if x/3=x\3为假;
    当n=10时,x=2*10一1=19,条件判断语句if x/3=x\3为假;
    当n=11时,x=2*11—1=21,条件判断语句if x/3=x\3为真,执行t=t+1=4;
    当n=12时,x=2*12一1=23,条件判断语句if x/3=x\3为假;
    当n=13时,循环结束,最终t的值为4,故D选项正确。本题选择D选项。
转载请注明原文地址:https://kaotiyun.com/show/ZTHp777K
0

最新回复(0)