Question

求1—500之中能被3整除但不能被5整除的数的个数以及这些数累加的和.按钮命名为“统计个数以及和”

Answer 1

Private Sub Command1_Click()

For I = 1 To 500

If I Mod 3 = 0 And I Mod 5 0 Then

n = n + 1

s = s + I

End If

Next I

Print n, s

End Sub

Private Sub Form_Load()

Command1.Caption = "统计个数以及和"

End Su