下列程序的输出结果是______。 Private Sub Command1_Click（) Dim arr（1To 10) For i＝1 To 10 arr

有如下事件程序，运行该程序后输出结果是（）。

PrivateSub Command33_click

Dim x AsInteger，Y AsInteger

x=1：y=0

Do Untily＜=25y=y+x*xx=x+1

Loop

MsgBox”x=＆x＆”，y="&Y

End Sub

A.x=1，y=0

B.x=4，y=25

C.x=5，y=30

D.输出其他结果

运行下列程序，显示的结果是（）。

PrivateSub Command34 Click（）i=0

Do

i=i+1

LoopWhile i＜10 MsgBox i

End Sub

A.0

B.1

C.10

D.11

.以下程序运行后，单击命令按钮，输出的结果为：________。

PrivateSub Inc(Byval A As Integer)

Static x As Integer

x = x + A

Print x；

EndSub

PrivateSub Command1_Click()

Inc 4

Inc 3

Inc 2

EndSub

运行下列程序，在立即窗口显示的结果是（）。

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

A.程序输出的结果是hello你好

B.程序输出的结果是hello

C.程序输出的结果是ok

D.程序输出的结果是你好

A.程序输出的结果是hello你好

B.程序输出的结果是hello

C.程序输出的结果是ok

D.程序输出的结果是你好

运行下列程序，结果是（）。

PrivateSub Command32_click

f0=1：fl=1：k=1Do While k＜=5 f=f0+f1

f0=fl

fl=f

k=k+1

Loop

MsgBox”f=”＆f

End Sub

A.f=5

B.f=7

C.f=8

D.f=13

运行下列程序，输入数据8、9、3、0后，窗体中显示结果是（）。

PrivateSub Form. click（）

Dim sumAs Integer，mAs Integersum=0

Do

m=InputBox(”输入m”)

sum= sum+m

LoopUntil m=0

MsgBoxsum

End Sub

A.0

B.17

C.20

D.21

下列程序段的输出结果是【15】 。

cout＜

下列程序段运行后输出结果是（）。