vf计算1~100所有能被3或4整除的数的和

来源:学生作业帮助网 编辑:六六作业网 时间:2024/12/27 18:54:21
vf计算1~100所有能被3或4整除的数的和vf计算1~100所有能被3或4整除的数的和vf计算1~100所有能被3或4整除的数的和PrivateSubCommand1_Click()DimiAsIn

vf计算1~100所有能被3或4整除的数的和
vf计算1~100所有能被3或4整除的数的和

vf计算1~100所有能被3或4整除的数的和
Private Sub Command1_Click()
Dim i As Integer,s As Long
For i = 1 To 100
If i Mod 3 = 0 Or i Mod 4 = 0 Then
s = s + i
End If
Next i
Print s
End Sub