写一个用Do until...loop循环语句写个1~100的叠加程序？

来源：百度知道 编辑：UC知道 时间：2024/05/26 00:49:43
急要，谢谢！！！
要是VB语言啊，你们写的我都看不懂，标准点，用ASP可以直接执行的

?
是1加到100么，还是什么？

i=0
s=0
do until i<100
i=i+1
s=s+i
loop

s就是最后的结果，这个行不
VB写的，好久没用过了
你看看

Private Sub Command1_Click()
Dim sum As Integer
Do Until sum > 100
For i = 1 To 100
sum = sum + i
Next
Loop
Print sum
End Sub

或

Private Sub Command2_Click()
sum = 0
For i = 1 To 100
sum = sum + i
Next
Print sum
End Sub