VB题：编程输出1-100之间的所有可能被3整除的数

只给你一段代码吧。这个用任意循环语句+选择语句都可以实现
dim a as integer ‘定义一个整形变量a
a=0 'a是用来分行的，这里是用来打印的，如果不分行，显示结果会很难看，所以加了个a，楼主也可以去掉
for i= 1 to 100 ’执行100次循环，也就是历数从1到100这几个数
if i mod 3=0 then '判断历数的数是否能被3整除，如果可以被整除的话
a=a+1 '数出这是第几个数
print i & "、" ; '打印出这个被3整除的数，后面的;是连续不分行打印符号，“、”是为了页面打印美观
if a mod 5 =0 then '当一行满5个数时，自动换行
print
end if
end if
next i

结束，这个是用for 语句写的，当然也可以用do loop和while wend语句写可能更简单，下面举个例子，这次为了让楼主读懂就是纯打印，不考虑打印的美化，楼主可参上面的例子自己美化
while wend例子：
dim i as integer
i=1
while i<=100
if i mod 3=0 then
print i
end if
i=i+1
wend

do……loop例子
dim i as integer
i=1
do while i<=100 ’这里如果用until就是 do until i>100
if i mod 3=0 then
print i
end if
i=i+1 ‘这里的i变量就要自己加咯
loop

总结下，思路就是定义个循环，历数1-100之间的所有数（for,do……loop,while)，然后用选择判断这个数字是否能被3整除（if i mod 3=0 then),可以就打印。不过楼主注意的是，第一个例子中的a变量是控制每行数量的，可以在看懂后面和基础的去掉a变量的语句后，再去研究a变量

代码如下:
运行条件:form1上有一个文本框,名称text1,一个按钮,名称command1
运行结果显示在text1里面

Private Sub Command1_Click()
Dim i As Integer

Me.Text1.Text = ""

For i = 1 To 100
If i Mod 3 = 0 Then
Me.Text1.Text = Me.Text1.Text & i & " "
End If
Next
End Sub