private sub command1_click()
dim i,s as integer
for i=1 to 99
s=s+i
next
end sub

将下面的内容替换为上面的红色部分
i=1
while i<99
s=s+i
loop




i=1
do
s=s+1
i=i+1
while i<100

嘿嘿...这种题用C来做嘛,用VB体现不出VB的优势.

我觉得用面向对象思想来做这种题，简直就是。呵呵。。。

Private Sub Command1_Click()
Dim I As Integer, S As Integer

S = 0
For I = 1 To 99 Step 2
S = S + I
Next
Print S

I = 1
S = 0
Do While I < 100
S = S + I
I = I + 2
Loop
Print S

I = 1
S = 0
Do
S = S + I
I = I + 2
Loop While I < 100
Print S
End Sub