Question

VB语言 至少用三种循环结构实现计算1+2+...+100的值

至少用三种循环结构实现计算1+2+。。。+100的值。 是用VB哦。

Answer 1

Private Sub Command1_Click()
Dim sum As Integer
Dim i As Integer

For i = 1 To 100 'For 循环
sum = sum + i
Next i

Print sum

i = 1
sum = 0
While i <= 100 'while 循环
sum = sum + i
i = i + 1
Wend
Print sum

i = 1
sum = 0
Do 'do loop 循环
sum = sum + i
i = i + 1
Loop Until i > 100
Print sum

End Sub