谁能帮我编一个程序？很简单很简单的~~

来源：百度知道 编辑：UC知道 时间：2024/05/20 03:45:28
就是要输出1~200之间所有不能被3整除的数。
用VB编写，尽量用最简单的句子就好……
谢谢了，分不够我再追加。有哪位大虾有意愿教我吗？我们学业水平测试在即，老师又不屑于指导我们这些连这样的程序都编不出来的人……
救人一命吧~~~~~~~
要把所有数都列出来，最好再告诉我窗体上要哪些按钮，都怎么用……

Private Sub Command1_Click()
Dim i As Integer
For i = 0 To 200
If i / 3 - i \ 3 <> 0 Then
Text1.Text = Text1.Text & i & ","
End If
Next i
End Sub

只要一个COMMAND就好了

for i=1 to 200
if (i%3==0) then
print i;
end if
next i

dim i
for i=1 to 200
if i mod 3<>0 then print i;" " ;'显示要求的 数
if i mod 10=0 then print'换行
next i

private sub command1_click()
for i=1 to 200
if i mod 3<>0 then
print i;
end if
next
end sub

记得在窗体上加一个按钮