Question

vb程序设计题

Answer 1

Dim
a,b
as
integer
a=1
Do
b=b+a
a=a+2
Loop
while
a<=999
messagebox.show(b)
当然，若要显示在文本框中最后一句改成“textbox1.text=b”