文档介绍：Visual Basic 程序设计教程Visual Basic 程序设计教程第三章11基本控制结构?顺序结构程序虽然比较容易理解,但是不可能处理复杂的问题。?计算机要处理的问题往往是复杂多变的,仅采用顺序结构是不够的。必须利用选择结构等来解决实际应用中的各种问题。VB中主要通过If条件语句和Select情况语句来实现。它们都是对条件进行判断,根据判断结果,选择执行不同的分支。?计算机最擅长的功能之一就是按规定的条件,重复执行某些操作。在实际应用中,经常遇到一些操作并不复杂,但需要反复多次处理的问题,比如要计算1+2+3…+10000,直接把这个求和的表达式用手工输入显然是不现实的。这类问题都可通过循环结构来方便地实现。22VB中提供了主要两类循环语句:?For…Next循环语句(一般已知循环次数);? Do…Loop条件型循环语句(一般未知循环次数)。有时,在程序中必须强迫改变程序的流程已脱离循环,VB也提供了几个可以影响执行程序流程的语句:? Exit For? Exit Do? 循环结构程序设计33程序代码如下:Private mand1_Click() Dim S% ,i% S=0 ‘累加前变量S为0(清零) For i=1 to 100S=S+i Next i Print " S= " ;S Print "循环控制变量i="; iEnd …:计算1+2+3+4+…+100之和。程序分析:1到100的累加,可以看做从0开始,每次加一个数,重复加100次i=1 S=1 i=2 S=3i=3 S=6i=4 S=10……i=100 S=5050i=101 S=5050i=1 S=1 i=2 S=3i=3 S=6i=4 S=10……i=100 S=5050i=101 S=5050求1-100之间奇数数之和,偶数之和;计算1*2*3*4*…*:输出1-100中的能被3和5同时整除的整数的个数。程序分析:可以利用循环语句依次枚举1-100中的每个数,再对每个数进行判断,设置计数器,满足条件则把计数器加1。 … Next循环语句程序代码如下:Private Sub Form_Click() n = 0 ‘累加前变量n为0(清零) Dim i As integer For i = 1 To 100 If (i Mod 3 = 0) And (i Mod 5 = 0) Then Print i; "能够被"; 3; "和"; 5; "整除" n = n + 1 End If Next iPrint "n="; nEnd Sub55一般情况下,For … Next需要正常结束,即循环变量到达终值。但在某些情况下,可能在循环变量到达终值前需要退出循环,这可以通过Exit For语句来实现。Exit … Next循环语句例如:Private Sub Form_Click() Dim i! ,j% For i=1 to 100 Step = j +1 If i*j>5000 Then Exit For Next i Print " j= " ;j Print "循环控制变量i="; iEnd Sub如果没有Exit For语句,循环体应该被执行991次[Int((100-1)/+1)],但在第220次循环时,i*j的值为23×220>5000,满足条件而退出当前循环,所以循环体实际被执行了220次。66Do…Loop循环语句-----比较Do循环用于控制循环次数未知的循环结构。格式1:Do[ While|Until ]<条件> 语句块[Exit Do ] 语句块Loop格式1为先判断后执行,有可能一次也不执行;格式2为先执行后判断,至少执行一次。格式2:Do语句块[Exit Do]语句块Loop[While|Until] <条件>77例:求1+2+……+100的值Private Sub Form_click() FontSize = 30 Sum = 0 n = 1 Do Sum = Sum + n n = n + 1 Loop Until n > 100 Print SumEnd SubPrivate Sub