循环语句产生的背景:
实际应用中,经常会遇到一些操作并不复杂,但需要反复多次处理的问题。诸如:打印数字1到100等等。若使用顺序结构的程序来处理,代码将十分繁琐,为此,VB提供了循环语句。
循环语句产生一个重复执行的语句序列,直到指定的条件满足为止。
VB提供3种不同风格的循环语句:计数循环(for-next循环)、当循环(While-wend循环)、do循环(Do-loop循环)。其中For-next循环按规定的次数执行循环体,而while-wend循环和do循环则是在给定条件满足时执行循环体。
各举一例:
例1。打印数字1~100.
private sub form_click()
for i=1 to 100
print i
next i
end sub
例2。输入问号结束输入的小程序。
private sub form_click()
dim a as string
a=inputbox("请输入,输入问号将结束输入")
While a <> "?"
a=inputbox("请输入,输入问号将结束输入")
wend
end sub
例3。
private sub form_click()
a=10
do while a<10
a=a+1
loop
print a
end sub
vb中有for...next循环,do...loop循环
在VB中,代码的执行都是从上到下的~可是当遇到循环语句的时候,他就会在一定的代码内循环,例如
语句块1
语句块2
语句块3
代码的执行顺序是 语句块1→语句块2→语句块3
而for循环
语句块1
for i= 1 to 5
语句块2
next
语句块3
顺序是 语句块1→for循环开始,初始循环变量i=1→语句块2→next,即i的值增加1,并返回到for循环的头部,此时i=2→继续循环,一直到到i超出了5→语句块3
do loop循环类似~
回答补充:
一般用于有规则的重复问题~例如,从1一直加到10,代码如下
sum=0
for i=1 to 10
sum=sum+i
next
print sum
For...Next 语句示例
本示例使用 For...Next 语句创建一个字符串,其内容为由 0 到 9 的十个数字所组成的字符串,每个字符串之间用空格隔开。外层循环使用一个变量当作循环计数器,每循环一次,变量值减一。
Dim Words, Chars, MyString
For Words = 10 To 1 Step -1 ' 建立 10 次循环。
For Chars = 0 To 9 ' 建立 10 次循环。
MyString = MyString & Chars ' 将数字添加到字符串中。
Next Chars ' Increment counter
MyString = MyString & " " ' 添加一个空格。
Next Words
Do...Loop 语句示例
本示例示范如何使用 Do...Loop 语句。内层的 Do...Loop 语句循环到第 10 次时将标志值设置为 False,并用 Exit Do 语句强制退出内层循环。外层循环则在检查到标志值为 False 时,马上退出。
Dim Check, Counter
Check = True: Counter = 0 ' 设置变量初始值。
Do ' 外层循环。
Do While Counter < 20 ' 内层循环。
Counter = Counter + 1 ' 计数器加一。
If Counter = 10 Then ' 如果条件成立。
Check = False ' 将标志值设成 False。
Exit Do ' 退出内层循环。
End If
Loop
Loop Until Check = False ' 退出外层循环。
While...Wend 语句示例
本示例使用 While...Wend 语句来增加计数变量的值。如果条件判断值为 True,则循环内的语句将一直执行下去。
Dim Counter
Counter = 0 ' 设置变量初值。
While Counter < 20 ' 测试计数器的值。
Counter = Counter + 1 ' 将计数器的值加一。
Wend ' 当 Counter > 19 时则循环终止。
Debug.Print Counter ' 在“立即”窗口中显示数字 20。
基本上就这几种循环了