2. 计算机
  3. 有如下程序代码： Private Sub Form_Click() Dim x As Integer，y As Integer，num As Integer x=3 y=x Do Until x＞=6 num=x*y Print"num="：hum x=x

有如下程序代码： Private Sub Form_Click() Dim x As Integer，y As Integer，num As Integer x=3 y=x Do Until x＞=6 num=x*y Print"num="：hum x=x

admin2018-06-20  25
问题 有如下程序代码：
Private Sub Form_Click()
Dim x As Integer，y As Integer，num As Integer
x=3
y=x
Do Until x＞=6
num=x*y
Print"num="：hum
x=x+y
y=y+x
Loop
End Sub
下列程序代码仅修改了循环语句，循环体未变，其中运行结果不变的是(    )。
选项 A、Private Sub Form_Click()
Dim x As Integer，y As Integer，num As Integer
x=3
y=x
Do While x＜6
hum=x*y
Print"nun="：Bum
x=x+y
y=y+x
Loop
End Sub
B、Private Sub Form_Click()
Dim x As Integer，y As Integer，num As Integer
x=3
y=x
Do Until x＞6
num=x*y
Print"num="：nun
x=x+y
y=y+x
Loop
End Sub
C、Private Sub Form_Click()
Dim x As Integer，y As Integer，num As Integer
x=3
y=x
Do While x＜=6
num=x*y
Print"Bum="：num
x=x+y
y=y+x
Loop
End Sub
D、Private Sub Form_Click()
Dim x As Integer，y As Integer，num As Integer
x=3
y=x
Do While x＞=6
num=*y
Print"num="：num
x=x+y
y=y+x
Loop
End Sub
答案A
解析 题目中定义的循环变量x的初始值为3，在Do Until循环结构中，当条件表达式的结果为假时执行循环体，直到条件表达式的结果为真时，结束循环。第一次判断循环条件表达式“x＞=6”，条件为假，执行循环体语句，执行完循环体语句后，循环变量x的值为6；第二次判断循环条件表达式“x＞=6”，条件为真，循环结束，故题目中的循环体值会被执行一次。A选项中使用Do While循环结构，当循环条件表达式为真时执行循环体，当条件表达式的结果为假时，结束循环，A选项循环体语句只执行一次，所以它与题目中循环执行一致；B选项中循环体执行两次；C选项中循环体执行两次；D选项中循环体执行两次。A选项符合题意。本题选择A选项。
转载请注明原文地址:https://jikaoti.com/ti/Cjy0FFFM
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

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