Dim m As Integer, s As Integer, t As Integer
s=0
t=4
For m=t To 10 Step 2
s=s+m
Next m
Print s
微信扫码预览、分享更方便