VB编程的Do循环结构

VB编程的Do循环结构

不标准格式:do 语句块 loop while\until。中间还有一个exit do的语句可以跳出循环。

启动VB界面,建立标准EXE。

创建两个命令按钮,caption改为while,until。创建一个文本框,text=0,名称改为T1.

现在以1+2+3+...100为例,用do循环结构编程。点击while按钮,进入代码编辑器,

Dim i As Long, s As LongDo s = s + i i = i + 1Loop While i <= 100T1.Text = s

然后点击until按钮,进入代码编辑器,

Do s = s + i i = i + 1Loop Until i > 100T1.Text = s

编写好代码之后,点击运行一下,下面是两个用Do不同格式写出的同一个例子。

现在先点击while按钮,显示出5050.

然后再点击一下until按钮,显示的也是5050.

用两个do结构写的程序可以完成一样的效果,一个是while条件,一个是until条件,这两个条件刚好是反过来的,当符合while条件时,循环继续,当不符合until条件时,程序也是继续。