设x和y均为整形变量,则执行程序中的循环后,y的值为 x=1 y=1 Do While y < = 50 If x>=10 Then Exit Do End If If (x Mod 2) = 1 Then x=x+5 End If If x Mod 2 <> 1 Then x=x-3 End If y=y+1 Loop
A: 2
B: 4
C: 6
D: 8
A: 2
B: 4
C: 6
D: 8
举一反三
- 中国大学MOOC: 下面的程序执行完后a,b的值分别为______。 Dim x, y, a, b As Integer x = 12 : y = 8 a = 1 : b = x * y Do While x Mod 2 = 0 And y Mod 2 = 0 x = x 2 y = y 2 a = a * 2 Loop Do While x <> y If x > y Then x = x - y Else y = y - x End If Loop a = a * x b = b a
- 【单选题】下面的程序执行完后a,b的值分别为______。 Dim x, y, a, b As Integer x = 12 : y = 8 a = 1 : b = x * y Do While x Mod 2 = 0 And y Mod 2 = 0 x = x 2 y = y 2 a = a * 2 Loop Do While x <> y If x > y Then x = x - y Else y = y - x End If Loop a = a * x b = b a A. 4 24 B. 24 4 C. 4 12 D. 8 24
- 编写如下程序: Private Sub Command1_Click() Dim x As Integer, y As Integer x = 1: y = 1 Do y = x * y If y > 10 Then Print x, y Exit Do Else x = x + 3 End If Loop While x <= 10 End Sub 运行程序,输出结果为______
- 下面程序段中正确的是( )。 A: If x<0 Then y=0 If x<1 Then y=1 If x<2 Then y=2 If x>=2 Then y=3 B: If x>=2 Then y=3 If x>1 Then y=2 If x>=0Then y=1 If x>0 Then y=0 C: If x<0 Then y=0 Else If>=0Then y=1 Else y=3 End If D: If x>=2 Then y=3 Else If>=1 Then y=2 Else y=0 End If
- 以下程序运行后的输出结果是 ______。 Sub add(x,y) x=x+y Print "x=";x;",y=";y End Sub Private Sub Command1_Click() x=1 y=1 Call add((x),(y)) Print"x="; x;",y=";y End Sub A: x=1,y=1 B: x=2,y=2 C: x=2,y=1 D: x=1,y=1 E: x=1,y=1 F: x=1,y=1 G: x=2,y=1 H: x=2,y=1