单项选择题

有如下事件程序，运行该程序后输出结果是______。
Private Sub Command33_Click()
Dim x As Integer，y As Integer
x=1:y=0
Do Until y＜=25
y=y+x*x
x=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．输出其他结果
<上一题 目录 下一题>
热门 试题

单项选择题
运行下列程序，结果是（）。 Private Sub Command32_Click() f0=1:f1=1:k=1 Do While k＜=5 f=f0+f1 f0=f1 f1=f k=k+1 Loop MsgBox f= &f End Sub

A．f=5
B．f=7
C．f=8
D．f=13
相关试题