我在做VB程序,需要求sum=从1加至n,怎么写程序?请速速支援!

dim i as integer
dim j as integer
dim sun as integer '放在通用中

'如果你要输入N的值就这么写

i=text1.text '将文本框中输入的值赋给I

'下面的放在 确定 按钮下
For i = 1 To n
sum = sum + i
Next

'下面的放在输出的文本框中
j = sum

sum=0
n=10 '可自行修改
for i=1 to n
sum=sum+i
next

Dim sum As Integer
Dim i As Integer
For i = 1 To n
sum = sum + i
Next

不错。。。有分就有人回复哈哈！