- 1、本文档共41页,可阅读全部内容。
- 2、有哪些信誉好的足球投注网站(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
- 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载。
- 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
查看更多
第3章 流程控制及程序调试vb
第3章 流程控制及程序调试 重要知识点: If条件语句 Select Case条件语句 For…Next循环语句 Do While…Loop循环语句 语句嵌套 循环强制终止 常见程序调试方法 引例 引例 引例 求圆面积 顺序结构 即按照自上而下的自然顺序逐语句执行。 我们可以用如右的程序结构图表示顺序结构。 顺序结构练习 输入一个正整数,求平方、平方根、立方和立方根。(第2章作业) 求奇偶 选择结构 即条件成立时执行一个分支语句,不成立时执行另一个分支语句。 选择结构 单分支结构:If…Then语句 双分支结构:If…Then…Else语句 IIf函数 多分支结构:If…Then…ElseIf语句 Select Case语句 单分支结构—行式 格式: If 条件表达式 Then 语句块 单分支结构—块状 格式: 单分支练习(1) 例3.2:通过InputBox函数输入两个数,程序输出其中较大的数。 单分支练习(2) 键盘输入两个数x和y,比较大小,如果xy,则交换两个数。 双分支(If语句) 格式: 双分支(IIF函数) 格式: 双分支练习(1) 求一元二次方程ax2+bx+c=0的解。系数a、b和c的值由用户给出。 当b2-4ac0时,提示输入有误。 双分支练习(2) 利用随机函数生成一道十以内整数的加法题,并由用户给出结果。如果正确则给予肯定信息,否则给出正确答案。 思考练习 输入一对坐标值(x,y),判断其是否在第二象限。 输入一对坐标值(x,y),判断其在第几象限。 多分支(If语句) 格式: If多分支语句练习 例3.4:判断某个实数的正负。如果是正数输出1,是0则输出0,是负数则输出-1。 If多分支语句练习 多分支(Select Case语句) 格式: 多分支(Select Case语句) Case子句可以有以下格式: Case 离散值 Case 值1 To 值2 Case Is 值1 或者 Case Is 值1 多分支(IIF函数嵌套) 多分支结构练习(1) 设有如下函数,输入x的值,要求输入y的值。 0 x≤0,x>15 y= 5+2x 0<x ≤10 x-5 10<x ≤15 多分支结构练习(2) 例3.5:键盘输入1个百分制的考试分数,将其转换成五级评分结果并输出。(90以上为优秀;80-90为良好;70-80为中;60-70为及格;60以下为不及格) 要求分别用If多分支和Select Case多分支实现。 选择结构作业 教材p86实训1 教材p87实训2 求1-100的和 循环结构 即在满足条件的情况下重复执行某一部分程序。 循环结构 循环次数已知:For…Next循环 循环次数未知:Do While…Loop循环 Do …Loop While循环 While…End While循环 适合数组的循环:For Each…Next循环 循环结构(For…Next) 格式: For…Next练习(1) 从1-100的整数和可以延伸出: 例3.7:求1-100的偶数和 求10的阶乘 For…Next练习(2) 例3.9:找出所有的水仙花数。水仙花数是三位正整数,其各位的立方恰好等于该数本身,例如153=13+53+33。 For…Next练习(3) 例3.8:用随机数生成10个考试成绩,数值范围为50~100,输出其中的最高分、最低分和平均分,并统计输出不及格率。 参考代码见下页。 循环结构(Do While…Loop) 格式: Do While练习(1) 例3.10:5000元本金,按年利率5%计算,几年后本息和达到10000元呢? Do While练习(2) 例3.11:通过键盘输入若干学生成绩,以-1作为输入结束标志,输入完成后计算平均成绩。 Do While练习(3) 例3.12:键盘输入一个十进制整数X,转换成二进制后输出。 循环结构作业 教材p87实训3 For 循环变量 = 初值 To 终值 [Step 步长] [循环体语句] Next [循环变量] 若步长为1,可省略 Step 1 Dim Bai, Shi, Ge As Integer Dim N As Integer For N = 100 To 999 Bai = N \ 100 取得百位数 Shi = N \ 1
文档评论(0)