单选题
编写如下程序代码: Private Sub Command1_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,输出结果为( )。
【正确答案】
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,条件判断语句if 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选项。
提交答案
关闭