A: 21
B: 10
C: 4
D: 3
举一反三
- 编写如下程序： 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 运行程序，输出结果为______
- 下列代码执行后，窗体上显示（ ）。 Dim x As Integer, y As Integer x = 50: y = 30 If x > y Then x = x - y Else y = y x If x < y Then x = x 20 Form1.Print x, y
- 下面程序段执行结果为( )。 x = 5 : y = -6 If not x > 0 Then x = y – 3 Else y = x + 3 End If Print x - y; y - x
- 若要求:当数学式3 A: if(x>3)if(x<7)y=1; B: if(x>3||x<7)y=1; C: if(x<3);elseif(x<7)y=1 D: if(!(x<=3))y=y;elseif(7>x)y=1;
- 【单选题】分段函数: ,下面程序段中正确的是__________。 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
有程序段：x：=7；y：=3；x：=x+y；y：=x-y；x：=x-y，执行后，变量x的值是（） A: 7 B: 3 C: 10 D: 4
- 1
Sub s1(ByVal x As Integer, ByVal y As Integer) Dim t As Integer t = x: x = y: y = t End Sub Sub s2(x As Integer, y As Integer) Dim t As Integer t = x: x = y: y = t End Sub 则以下说法中正确的是( )。
- 2
下列程序段的输出结果是_____。 x = 10 if x > 5: y = 2 * x elif x > 3: y = 3 * x elif x > 1: y = 4 * x else: y = x print(y)
- 3
有如下事件程序,运行该程序后输出结果是。 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
- 4
下面哪些定义是类型正确的？ A: f :: (Integer, Integer) - Floatf (x,y) =x / y B: f :: (Integer, Integer) - Floatf (x,y) = (fromInteger x) / (fromInteger y) C: f :: (Integer, Integer) - Floatf (x,y) = 3*x + y D: f :: (Integer, Integer) - Integerf (x, y) = 3*x + y