Visual Basic 6.0程序设计 教学课件 作者 乔平安 VB04章.pptVIP

If语句中的表达式一般为关系表达式、逻辑表达式，也可以是算术表达式。表达式值按非零为True，零为False判断。 语句块中的语句可以是一条或多条语句。若是用行结构的形式，则多条语句必须写在同一行上，且语句之间用冒号隔开。 一般来说，语句块只有一条语句时用行结构，多条语句时用块结构。 块结构与行结构的区别：看Then后面的语句是否在同一行上，若在同一行就是单行结构，否则为块结构，块结构必须以End if结束。 如果“测试表达式”匹配某个case”表达式列表”，则执行其下的“语句块”，它可是一个语句，也可是多个语句。 A、如果“测试表达式”和所有的Case子句中的“表达式列表”都不匹配时，则会执行Case Else子句 ； B、如果都不匹配且没有Case Else子句，则不执行任何操作，程序会从End Select之后的语句继续执行； C、如果“测试表达式”匹配一个以上的Case子句中的“表达式列表”，则只有第一个匹配的后面的语句会被执行 Select Case结构可以针对字符串指定范围和多重表达式。如： Case “ Hello World!” , “any” To “every” Select Case结构可以进行嵌套，但每个嵌套的Select Case结构必须要有End Select语句 。 计算下列循环语句的次数： （1）For i=-3 To 20 step 4 （2）For i=-3.5 To 5.5 step 0.5 （3）For i=-3.5 To 5.5 step -0.5 （4）For i=-3 To 20 step 0 实际应用，求最短残料。有一根长度为321米的钢材料，要将它截取成两种规格a、b的长度分别为17米和27米的短料，每种至少1段，问分隔成a，b各多少段后，剩余的残料r最少？ 分析：该题利用“试凑法”通过二重循环求残料r的最小值正数，残料不可能是负数。程序如下： 4.6 循环结构应用举例 实际应用 Private Sub Command1_Click() Dim a%, b%, r!, ia%, ib% r = 321 最小值初值取钢材料的长度 For b = 1 To (321-17) \ 27 b最多的段数 For a = 1 To (321 – b*27) \ 17 a最多的段数 t = 321 - b * 27 - a * 17 ‘ 当前的残料 If t 0 And t r Then r = t 求最短的残料 ia = a 最短残料时a的段数 ib = b 最短残料时b的段数 End If Next a,b Print ia, ib, r End Sub 4.6 循环结构应用举例 实际应用 “递推法”又称为“迭代法”，其基本思想是把一个复杂的计算过程转化为简单过程的多次重复。利用自身的推导关系求解问题的方法。每次重复都从旧值的基础上递推出新值，并由新值代替旧值，利用前面已知数据推算出后面未知数据。 【例4-29】输出Fibonacci数列的前20项 分析：1202年，意大利数学家斐波那契在《算盘全书》中提到Fibonacci数列，定义如下： f(1)=1,f(2)=1,f(n)=f(n-1)+f(n-2),n2。因此，Fibonacci数列为 1、1、2、3、5、8、13、21、34、…，推理为f(3)=f(2)+f(1)、f(4)=f(3)+f(2)、f(5)=f(4)+f(3)、…， 1 1 2 3 5 8 F1 F2 f 前一次变量取值位置 F1 F2 f 后一次变量取值位置 4.6 循环结构应用举例 递推算法 Dim i As Integer Dim f1, f2, f As Long f为从第三项开始到第20项的具体每项的值 f1 = 1: f2 = 1 给Fibonacci数列前两项赋初值 For i = 3 To 20 Step 1 循环变量i从第三项开始到第20项变化 f = f2 + f1