输出100到200之间不能被3整除的数

sub main()
dim i as integer
for i=100 to 200
if (i mod 3) <> 0 then
debug.print i
end if
next
end sub

Private Sub Command1_Click()
Dim x As Integer
Dim a As String
For x = 100 To 200
If Int(x / 3) < x / 3 Then
a = a & "," & x
End If
Next
MsgBox "100-200之间不能被3整除的数是" & a
End Sub

就是这样了,不明白的地方联系我

for i=100 to 200
if i/3<>i\3 then
print"不能整除的数为：";i
end if
next i

Private Sub Command1_Click()
Dim x As Integer
Dim a As String
For x = 100 To 200
If Int(x / 3) < x / 3 Then
a = a & "," & x
End If
Next
MsgBox "100-200之间不能被3整除的数是" & a
End Sub

for(int i=100;i<=200;i++)
if(i%3!=0)
cout<<i<<endl;