有如下程序代码: Private Sub Form_Click() Dim x As Integer,y As Integer,Bum As Integer X=3 y=x Do Until x>=6 num

admin2019-08-21  23

问题 有如下程序代码:
    Private Sub Form_Click()
    Dim x As Integer,y As Integer,Bum As Integer
    X=3
    y=x
    Do Until x>=6
    num=x*y
    Print"Bum=";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
    Bum=x*y
    Print"nun=";num
    x=x+y
    y=y+x
    Loop
    End Sub
B、Private Sub Form_Click()
    Dim x As Integer,y As Integer,Bum As Integer
    x=3
    y=x
    Do Until x>6
    nun=x*y
    Print"hum=";num
    x=x+y
    y=y+x
    Loop
    End Sub
C、Private Sub Form_Click()
    Dim x As Integer,y As Integer,Bum 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,Bum As Integer
    x=3
    y=x
    Do While x>=6
    num=x+y
    Print"num=";hum
    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://kaotiyun.com/show/COUp777K
0

最新回复(0)