Question

VB编程求200之内能整除5但不能整除3的数

Answer 1

运行后在窗体上单击即可 代码如下
Private Sub Form_click()
For i = 1 To 200
If i Mod 5 = 0 And i Mod 3 <> 0 Then
Print i;
k = k + 1
If k Mod 9 = 0 Then Print '输出9个就换行
End If
Next i
End Sub

Answer 2

抢个沙发！
S=""
for i=0 to 200 step 5
if i mod 3 <> 0 then S=S & i & ","
next i
Msgbox S

Answer 3

dim iRes5 as Integer
dim iRes3 as Integer
dim i as Integer

for i=0 to 200
iRes5 =i mod 5;
iRes3 =i mod 3;
if iRes5 =0 and iRes3>0 then
debug.print i;
end if
next