题目
下列程序运行后的输出结果是 Private Sub Command1_Click() For k=3 To 1 Step-1 x=String(k,"*") Print x Next End Sub
A.* * * * * *
B.1 * 2 * 3 *
C.3 * 2 * * 1 * * *
D.* * * * * *
第1题
下列程序运行后的输出结果是
Function Fun(n)
x=n*n
Fun=x-11
End Function
Private Sub Command1_Click()
For k=1 To 2
y=Fun(k):Print y
Next
End Sub
A.-10 -7
B.10 8
C.1 3
D.0 4
第2题
下列程序段,运行后窗体上输出结果是()。
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
第3题
下列程序运行后的输出结果是______。
Private Sub f(k,s)
s=1
For j=1 To k
s=s*j
Next
End Sub
Private Sub Command1_Click()
Sum=0
For i=1 To 3
Call f(i,s)
Sum=Sum+s
Next
Print Sum
End Sub
第4题
下列程序运行后立即窗口输出的结果是 Private Sub Form_ClickO X="a":y="b" Z=1:u=2 Debug.x;y,z;u Debug.z;x,y;u End Sub A.a b 12 1 ab 2 B.ab 121 a b2C.ab 12 1a b2 D.ab 121a b2
第5题
运行下列程序,单击窗体后输出的结果是()。
Private Sub Form_Click()
Dim a
Dim s As Integer, i As Integer
a = Array(1, 2, 3, 4, 5, 6)
s = 1
For i = 5 To 1 Step -2
s = s * a(i)
Next i
Print s
End Sub
A、 15
B、 48
C、 120
D、 720
第6题
下列程序段,运行后窗体上输出结果是 Private Sub Commnad1_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 SubA. 1 B. True C. False D. 2
第7题
下列程序运行后的输出结果是______。Private Sub f(k,s) s = 1 for j = 1 To k s=s*j Next jEnd SubPrivate Sub Command1_ Click () Sum = 0 for i = 1 To 3 Call f(i, s) Sum = Sum + s Next i Print Sum End Sub
A.0
B.3
C.6
D.9
第8题
下列程序运行后的输出结果是 Function Fun(n) x=n*n Fun=x-11 End Function Private Sub Command1_Click() For k=1 To 2 y=Fun(k)=Print y Next End Sub
A.-10 -7
B.10 8
C.1 3
D.0 4
第9题
运行下列程序:
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
第10题
运行下列程序:
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
为了保护您的账号安全,请在“赏学吧”公众号进行验证,点击“官网服务”-“账号验证”后输入验证码“”完成验证,验证成功后方可继续查看答案!