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提醒。