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

Question

用vb

Answer 1

这们是不对的，例如：这样的程序100也会输出，因为100/15的余数是在于0的。但是100不能被3整除，可能被5整除。
这样才是对的：
for
i
=
100
to
200
if
i
mod
3
>
0
and
i
mod
5
>
0
then
print
i
next

Answer 2

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

Answer 3

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

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

Answer 4

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

Answer 5

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