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

问题：

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

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 . 输出其他结果

C

简单的循环计算，可以逐次循环计算出结果。