VB 计算 1+2+3+。。。n的代码怎么写啊？

Question

用 VB
1、计算 1+2+3+。。。n的代码怎么写啊？
要是可以的话，再帮我写下下面几道题的代码吧~好难啊
谢谢高手了~
2、编程计算2倒50间，偶数的和
3、编程输出100到200间不能被3整除的数
4、写出能产生1—30间随机整数的表达式
我想问下，答题的好心人~你调试过了没有？
我怎么把代码复制到VB窗口运行后，没反应啊~
你是不是搞的是C语言啊?而不是VB?

Answer 1

1,
首先你在窗体上放二个text.text控件(一个用来输入数N,一个用来显示结果)和command按钮控件
Private Sub Command1_Click()
Dim n As Long
Dim b As Long
For n = 1 To CInt(Text1.Text)
b = b + n
Next n
Text2.Text = b
end sub
把代码放到command1按钮里,单击command1按钮就能在text2.text中显示结
2,首先你在窗体上放一个text.text控件(用来显示结果)和command按钮控件
Private Sub Command1_Click()
dim n as long
dim b as long
for n=2 to 50 step 2
b=b+n
next n
text1.text=b
end sub
把代码放到command1按钮里,单击command1按钮就能在text1.text中显示结果
3,首先你在窗体上放一个text.text控件(用来显示结果)和command按钮控件
Private Sub Command1_Click()
dim n as long
dim b as long
for n=100 to 200
if n mod 3<>0 then b=b+n
next n
text1.text=b
end sub
把代码放到command1按钮里,单击command1按钮就能在text1.text中显示结果
4,首先你在窗体上放一个text.text控件(用来显示结果)果和command按钮控件
Private Sub Command1_Click()
text1.text=int(30*rnd)+1
'int(30*rnd)+1 是随机生成1-30的整数
end sub
把代码放到command1按钮里,单击command1按钮就能在text1.text中显示随机生成的（1-30之间的整数）

Answer 2

以下全是VB写的代码,但只有第一个是完成的函数,你可以通过调用:
dim a as long
a=f(100)
msgbox a
就可以看到1加到100的结果了.
其他只是部份代码,你要查看变量保存的值才能知道结果的.
2,3,4的代码你不要用一个函数调试,那样会产生变量重复定义的错误的.

1.
private function f(byval n as integer) as long
dim i as integer
dim r as long
r=0
for i=1 to n
r=r+i
next i
f=r
end function
'函数f(n)的返回值就是你要的结果了.

2.
dim i as integer
dim r as long
r=0
for i=2 to 50 step 2
r=r+i
next
'r中保存的就是结果.

3.结果输出在立即窗口中.
dim i as integer
dim d as integer
for i=100 to 200
if i mod 3<>0 then
debug.print i
end if
next

4.
dim i as integer
i=int(30*vba.rnd())+1
'i的结果就是你想要的.

Answer 3

n