vb第四章基本结构.ppt

第4章 基本结构 本章目标： 掌握数据基本输入输出方式（用户交互函数和消息框函数） 掌握顺序结构程序设计 掌握选择结构程序设计 掌握循环结构程序设计 本章小结 本章主要讲述了在VB程序设计中所用到的基本程序结构，其中重点阐述了顺序结构中数据的输入和输出、选择结构语句和循环结构语句，最后阐述了与本章节相关的常用算法并予以例子演示。 图4. 16 最大公约数求解 ?例4. 11 输入两个正整数，求它们的最大公约数。 分析：求最大公约数可以用“辗转相除法”，方法如下：1、比较两个数的大小，以大数m做被除数，小数n做除数，相除后余数为r。2、若r0，则m n，n r，继续相除得到新的r。若仍有r0，重复此过程，直到r=0为止。3、最后的n就是最大公约数。 Private Sub Command1_Click() m = Val(Text1) n = Val(Text2) If n * m = 0 Then MsgBox 两数都不能为0！ Exit Sub End If If m n Then t = m: m = n: n = t End If Do ‘辗转法的实现 r = m Mod n m = n n = r Loop While r 0 Text3 = m End Sub While……Wend语句根据某一条件来进行判断从而决定是否执行循环，其语句格式为： While 条件 语句块 Wend 图4. While…Wend语句结构 开始 条件判断 Yes 循环体 NO 结束 3．当循环While……Wend语句 说明（该语句的的结构图如图4.17所示）： (1) While循环语句先对“条件”进行测试,只有 在“条件”为True时,才开始执行循环体. 当遇到Wend语句时，控制返回到While语句以再次进行“条件”判断，如为真则再次执行循环体，否则跳出循环。 (2)循环体的执行应当使条件改变,否则会出现死循环. (3)当循环也可以嵌套,层数也没有限制,每个 Wend和最近的While匹配. 图4. 18 While…Wend语句实现 ?例4. 12(1) 编程实现计算 。 Private Sub Text1_KeyPress(KeyAscii As Integer) Dim n%, m%, s! m = 1 s = 1 If KeyAscii = 13 Then n = Val(Text1) While m = n s = s * 3 m = m + 1 Wend Label2 = 3的 n 次方= s End If End Sub ?例4. 12(2) 编程实现计算 4.3.2 For…Next循环结构语句 循环结构语句比较多，当循环次数未知时，用Do…Loop循环比较适合， 循环次数已知时，则最好使用For…Next循环。 与Do…Loop循环相比，For循环只使用一个循环变量，每次重复一次循环之后，循环变量的值就会自动增加或者减少。 For…Next循环结构语句语法结构： For 循环变量 = 初值 to 终值 [Step步长] [ 循环体] [Exit For] [ 循环体] Next [ 循环变量 ] (1) For循环是“先检查，后执行” (2) “循环变量”为必选参数，且此变量不能为数组元素。 (3) “初值”和“终值”都是必要参数，如果没有指定“步长”， 则“步长默认值为1。 (4) “步长”可以是正数或者负数。如果“步长”的值为正数， 则 初值=终值，否则初值=终值。 (5) 可以在循环体中的任何位置放置任意个Exit For语句， 随时退 出循环。 (6) For语句和Next语句必须成对出现，不能单独使用， 且For语句必须Next语句之前。 (7) 循环次数的计算公式为：int（（终值－初值）/步长）+1 说明（语句的的结构图如图4.19所示）： 循环变量=初值 循环变量=终值 F T 语句块1 有Exit For 语句块2 循环变量=循环变量+步长 T F （a）步长0 循环变量=初值 循环变量=终值 F T 语句块1 有Exit For 语句块