单选题有如下程序代码： 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“Bum=”：Bum x=x+y y=y+x LoopEnd Sub下列程序代码仅修改了循环语句，循环体未变，其中运行结果不变的是( )。

A、 Private Sub Form—Click() Dim x As Integer，y As Integer，Bum As Integer x=3 y=x Do While x<6 Bum=x*y Print“num=”：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 num=x*y Print“hum=”：hum 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=”：Bum x=x+y y=y+x Loop End Sub
D、 Private Sub Form—Click() Dim X As Integer，y As Integer，aura As Integer x=3 y=x Do While x>=6 num=x*y Print“Bum=”；Bum 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选项。