通常,(64)应用于保护被中断程序现场等场合。
A.队列
B.堆栈
C.双链表
D.数组
第1题
下列程序运行后在立即窗口输出的结果是()。
Private Sub Form_Click()
x="a":y="b"
z=1:u=2
Debug.Printx;y,z;u
Debug.Printz;x,y;u
End Sub
A.a b 1 2 1 ab 2
B.a b 1 2 1 a b 2
C.a b 1 2 1 a b 2
D.)a b 1 2 1 a b 2
第2题
下列程序运行后在立即窗口输出结果是()。 Private Sub Form_Click() x="a":y="b" z=1:u=2 Debug. Print x; y, z; u Debug. Print z; x, y; u End Sub
A.a b 1 2 1 ab 2
B.a b 1 2 1 a b 2
C.a b 1 2 1 a b 2
D.a b 1 2 1 a b 2
第3题
下列程序运行后立即窗口输出的结果是 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
第4题
运行下列程序:
Private Sub form_Click()
x$ = "123": y$ = "abc"
n = Len(x)
For i = 1 To n
Print Mid(x$, n + 1 - i, 1) + Mid(y$, i, 1);
Next i
End Sub
单击窗体后,则输出结果是()。
A.a1b2c3
B.a3b2c1
C.3a2b1c
D.1c2b3a
第5题
运行下列程序:
Private Sub form_Click()
For i = 1 To 2
x = 1
For j = 1 To 3
x = 5
For k = 1 To 4
x = x + 2
Next k
Next j
Next i
Print x
End Sub
单击窗体后,则输出结果是()。
A.5
B.13
C.25
D.48
第6题
运行下列程序:
Private Sub form_Click()
Dim x
x = 0
Do While x < 10
x = x + 3
Loop
MsgBox x
End Sub
单击窗体后,则在窗体上显示的结果是()。
A.0
B.3
C.10
D.12
第7题
运行下列程序:
Dim x, y
Private Sub Form_Click()
x = 1: y = 1: z = 1
fun1 (1)
Print x; y; z
End Sub
Private Sub fun1(a)
x = a + x: y = a + x: z = a + y
End Sub
单击窗体后,则输出结果是()。
A.1 1 1
B.2 3 1
C.2 3 4
D.2 2 1
第8题
执行下面程序,第一行输出结果是【 】,第二行输出结果是47。
Option Explicit
Private Sub Form_Click()
Dim A As Integer
A=2
Call Sub1 (A) End Sub
Private Sub1 (x As Integer)
x=x*2+1
If x<10 Then
Call Sub1 (x)
End If
x=x*2+1
Print x
End Sub
第9题
Private Sub
Form_Click Dim X#, Y#
X = 5: Y = 6
Print X + Y = 11 End Sub
A. X+Y=11
B. 5+6=11
C. 11
D. True
第10题
运行下列程序:
Private Sub Form_Click()
Dim sum As Integer
Dim i As Integer
sum = 0
For i =12.4 To3.1 Step -3.8
sum = sum + i
Next i
Debug.Print sum
End Sub
单击窗体后,则在立即窗口上输出结果是()。
A.15
B.- 0.7
C.24
D.0
为了保护您的账号安全,请在“上学吧”公众号进行验证,点击“官网服务”-“账号验证”后输入验证码“”完成验证,验证成功后方可继续查看答案!