[工学]VB4-34.pptVIP

一、单分支条件语句 （If…Then语句） 二、双分支条件语句 （If…Then…Else） 三、多分支条件语句 （If…Then…ElseIf） 四、情况语句 （Select Case语句） Select Case 结构与If多分支结构的区别 Select Case 结构每次都要在开始处计算表达式的值。而 If多分支结构为每个 ElseIf 语句计算不同的表达式。 只有在 If 语句和每一个 ElseIf 语句计算相同表达式时，才能用 Select Case 结构替换 If多分支结构。 循环结构: 算法用传统流程图描述为： 例如：由For 组成的二重循环 For i = 1 To n …... …... For j = 1 To m …… Next j …... …... Next i 注意 P111 初值、终值和步长在循环体内发生变化，不会影响程序的执行次数，但循环变量在循环体内被重新赋值，则循环次数有可能发生变化。 例：Dim i As Integer, k As Integer, n As Integer n = -3 For i = 10 To 1 Step n i = i + 2 n = 3 k = k + 1 Print i, Next i Print Print k: Print n ‘k表示循环次数 用于循环次数未知的结构，此时，循环次数由程序执行中某种条件是否已被满足来决定。 1. Do … Loop循环语句格式(五种) (1) Do While … Loop 4.4.2 Do … Loop循环语句 Do While 条件 语句块 [Exit Do] 语句块 Loop 条件 语句块 F T 语句块 Exit do 循 环 体 例：用Do While…Loop循环求1到100的平方和。 Private Sub Form_Click() Dim iSum As Long Dim i As Integer i = 1 : iSum = 0 Do While i = 100 iSum = iSum + i*i i=i+1 Loop Print iSum End Sub 举例 Do While…Loop 注意： 若开始循环条件就不成立时，循环体一次也不执行。 （2）Do … Loop While Do 语句块 [Exit Do] 语句块 Loop While 条件 条件 语句块 T F 语句块 Exit do 循 环 体 注意： 若开始循环条件就不成立时，循环体至少执行一次。 例：用Do …Loop While循环求1到100的平方和。 Private Sub Form_Click() Dim iSum As Long Dim i As Integer i = 1 : iSum = 0 Do iSum = iSum + i*i i=i+1 Loop While i = 100 Print iSum End Sub （3）Do … Loop Until Do 语句块 [Exit Do] 语句块 Loop Until 条件 条件 语句块 F T 语句块 Exit do 注意： 若开始循环条件就成立时，循环体仍要执行一次。 循 环 体 例：用Do …Loop Until 循环求1到100的平方和。 Private Sub Form_Click() Dim iSum As Long Dim i As Integer i = 1: iSum = 0 Do