kaplan gre模考难度:用VB编写程序:计算1+2+3+........+100中所有偶数且为3的倍数的和~~~?

来源:百度文库 编辑:杭州交通信息网 时间:2024/05/02 03:03:16

Private Sub Command1_Click()
For a = 1 To 100 '定于a 从 1 到 100
If a Mod 2 = 0 And a Mod 3 = 0 Then '先判断a是不是偶数再判断a是 _ 不是3的倍数,如果是的话 执行 b = b + a

b = b + a
End If
Next
Print b
End Sub

s=0
For i=1 to 100
IF i/2=Int(i/2) and i/3=Int(i/3) then
s=s+i
End IF
Next i

Private Sub comulation()
result = 0
For i = 6 To 100 Step 6
result = result + i
Next
End Sub