求一个初学者VB简单作业的程序，很弱智的也行，要完全做好的。采纳了追加50分！

我有百多个VB源代码，全发给你吧。

1、 求[10,1000]内所有能被被7和9中至少一个数整除的整数之个数。
答案：236
n=0
for i=10 to 1000
if mod(i,7)=0 or mod(i,9)=0
n=n+1
endi
endf
?n
2、 求[101,299]内所有能被2整除但不能同时被3和5整除的整数之和。
答案：18630
s=0
for i=101 to 299
if mod(i,2)=0 and not (mod(i,3)=0 and mod(i,5)=0)
s=s+i
endi
endf
?s
3、求100以内最大的自然数n，使得从1开始的连续n个自然数的倒数之和小于3.5。
答案：18
s=0
for i=1 to 100
s=s+1/i
if s>=3.5
exit
endi
endf
?i-1
4、求100以内最小的自然数n，使得从1开始的连续n个自然数的立方之和大于30000。
答案：25
s=0
for i=1 to 100
s=s+i^3
if s>30000
exit
endi
endf
?i
5、求出100以内使得算式1*2+2*3+…+n*(n+1)的值小于5000的最大的自然数n。
答案：23
s=0
for i=1 to 100
s=s+i*(i+1)
if s>=5000
exit
endi
endf
?i-1
5个应该够了吧！已经是很弱智了绝对简单！

Private Sub Command1_Click()
Static i As Integer
i = i + 1
Print "你好";
If i Mod 3 = 0 Then Print
End Sub

设定了一个Command按钮，点击一次就会在form中print“你好”：，点击三次之后第一行就有三个“你好”了，然后我希望第四次点击的时候出现的“你好”在第二行.

还不够简单，应该是1+2+。。。。。。100这样的算法

love.521.sk@139.com已发，注意查收。

28550******@qq.com 已发送