用VB程序编写程序输出50～200之间不能同时被3和7整除的自然数,并统计其个数

Sub Main()
    dim i as integer, n as integer
    
    n = 0
    for i = 50 to 200
        if i mod 3 <> 0 and i mod 7 <> 0 then n = n + 1
    next
    
    messagebox n
End Sub谢谢你next后面一句不懂那个不懂意义不大，你当成 Print n 来理解就行了。哦，thankyou

Dim i As Integer, n As Integer

  

n = 0

For i = 50 To 200

    If i Mod 3 = 0 And i Mod 7 = 0 Then

    Else

        n = n + 1

    End If

Next

Print n

End

谢谢x11提醒。