小学算法（1+2+……+100）怎么做

Question

dim i,j
for i=1 to 100
j=j+i
next
debug.print j

Answer 1

dim i as integer
dim sum as integer
sum=0
for i=1 to 100
    sum=sum+i
next imsgbox "1+2+ … +100 = " & sum

Answer 2

method one:dim n,sum
n=100
for i=1 to n
    sum=sum+i
next
msgbox summethod two:dim i,sum
do while i<=100
    i=i+1
    sum=sum+i
loop
msgbox summethod three:dim sum
sum=(1+100)*100/2
msgbox sumand so on...

Answer 3

同意dsclub的
很是正确了
不是吧这个你都不会啊
还怎么学语言啊
多看些书吧

Answer 4

'1～100求和函数
'功能：从1连续加到100
Public Function Sum（）
  dim bytNum as byte 
  dim intSum as integer
  intSum=0
  for bytNum=1 to 100
    intSum=intSum+bytNum
  next bytNum 
  Sum=intSum
End Function 

Answer 5

如果是1+2+3.....+100000000000000000000那？最好使用数组例如5+6=a(0)=5a(0)+6=5+6=a(1)a(0)a(1)=1 
a(0)=1

Answer 6

'1～100求和函数
'功能：从1连续加到100
Public Function Sum（）as Integer
  dim bytNum as byte 
  dim intSum as integer
  intSum=0
  for bytNum=1 to 100
    intSum=intSum+bytNum
  next bytNum 
  Sum=intSum
End Function

Answer 7

dim i,j as int
j=0
for i=1 to 100
   j=j+i
next
print j

Answer 8

i=val(text1.text)
sum=(1+i)*i/2
print sum

Answer 9

GladisionBoy函数库
Sum函数:
Public Function Sum(ByVal Begin,ByVal Max)
    Sum=(Begin + Max)/2*Max '等差数列N项累加和公式
End Function

Answer 10

等差数列N项累加和公式:
s=n*(a1+an)/2

Answer 11

dim n%
dim sum%
sum=0
for n=1 to 100
    sum=sum+n
next nprint sum