Private Sub Command33_Click()
D.im X As Integer,y As Integer
x=1:Y=0
D.o Until y<=25
y=y+X*X
X=X+1 ‘
Loop ’ 。
MsgBox“x一”&X&,“y=”&y
E.nd Sub
A.x=1,y=0
B.x=4,y=25
C.x=5,y=30
D.输出其他结果