下列程序段的运行结果是:Private Sub Command1_Click()Dim n AS IntegerI =21:n = 3do while I>n
下列程序段的运行结果是:Private Sub Command1_Click() Dim n AS Integer I =21: n = 3 do while I>n I=I- n Loop Print IEnd Sub在窗体上打印的结果是______。
A.3
B.5
C.6
D.8
下列程序段的运行结果是:Private Sub Command1_Click() Dim n AS Integer I =21: n = 3 do while I>n I=I- n Loop Print IEnd Sub在窗体上打印的结果是______。
A.3
B.5
C.6
D.8
A.X+Y=11
B.5+6=11
C.11
D.True
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
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
Printx
End Sub
A.1
B.True
C.False
D.2
下列程序段,运行后窗体上输出结果是 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
A.4321
B.1234
C.34
D.12
A.AABAAB
B.ABBABA
C.BABBA
D.BBABBA
下面程序段的运行结果是()。 Private Sub Form_Click() For I=3 to 1 step-1 Print Spc(10-I); For j=1 to 2*I-1 print"*"; Next j Print Next I End Sub
A.***** *** *
B.* *** *****
C. * *** *****
D. * *** *****
下面程序段,运行后的结果是 Private Sub Commandl_Click() Dim b%(1 To 4),i%,t# For i=1 To 4 b(i)=i Next i t=Tof(b() ) Print"t=";t, End Sub Function Tof(a() As Integer) Dim t#,i% t=1 For i=2 To UBound(A)t=t * a(i) Next i Tof=t End Function
A.t=18
B.t=24
C.t=30
D.t=32
下面程序段,运行后的结果是
Private Sub Command1_Click
Dim b%(1 To 4), i%, t#
For i=1 To 4
b(i) =i
Next
t=Tof(b() )
Print "t="; t,
End Sub
Function Tof(a() As Integer)
Dim t#, i%
t=1
For i=2 To UBound(a)
t=t a(i)
Next
Tof=t
End Function
A.t=18
B.t=24
C.t=30
D.t=32
为了保护您的账号安全,请在“简答题”公众号进行验证,点击“官网服务”-“账号验证”后输入验证码“”完成验证,验证成功后方可继续查看答案!