编写vb程序，输入初始值，输出100个不能被3整除的数

Question

如题所述

Answer 1

Dim m
Dim a(100)
Private Sub command1_click()
m = InputBox("请输入初始值:")
s = m
num = 0
While num <> 99
If m Mod 3 <> 0 Then
a(num) = m
num = num + 1
m = m + 1
Else
m = m + 1
End If
Wend
For i = 0 To num
Debug.Print a(i);
Next
End Sub
这个程序就能实现你要的功能，如果要在form里输出（debug.print就写成print好了）

Answer 2

这100个数是顺序的吗？ 如下： Private Sub Command1_Click() n = Val(InputBox("请输入一个数")) t = 0 For i = n To 100000 If i Mod 3 <> 0 Then Print i; t = t + 1 End If If t = 100 Then Exit For If t Mod 10 = 0 Then Print Next End Sub参考： http://zhidao.baidu.com/question/44654596.html?si=2