用VB do loop 语句设计一个求S=1+2+3+100的程序并计算结果

Do
Loop Until
语句是一个条件循环
只有当until（只有） 后的条件成立时Do后面的循环才结束
一楼是正确的
i从1 到100 都不符合条件
所以一直执行语句
a = a + i
i = i + 1
当i>100 时条件成立
循环结束
再将a=5050打印出来

do until loop先累加后循环至少累加一次
do loop until先循环后累加至少不累加
1楼代码是对的

Private Sub Command1_Click()

  Dim s As Integer, i As Integer

  s = 0

  i = 1

  Do

    s = s + i

    i = i + 1

  Loop While i <= 100

  Print "S=1+2+3+...+100="; s  

End Sub

关于vb 解释Do...Loop 语句 用do loop until语句编写 do...loop循环语句 用VB做：用DO...LOOP语句求1+2+...+100的值 帮忙写个VB小程序，几句话，很短！用Do while...loop语句。 vb循环语句导致类似死机的状态，用do loop写的，为什么？ VB 圆周率 DO LOOP 在VB中，do...loop 和 while...wend 语句有什么不同？ 关于do......loop语句的疑问 VB中的Do while Loop循环