Question

谁能给我一个VB中While语句的实例，我刚入门

请哪位高手帮帮我，谢谢（附说明）
最好有实例和讲解，因为刚刚入门，所以请讲得通俗一些

Answer 1

VB中While...Wend语句的功能及用法

只要指定的条件为 True，则会重复执行一系列的语句。

语法

While condition
[statements]

Wend

While...Wend 语句的语法具有以下几个部分：
部分 描述
condition 必要参数。数值表达式或字符串表达式，其计算结果为 True 或 False。如果 condition 为 Null，则 condition 会视为 False。
statements 可选参数。一条或多条语句，当条件为 True 时执行。

说明

如果 condition 为 True，则所有的 statements 都会执行，一直执行到 Wend 语句。然后再回到 While 语句，并再一次检查 condition，如果 condition 还是为 True，则重复执行。如果不为 True，则程序会从 Wend 语句之后的语句继续执行。

While...Wend 循环也可以是多层的嵌套结构。每个 Wend 匹配最近的 While 语句。

提示 Do...Loop 语句提供了一种结构化与适应性更强的方法来执行循环。

While 条件
... 【省略号为要循环的语句，可能一个或是多个】
Wend
计算机遇到这样的代码时是怎么执行的呢？其实道理也是一样的。
依然是对这个条件的返回值作出判断，如果条件成立，也就是返回值是True，则执行里面的语句，当执行到Wend这个位置后，会跳回到开始的位置，继续对这个条件返回的值进行判断，如果返回值还是True，则继续循环执行里面的语句…..直到返回值是False了，才停止循环。下面举个例子说明这种循环的使用方式：
Dim I ‘定义一个变量I
I = 10 ‘将变量I 的值赋予10.
Do While I > 5 ‘当变量I 里的值大于5的时候，循环执行里面的语句。
Msgbox I ‘弹出一个消息框，内容显示I 的值。
I = I – 1 ‘变量I 的值在当前的基础上减1
Loop
第一次弹出I 的值。
当进行第二次循环时，条件成立，弹出消息框，变量I 的值变成了9.
以此类推，依次的结果是：8、7、6…直到变量I 中的值减1变成5后，再次回到
I = I – 1这个关系表达式中对I – 1这个条件进行判断，由于5和5进行大于关系运算的话，是不成立的，所以即返回false，立马终止循环。
那么可能有人会问，这种循环和先前我们学习的Do while循环有什么区别呢？是有一个小的区别的。
区别：此循环语句不能使用Exit语句强行退出，如：
Dim I ‘定义一个变量I
I = 10 ‘将变量I 的值赋予10
While I > 5 ‘当变量I 里的值大于5的时候，循环执行里面的语句。
Msgbox I ‘弹出一个消息框，内容显示I 的值。
I = I – 1 ‘变量I 的值在当前的基础上减1
if I = 7 then
Exit Do
end if
Wend
这样循环的话会出现错误，如下图：

Exit do这个退出语句只能在Do While循环语句中执行。当然，这些语句可以互相的嵌套。

Answer 2

【语法】:
while "条件语句"

...循环体...

wend

【例1】:

i=0
while i<=100
s=s+i '求累加和
i=i+1
wend
print s

【例2】
Private Sub Command1_Click()
Dim a As Double
Dim b As Integer
Dim c As String '声明3个变量
a = 6500000000# ' a保存的是现在的世界人口65亿
b = 0 '保存多少年后人口达到80亿
c = 0.014 '人口增长率每年千分之十四

While a <= 8000000000# '循环条件就是a小于80亿，
a = a + a * c
b = b + 1 '只要a小于80亿就循环，每循环一次人口在原来基础上增加0.014， b自身增加1
Wend '结束循环
Print b & "年后，人口达到" & a '显示结果

End Sub

Answer 3

asp网页中的
do while not rs.eof
a=rs("name")
loop