VB程序的设计VB基本语句.pptVIP

第5章 基本的控制结构 选择结构 If条件语句 . If条件语句 If条件语句 . 格式：If 条件1 Then （A组语句） ElseIf 条件2 Then （B组语句） ElseIf 条件3 Then （C组语句） …… Else （n组语句） End If . 例5 编写一个按月收入额计算个人收入调节税的程序 计算方法如下 0 Pay≤1000或离退休 (Pay-1000)*0.05 1000＜Pay≤2000 Z＝ (Pay-2000)*0.15+50 2000＜Pay≤3000 (Pay-3000)*0.25+200 3000＜Pay≤4000 (Pay-4000)*0.35+450 Pay4000 分析：选择语句结构 每个条件的表示及先后顺序 . 小结 : if 分支语句 单分支语句 双分支语句 多分支语句 Select Case语句 Select Case 测试表达式 Case 测试项1 A组语句 Case 测试项2 B组语句 …… Case Else n组语句 End Select 分支结构 在“种类”中选择油品种类，界面上的说明文字将随之改变，并将“数量”文本框设为焦点；在数量文本框中输入需购的油品数量后，单击“计算”按钮，在“总价”文本框显示所购油品种类应付的金额。已知汽油单价： 90号 2.30元/升 95号 2.45元/升 100号 2.60元/升 选择结构 例4-8 :编写一个按月收入额计个人收入调节税的应用程序.计税公式如下: tax = 0 pay=1000 (pay-1000)*0.05 1000pay=1500 (pay-1500)*0.1+25 1500pay=2000 (pay-2000)*0.15+75 2000pay=2500 (pay-2500)*0.2+150 2500pay=3000 (pay-3000)*0.3+300 pay3000 总 · 结 循环结构 For循环 For循环 For循环 For循环 For循环 For循环 Do…Loop循环 Do…Loop循环 Do…Loop循环 Do…Loop循环 Do…Loop循环 Do…Loop循环 Do…Loop循环 Do…Loop循环 Do…Loop循环 Do…Loop循环 4.4.3 循环嵌套 循环嵌套 分析：用三种循环 个位x的可能取值为0～9 十位y的可能取值为0～9 百位z的可能取值为1～9， 看三个位置上的数是否满足如下条件，若满足，即是其中一个解 x3+y3+z3=z×100＋y×10＋x 其他辅助控制语句 其他辅助控制语句 程序示例 1.累加、连乘 2.求阶乘 3.求近似值 4.求素数 5.求数的质因子 4. 穷举法 4. 字符转换 4. 字符转换 实验－循环结构(一) 实验－循环结构(二) 练习 ⑶ Do Until 条件 循环体 Loop 例5:修改上例 Dim I,s As Integer I=1 Do While I=10 s=s+I I=I+1 Loop Print I,s Dim I,s As Integer I=1 Do Until s=s+I I=I+1 Loop Print I,s ⑴条件应该如何写出? ⑵ 显示的I、S值与 上例一样吗？ ⑷ Do 循环体 Loop Until 条件 I10 2.Until循环 几种形式比较: Do While 条件 循环体 Loop（ While 条件） Do Until 条件 循环体 Loop（ Until 条件） 区别: While 条件为真时执行循环体,否则退出循环 Until 条件为假时执行循环体,否则退出循环 关系： while和Until可以相互转换，但循环条件取反 循环的嵌套：在一个循环体内又包含了一个完