Question

编程vb题,编程求200–400范围内5的倍数或7的倍数(一个数如果同时是7和5的倍数,则只能加

Answer 1

Private Sub Command1_Click()

Dim n As Integer

Cls

For i = 200 To 400

If i Mod 5 = 0 Or i Mod 7 = 0 Then

n = n + 1

Print i;

If n Mod 5 = 0 Then Print

End If

Next i

Print

Print "满足条件的数共" n "个"

End Su