“vb”中“do”、“until”、“loop”的用法是什么？

Question

Private Sub Command1_Click()
x = 0
Do Until x = -1
a = InputBox("请输入a的的值")
a = Val(a)
b = InputBox("请输入b的的值")
b = Val(b)
x = InputBox("请输入x的的值")
x = Val(x)
a = a + b + x
Loop
Print a
End Sub

Answer 1

Do循环由Do和Loop构成,但如果只有Do和Loop的话将不停地执行Do和Loop之间的语句块,所以需要使用可选的关键字While或Until以及Eixt Do来指定循环的条件以及退出循环.
关键字While是指当条件为True时执行循环,而Until则是在条件变为True之前重复,就你的例子来说,用关键字Until给出了X=-1这个条件,意思就是在X=-1这个条件不成立的时候循环一直重复执行,直到X=-1这个条件成立了,则结束循环.
下面是详细的例句解析:
Do循环在使用关键字While或Until的时候有两种写法,一种是放在开头,一种是放在结尾,而Eixt Do则是插在循环体内语句块的任何地方,,用来在需要的时候退出循环.
关键字While或Until的两种写法见如下格式:
[第一种]
Do While(或Until) 条件 '关键字和条件放在开头
语句块
Loop
这种格式是用关键字While指定的条件为True时执行循环,或用Until在指定的条件变为True之前重复执行循环.
[第二种]
Do
语句块
Loop While(或Until) 条件 '关键字和条件放在结尾
这种格式是不管条件是否成立,都先执行一次循环,然后再判断条件来决定是否继续循环.
Do
If (a * i ^ 2 + b * i + c) * (a * m ^ 2 + b * m + c) > 0 Then
i = m
End If
Loop Until Abs(i - s) <= d