以下程序运行后的输出结果是 ______。 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
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
举一反三
- 当输入4时,以下程序的输出结果是. Private Sub Command1_Click() x = Val(InputBox(x)) If x ^ 2 < 15 Then y = 1 / x If x ^ 2 > 15 Then y = x ^ 2 + 1 Print y End Sub
- 【单选题】对任意实数x 1 , y 1 , x 2 , y 2 , x 1 < x 2 , y 1 < y 2 , 分布函数P{x 1 <X≤x 2 , y 1 <Y≤y 2 }=? A. F(x 2 , y 2 )+ F(x 1 , y 1 )+ F(x 1 , y 2 )+ F(x 2 , y 1 ) B. F(x 2 , y 2 )- F(x 1 , y 1 )+ F(x 1 , y 2 )- F(x 2 , y 1 ) C. F(x 2 , y 2 )+ F(x 1 , y 1 )- F(x 1 , y 2 )- F(x 2 , y 1 ) D. F(x 2 , y 2 )- F(x 1 , y 1 )- F(x 1 , y 2 )+ F(x 2 , y 1 )
- 完成以下功能：计算分段函数完成程序。 x2+1 (x<0) y= 2x+1 (0≤x<1) 3x3 (x≥1) Private Sub Command1_Click() Dim y As Single, x As Single x = InputBox("请输入x的值") If x（） Then y = x * x + 1 （） x < 1 Then y = 2 * x + 1 Else y = 3 * x ^ 3 End If Print x; y End Sub
- 编写如下程序： 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