你的输出是 Print i ,循环过后 i 的值自然是0了
Private Sub Command1_Click()Dim a As IntegerFor i = 10 To 1 Step -2 s = s + iNext iPrint sEnd Sub
注意:Print i 改为 Print s
Print i,i当然是0了。