运行下列程序:Private Sub Command1_Click()a = 100b = 24a = a Mod bb = b \ aa = b - aDebu
运行下列程序:
Private Sub Command1_Click()
a = 100
b = 24
a = a Mod b
b = b \ a
a = b - a
Debug.Print a
End Sub
单击Command1命令按钮后,则在立即窗口上输出结果是()。
A.2
B.24
C.50
D.100
运行下列程序:
Private Sub Command1_Click()
a = 100
b = 24
a = a Mod b
b = b \ a
a = b - a
Debug.Print a
End Sub
单击Command1命令按钮后,则在立即窗口上输出结果是()。
A.2
B.24
C.50
D.100
下列程序运行后,在窗体上打印的结果是【 】。 Private Sub test(a, b,c) a = a + 1: b = b + 2:C = C + 3 End Sub Private Sub Command1 Click() x = 1:v = 2:z = 3 Call test(x,y + 3, (z)) Print "Main:";x;y;z End Sub
下列程序的运行结果是()。 Private Sub Commandl_Click() a=1.5 b=1.5 Call fun(a,B)Print a,b End Sub Private Sub fun(x,y) x=y*y y=y+x End Sub
A.2.25 3.75
B.1.5 2.25
C.1.5 0.75
D.0.75 1.5
运行下列程序:
Private Sub Form_Click()
a$ = 2
b$ = 1
Call abcd(a, b, c$, d$)
Print c; d
End Sub
Private Sub abcd(x$, y$, z$, s$)
z = x + y
s = x - y
End Sub
单击窗体后,则在窗体上显示的结果是()。
A.3 1
B.1 3
C.211
D.显示出错信息
运行下列程序:
Private Sub Form_Click()
Dim a As Integer
a = 1
For i = 1 To 5
Call fun1(a)
Next i
Print a
End Sub
Private Sub fun1(x)
y = 2
Do
x = x + y
Loop Until x > 10
End Sub
单击窗体后,则在窗体上显示的结果是()。
A.5
B.1 2 3 4 5
C.19
D.7
A.出错
B.5 5
C.5 10
D.5 7
下列程序段运行后窗体上输出结果为()。 Private Sub Command1 Click() a=5:b=4:c=3:d=2 X=3>2*b Or a=c And b<>C Or c>d Print X End Sub
A.1
B.True
C.False
D.2
(28)下列程序的运行结果是。 Private Sub Command1_Click() a=1.5 b=1.5 Call fun(a,b) Print a,b Private Sub fun(x,y) x=y*x y=y+x End SubA.2.25 3.75 B.1.5 2.25 C.1.5 0.75 D.0.75 1.5
下列程序段,运行后窗体上输出结果是()。
Private Sub Command1_Click()
a=5:b=4:c=3:d=2
x=3>2*b Or a=c And b<>c Or c>d
Printx
End Sub
A.1
B.True
C.False
D.2
运行下列程序:
Private Sub Command1_Click()
a = Val(InputBox("a = "))
Print fun1(a)
End Sub
Private Function fun1(b)
If b > 0 Then
fun1 = 10
ElseIf b = 0 Then
fun1 = 9
Else
fun1 = 8
End If
End Function
单击按钮后从键盘为变量a输入数据3,输出的结果是()。
A.3
B.8
C.9
D.10
为了保护您的账号安全,请在“简答题”公众号进行验证,点击“官网服务”-“账号验证”后输入验证码“”完成验证,验证成功后方可继续查看答案!