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

来源:学生作业帮助网 编辑:作业帮 时间:2024/05/05 04:25:13
编程vb题,编程求200–400范围内5的倍数或7的倍数(一个数如果同时是7和5的倍数,则只能加编程vb题,编程求200–400范围内5的倍数或7的倍数(一个数如果同时是7和5的倍数,则只能加一次)

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

编程vb题,编程求200–400范围内5的倍数或7的倍数(一个数如果同时是7和5的倍数,则只能加编程vb题,编程求200–400范围内5的倍数或7的倍数(一个数如果同时是7和5的倍数,则只能加一次)
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 Sub