vb中如何利用do-until循环求累加和

1、首先启动vb6，执行文件-新建工程命令，新建一个标准exe文件。

2、调整窗体的大小，在窗体中直接双击窗体进入代码区域。

3、对象设置为form，过程为click，将光标定位到输入区域。

4、接着输入代码，切换到英文状态下输入以下代码。

Dim s, i As Integer

s = 0

i = 1

Do

s = s + i

i = i + 1

Loop Until i = 101

Print "s="; s

5、点击工具栏中的启动按钮，点击窗体查看结果。

6、如果要计算其他连续数据的和的话，只需要修改结束条件即可，依次将窗体和工程保存在指定位置上即可。