下列程序运行后在立即窗口输出的结果是A=0Print A+1A=3
A.1
B.-1
C.3
D.0
A.1
B.-1
C.3
D.0
下列程序运行后在立即窗口输出的结果是()。
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
下列程序运行后立即窗口输出的结果是 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
运行下列程序,在立即窗口显示的结果是()。
PrivateSub Command0_Click()
Dim I AsInteger,J AsInteger
For I=2To 10
For J=2 To1
If I modJ=0 Then Exit For
Next J
IfJ>sqr(I)Then Debug.Print I;
Next I
End Sub
A.1579
B.468
C.3579
D.2357
试题35
运行下列程序,在立即窗口显示的结果是()
Private Sub Command0_Click()
Dim I As Single , J As Single
For I= 2 To 10
For J = 2 To I/2
If I mod J = 0 Then Exit For
Next J
If J > sqr (I) Then Debug .Print I;
Next I
End Sub
A.1 5 7 9
B.4 6 8
C.3 5 7 9
D.2 3 5 7
运行下列程序,在立即窗口显示的结果是
Private Sub Command0_Click()
Dim I As Integer,J As Integer
For I=2 To 10
For J=2 To I/2
If I mod J=0 Then Exit For
Next J
If J>sqr(I) Then Debug.Print I;
Next I
End Sub
A.1 5 7 9
B.4 6 8
C.3 5 7 9
D.2 3 5 7
运行下列程序:
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
A.PLC通电后,KM立即吸合;
B.PLC通电后,延时5秒后,KM吸合;
C.PLC通电后,延时0.5秒后,KM吸合;
D.PLC通电后,延时10毫秒,KM吸合。
Private Sub Command1_Click()
Dim x As Integer, n As Integer
n = 0
Do
n = n + 2
x = x + n
Loop While n< 10
Debug.Print x
End Sub
单击Command1命令按钮后,则在立即窗口上输出结果是是()。
A.2
B.10
C.12
D.30
运行下列程序:
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
运行下列程序:
Private Sub Command1_Click()
s1 = "Basic"
For i = 1 To Len(s1)
t = Mid(s1, i, 1)
s2 = s2 + Chr(Asc(t) + 1)
Next i
Debug.Print s2
End Sub
单击Command1命令按钮后,则在立即窗口上输出结果是()。
A.Cbtjd
B.65
C.Basic
D.出错
为了保护您的账号安全,请在“简答题”公众号进行验证,点击“官网服务”-“账号验证”后输入验证码“”完成验证,验证成功后方可继续查看答案!