举一反三
- 【单选题】下面的程序执行完后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
- 设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: 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
- 编写如下程序： 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 > 0 Then y = 1 If x < 0 Then y = 0 C. If x < 0 Then y = 0 ElseIf x > 0 Then y = 1 ElseIf x > 1 Then y = 2 Else y = 3 End If D. If x > =2 Then y = 3 ElseIf x > =1 Then y = 2 ElseIf x > =0 Then y = 1 Else y = 0 End If
内容
- 0
有如下事件程序,运行该程序后输出结果是。 Private Sub Command33_Click() Dim x As Integer, y As Integer x = 1: y = 0 Do Until y <= 25 y = y + x * x x = x + 1 Loop MsgBox "x=" & x & ", y=" & y End Sub
- 1
分段函数：[img=206x91]18037123bea18f3.png[/img],下面程序段中正确的是__________。 A: If x < 0 Then y = 0If x < 1 Then y = 1If x < 2 Then y = 2If x >= 2 Then y = 3 B: If x > =2 Then y = 3ElseIf x > =1 Then y = 2ElseIf x > =0 Then y = 1Else y = 0End If C: If x >= 2 Then y = 3If x >= 1 Then y = 2If x > 0 Then y = 1If x < 0 Then y = 0 D: If x < 0 Then y = 0ElseIf x > 0 Then y = 1ElseIf x > 1 Then y = 2Else y = 3End If E: If x < 0 Then y = 0If 0 <= x <1 Then y = 1If 1 <= x < 2 Then y = 2If x >= 2 Then y = 3
- 2
有如下事件程序，运行该程序后输出结果是_________。 Private Sub Command33_Click() Dim x As Integer, y As Integer x=1:y=0 Do Until y＜=25 y=y+x*x x=x+1 Loop MsgBox "x=" & x &",y=" & y End Sub A: x=1，y=0 B: x=4，y=25 C: x=5，y=30 D: 输出其他结果
- 3
int x=5, y=20;do{ y -= x; x += 2;}while(x<y)以上循环体执行（）次 A: 0 B: 1 C: 2 D: 3
- 4
分段函数：[img=203x91]17de5f2f296a7ac.jpg[/img],下面程序段中正确表达的是 。 A: If x >; =2 Then y = 3ElseIf x >; =1 Then y = 2ElseIf x >; =0 Then y = 1Else y = 0End If B: If x <; 0 Then y = 0If x <; 1 Then y = 1If x <; 2 Then y = 2If x >;= 2 Then y = 3 C: If x >;= 2 Then y = 3If x >;= 1 Then y = 2If x >; 0 Then y = 1If x <; 0 Then y = 0 D: If x <; 0 Then y = 0ElseIf x >; 0 Then y = 1ElseIf x >; 1 Then y = 2Else y = 3End If E: If x <; 0 Then y = 0If 0 <;= x <;1 Then y = 1If 1 <;= x <; 2 Then y = 2If x >;= 2 Then y = 3