VB循环题

来源：百度知道 编辑：UC知道 时间：2024/07/04 12:34:51
1+2+3+4+5+6+...+99+100

用For循环 while当循环 Do while循环 Do Until循环 简单做出

我说哥们…向这样的题都弄出来，干脆别弄VB了…你应该自己想想，我想这种级别的题多想试几便就出来了…何必呢？

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

Private Sub Form_click()
Dim a As Integer, sum As Integer
a = 1
sum = 0
Do While a <= 100
sum = sum + a
a = a + 1
Loop
Print sum
End Sub

Private Sub Form_click()
Dim a As Integer, sum As Integer
a = 1
sum = 0
Do Until a > 100
sum = sum + a
a = a + 1
Loop
Print sum
End Sub