程式碼基礎練功.2

計算 1+2+3+...+100 之值，請分別用 For，While、Until，Do Loop方式為之
(Excel VBA參考程式碼如下)

Sub TestSummation()
Dim iiNum As Integer
Dim iiSum As Integer
iiSum = 0
iiNum = 0
For iiNum = 1 To 100
iiSum = iiSum + iiNum
Next iiNum
Debug.Print iiSum
'************************(1)
iiSum = 0
iiNum = 0
Do While iiNum <= 100
iiSum = iiSum + iiNum
iiNum = iiNum + 1
Loop
Debug.Print iiSum
'************************(2)
iiSum = 0
iiNum = 0
Do
iiSum = iiSum + iiNum
iiNum = iiNum + 1
Loop While iiNum <= 100
Debug.Print iiSum
'************************(3)
iiSum = 0
iiNum = 0
Do Until iiNum > 100
iiSum = iiSum + iiNum
iiNum = iiNum + 1
Loop
Debug.Print iiSum
'************************(4)
iiSum = 0
iiNum = 0
Do
iiSum = iiSum + iiNum
iiNum = iiNum + 1
Loop Until iiNum > 100
Debug.Print iiSum
'************************(5)
End Sub