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后面一句不懂那個不懂意義不大，你當(dāng)成 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提醒。