Question

用VB编一个程序,求从1至100的自然数的和

Answer 1

dim i as integer
dim sum as integer

i = 1

方法1
do while i <= 100
sum = sum + i
i = i + 1
loop

方法2
do until i > 100
sum = sum + i
i = i + 1
loop

方法3
do
sum = sum + i
i = i + 1
loop while i < 100

Answer 2

Private Sub Form_Click()
Dim i%, sum%
sum = 0
For i = 1 To 100
sum = sum + i
Next
MsgBox "1+2+3+... ...+99+100=" & sum
End Sub

Answer 3

public function sum() as integer
dim i ,j as integer
for i=1 to 100
j=j+i
next i
sum=j
end function