2. 计算机
  3. 编写如下程序代码： Private Sub Command1_Click() Dim t As Integer Dim n As Integer，x As Integer t=0 For n=1To12 x=2*n-1 If x／3=x3Then t=t+

编写如下程序代码： Private Sub Command1_Click() Dim t As Integer Dim n As Integer，x As Integer t=0 For n=1To12 x=2*n-1 If x／3=x3Then t=t+

admin2018-06-20  31
问题 编写如下程序代码：
Private Sub Command1_Click()
Dim t As Integer
Dim n As Integer，x As Integer
t=0
For n=1To12
x=2*n-1
If x／3=x3Then 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，条件判断语句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选项。
转载请注明原文地址:https://www.kaotiyun.com/show/kaGp777K
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

相关试题推荐
随机试题
最新回复(0)