Dim zhs结果 As IntegerFor zhs As Integer = 1 To 99 Step 2zhs结果 = zhs结果 + zhsNextMsgBox(zhs结果)
dim sum as integersum=0for i=1 to 99 step 2 sum=sum+inext iprint sum