3程序控制逻辑.docVIP

第三节 程序逻辑 应用背景 程序需要按照程序员的思路走，就是程序逻辑控制。一个复杂的程序设计任务，需要我们把它分解为许多个小任务来完成.而每个小任务基本都可以通过3个基本逻辑：顺序、循环和判断来实现。 程序流程图就是这些逻辑的连接设计图，是处理数据的算法的设计图纸。任何程序需要的逻辑基本为：输入数据+程序逻辑+输出数据，描述这个程序的基本框架流程图见图3-1，注意理解程序的基本结构。 图3-1程序流程图 知识要点 (1)简单赋值语句 变量代表一个内存空间，给变量一个指定的值成为赋值语句，其基本表达为： 变量=表达式 该语句使用说明如下： 1.“=”左边一定是变量，“=”右边一定是表达式 2．每行语句都使用“回车键”自动结束 3．执行顺序为从上到下的语句顺序 4．断行的语句，使用“ _”，即“空格”+“_”的方式进行断行语句的连接。 (2)循环语句 循环结构是计算机语言里一种重要的结构，它的应用广泛，最简单的例子是累加器的作用，还可以用于穷举法，更直观的例子是把某件事重复指定的次数，这样就不用把要重复的语句输入多次，而通过循环结构完成，非常方便。 它的格式是： For =初赋值 To 终值 [Step 步长] …… …… Next 循环变量 在默认情况下，Step被设为“1”，可以省略，Step也可以设为负值，例如： Dim a=0 For I=1 To 10 a=a+I Next I 1到10累加在一起，然后赋值给“a”这样的效果和上面是一样的，只不过是倒着加罢了，请看： Dim a=0 For I=10 To 1 Step –1 a=a+I Next I While语句也是一个很常用的循环语句，它的形式很多。 Do While …… Loop语句 Do …… Loop While While后面都跟逻辑条件判断，“Do While …… Loop语句”While后面的条件是否为“真”，如果为“真”则执行里面的语句，如果为“假”，则退出循环，循环直至条件为“假”终止。“Do …… Loop While Do”后面的语句，也就是说，它至少执行语句一次。Dim i As Integer Dim a As Long Do While i 10 a = a + i i = i + 1 Loop 这个例子同样实现累计，但比起For循环Whlie循环应当根据适当的环境使用，它们有时也可替换。 (3)判断语句 在条件语句里，我们先来学习“If……Then……”语句。 If 条件 Then 语句 语句 ……… End If VB的条件语句更符合英语的语法，如果Then后面所跟的语句只有一条，可以写成： If Then 语句 而不用End If。 If 条件 Then ? 语句 Else ? 语句 End If 更可以在Else里在嵌套If语句，如： If Then ? 语句 Else If ? 语句 Else ? 语句 End If 用了过多的Else后你会感到很不方便，而且程序结构也不清晰，所以语言还有Select语句帮助解决这个问题。 VB里的Select语句的格式是这样的： Select Case Case 情况1 ? …… Case 情况2 ? …… Case 情况3 ? …… ? …… ? …… Case Else ? …… End Select 例如： Select Case a% Case 1 ? Print “a=1” Case 2 ? Print “a=2” Case Else ? Print “a does not equal to 1 or 2.” End Select (4)故障陷阱 在某些工程项目中，有些程序实现很专业的任务，很可能遇到不可预测的错误，那么为了使程序正常的执行下去，需要设置错误陷阱，其基本语法为： On Error Goto 标签 正常处理语句... Exit Sub 标签： 错误处理语句... 在某些工程项目中，如果某语句可能发生错误，但还需要继续执行程序的下一条语句，也需要设置的错误陷阱，基本语法为： On Error Resume Next 例如： Dim tmp0 , tmp1 , tmp2 As Integer On Error Resume Next If (tmp0 0 And tmp1 0) Then tmpFir = 0.5 * tmp0 + 0.4 * tmp1 + 0.1 * tmp2 Else tmpFir = tmp2 End If 应用举例： 例1：在窗体上打印出乘法规则表？ 1.建立标准exe工程1，在窗体form1添加命令按钮1 2.编写按钮1的Cli