Question

vba编程 求1+2+3...+100的值

Answer 1

Sub aa()
Dim i&, x&
i = 1
Do While i < 101
x = x + i
i = i + 1
Loop
MsgBox x
End Sub
或
Sub aa1()
Dim i&, x&
For i = 1 To 100
x = x + i
Next i
MsgBox x
End Sub
两种循环方式，值为5050

Answer 2

Private Sub Command1_Click()
Dim a, sum As Long
sum = 0
For a = 1 To 100
sum = sum + a
Next a
Print sum
End Sub

一共有6种方法

1
sum=0
for i = 1 to n
sum = sum+i
next i

2
i = 0
Do While i <= n
Sum = Sum + i
i = i + 1
Loop

3
i = 0
Do Until i > n
Sum = Sum + i
i = i + 1
Loop

4
Sum = (1 + n) * n / 2

5
While i <= n
Sum = Sum + i
i = i + 1
Wend

6
While i > n
Sum = Sum + i
i = i + 1
Wend

Answer 3

sum=0
for i=1 to 100
sum=sum+i
next