下列程序的运行结果是完全相同的()
是
否
是
否
运行下列程序:
Private Sub Form_Click()
Dim y As Integer, x As Integer
Do Until x > 20
x = x + 10
y = y + x
If x > 20 Then Exit Do
Loop
Print x, y
End Sub
单击窗体后,则在窗体上显示的结果是()。
A.10 20
B.30 60
C.10 30
D.20 60
运行下列程序:
Dim b
Private Sub Form_Click()
a = 1: b = 1
Call fun1(a)
Print "X = "; a; ",Y = "; b
End Sub
Private Sub fun1(a)
b = 2 * a
a = 3 * b
End Sub
单击窗体后,则在窗体上显示的结果是()。
A.X = 1,Y = 1
B.X = 2,Y = 6
C.X = 6,Y = 2
D.X = 6,Y = 1
运行下列程序:
Private Sub Form_Click()
For i = 1 To 20
If fun1(i) Then
s = s + 1
End If
Next i
Print s
End Sub
Private Function fun1(y) As Boolean
If y Mod 2 <> 0 Then
fun1 = False
Else
fun1 = True
End If
End Function
单击窗体后,则在窗体上显示的结果是()。
A.110
B.10
C.0
D.20
运行下列程序:
Private Sub form_Click()
x = 8: y = 2
Call fun1((x), y)
Print x, y
End Sub
Private Sub fun1(x, y)
s = x
x = s / y
y = s Mod y
End Sub
单击窗体后,则在窗体上显示的结果是()。
A.4 2
B.8 2
C.8 0
D.2 4
运行下列程序:
Private Sub Form_Click()
a = 3
t = InputBox("请输入一个整数")
Select Case t
Case Is > 0
b = a + l
Case Is = 0
b = a + 2
Case Else
b = a + 5
End Select
Print a; b
End Sub
从键盘输入5,在窗体上显示的结果是()。
A.1 5
B.3 3
C.1 1
D.5 5
A、666
B、667
C、677
D、676