Dim i As Integer Dim n As Integer For i = 100 To 300 If (i Mod 3 = 0) And (i Mod 7 = 0) Then n = n + 1 Print i End If Next Print "能被二者同时整除的数共有" & n & "个。"