2011年度计算机等级考试二级VB基础教程(17)

会计考友

　4.4 循环结构　　循环是在指定的条件下多次重复执行一组语句。VB中提供了两种类型的循环语句：
( E& E( t/ v+ b　　计数循环语句和条件型循环语句
　　1. For循环语句(知道循环次数的计数型循环)
' s; V6 T3 h8 I2 d# z! b　　语句形式： For 循环变量 = 初值To 终值 [ Step 步长]
　　语句块
　　[Exit For]
2 B" C  m% u# e6 R0 C　　语句块
　　Next 循环变量
6 X' ?" f. h( F　　说明: 1) 循环变量必须为数值型
8 X2 g# i- t% q. N( K　　2)步长一般为正，初值小于终值;若为负，初值大于终值;缺省步长为1;
　　3)语句块可以是一句或多句语句，称为循环体;
　　4)Exit For 表示当遇到该语句时，退出循环体;
　　执行Next的下一句;
! e! u& ?$ a! |5 o+ H; U　　循环次数=int((终值 - 初值)/步长+1)
　　5)退出循环后，循环变量的值保持退出时的值;
　　6)在循环体内对循环变量可多次引用，但不要对其赋值，否则影响结果。
, t2 N0 x9 ^0 y: w9 f. e8 p3 H　　2. Do……Loop循环(不知道循环次数的条件型循环)
　　是用于控制循环次数未知的循环结构，语法形式有两种：
　　形式1：Do While …… Loop
　　Do [ While | Until 条件 ]
　　语句块
: x/ @$ O4 N& r$ ]& R5 }. a( L　　[ Exit Do ]
　　语句块
　　Loop
　　形式2：Do …… Loop While
$ Q: ?+ ]5 ?5 n1 X4 j　　Do
　　语句块
　　[ Exit Do ]
4 X& t9 ^/ t/ k9 g　　语句块
& y5 m  x# v- {8 w　　Loop [ While | Until 条件 ]
7 A7 o; {6 q2 w" ^　　说明：
　　1)形式1为先判断后执行，有可能一次也不执行;
　　2)形式2为先执行后判断，至少执行一次;
　　3)关键字While 用于指明条件为真时就执行循环体中的语句，Until刚好相反;
1 w9 z: ~6 ~( J. K　　4)当省略了While|Until 条件字句，即循环结构仅由 Do……Loop关键字构成时，表示无条件循环，这时循环体内应该有Exit Do语句，否则为死循环;
　　5)Exit Do 语句表示当遇到该语句时，退出循环，执行Loop的下一语句。
　　3. 循环的嵌套
! Z0 i: l' |" i. i1 M. r+ \5 T　　指在循环体内又包含了一个完整的循环结构。循环嵌套对For 循环和Do……Loop循环均适用。
　　4.5 其它辅助控制语句
　　1.Go To 语句
　　语句形式： Go To 标号 | 行号
3 z% C. l; G9 b( n# h* V* A　　说明：(1)Go To语句只能转移到同一过程的标号或行号处;标号是一个字符系列，首字符必须为字母，与大小写无关，任何转移到的标号后面必须有冒号： ;行号是一个数字序列;
　　(2)以前BASIC中常用此语句，可读性差;现在要求尽量少用或不用，改用选择结构或循环结构来代替。
/ k0 \, g7 B( U7 i2 b　　2.Exit语句
　　用于退出某控制结构的执行，VB的Exit语句有多种形式，如：
　　Exit For (退出For循环)
　　Exit Do (退出Do)循环)
! D- s5 T+ {( ]6 p3 r. z　　Exit Sub (退出子过程)
　　Exit Function(退出函数)
8 @, \1 U. V" q7 V3 u, y/ H1 e　　3.End 语句
　　独立的End语句用于结束一个程序的执行，可以放在任何事件过程中，形式为：End
) ?5 T& c. e+ D& c) [　　VB 的End语句还有多种形式，用于结束一个过程或块，如：
% n7 }6 _0 ^9 _7 [% T7 O9 Z　　End If， End With， End Type， End Select，End Sub， End Function
+ S# h" g5 }! c" N, q" ^　　4.With语句
　　它的作用是可以对某个对象执行一系列的语句，而不用重复指出对象的名称。但不能用一个With语句设置多个不同的对象。属性前面需要带点号“· ”。
6 @" t$ z2 \( ?5 D# ^　　语句形式如下： With 对象名
　　语句块
) A0 `) `+ u, b　　End With
　　例：With form1
' ?2 {# R+ I4 M' J　　. Height=3000
$ a. l& n8 n* I& u1 o3 A5 r　　. Width=4000
　　. BackColor=RGB(255,0,0)
  F" K3 M8 Q. @7 ^4 h　　End With