- 1、本文档共55页,可阅读全部内容。
- 2、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
- 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载。
- 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
查看更多
VB自学教程4
目 录 教学安排 第4章 VB控制结构 4.1 顺序结构 4.2 选择结构 4.3 循环结构 4.4 其它辅助控制语句 4.5 综合应用 4.6 程序调试 教学重点 1.顺序结构 一般两类:赋值语句 和 输入输出(控件和函数) 关键要理解按语句出现先后顺序执行 变量要先有值才能计算 例 计算华氏摄氏转换程序问题种种 公式:c = 5 / 9 (f - 32) 例 2.If语句 ?关系表达式正确书写 3≤x≤10 3=x=10 ?IF语句的正确书写 多行If与单行If的书写 ? 条件的正确比较 例随机产生若干个数,求最大数和最小数 ?不同条件不能在一个IF中完成 例电话收费问题 ?数字字符比较问题 例显示三门课总分高于270分的分数 ?嵌套If语句的配套问题 例合法数据的温度转换 3.Selelct ?通过多边条件的不便引出Selelct,体现该语句的优势 几种条件形式的书写 ?通过多变量条件引出Selelct语句的局限,解释与If 语句区别 4.循环结构 ?For循环的执行流程 通过等价的IF语句为例 ?For循环结束后循环控制变量的值 ? For循环转换成Do 条件 …Loop ?事先不知道循环次数,如何用For…Next实现循环? ?强行停止循环语句 Exit For Exit Do ?循环嵌套最典型例子 乘法表 5.常用算法 两数交换 最大公约数、素数、试凑法、迭代法、部分级数和 6.程序调试方法 主要设置断点 综合应用 1. 四则运算 自动产生、用户输入答案、系统自动判题、计分 控件、选择结构、过程调用 2.计算机排考试 周1~5完成A、B、C三门课程考试,条件: ①每天最多只能考一门。 ②A最先考、C周4不能考。 用试凑法 进一步考虑:按A、B、C的次序安排? 4.1 顺序结构 (1)顺序结构 各语句按出现的先后次序执行 (3)循环结构 4.1.1 赋值语句 赋值语句注意点 4.1.2 数据输出和输入 2.MsgBox函数和MsgBox过程 MsgBox按钮设置 MsgBox所选按钮返回值 3.Print方法 4.Format格式输出函数 4.2 选择结构 4.2.1 If条件语句 单分支结构 双分支结构 双分支结构例 多分支结构 多分支结构例 If语句的嵌套 4.2.2 Select Case语句 Select Case语句例 Select Case语句例 4.2.3 条件函数 4.2.3 条件函数 4.3 循环结构 4.3.1 For循环语句 For循环语句 4.3.2 Do…Loop循环语句 Do…Loop流程 循环例题 4.3.3 循环的嵌套 4.4 其他辅助控制语句 4.4.2 退出和结束语句 4.5 综合应用 综合应用-最大公约数 综合应用-级数求和 综合应用-试凑法 综合应用-递推法 4.6 程序调试 4.6.1 错误类型 2、运行错误 3、逻辑错误 4.6.2 调试和排错 调试和排错-插入断点 本章小节 思考题 (1) IIf函数 IIf(表达式,表达式为真时的值,表达式为假时的值) IIf函数是If … Then …Else 结构的简洁表示 例如,将x,y中大的数,放入Tmax变量中: Tmax = IIf(x y,x,y) 该语句与如下语句等价 : If x y Then Tmax = x Else Tmax = y 本章目录 (2) Choose函数 Choose(整数表达式,选项列表) 根据表达式的值i,返回选项列表中第i个选项。如果整数表达式的值越出选项范围时,返回Null。 例 根据Nop的值,得到+、-、×、÷中的某运算符: Op= Choose(Nop,+,-,×,÷) 例4.10 根据当前日期,显示今日是星期几。 t = Choose(Weekday(Now), “星期日”, “星期一”, “星期二”, “星期三”, “星期四”, “星期五”, “星期六”) MsgBox(今天是: Now t) 本章目录 Dim nop As Integer, op As Char Randomize() nop = Int(Rnd() * 4 + 1) op = Choose(nop, +, -, ×, ÷) MsgBox(nop= nop op= op) 计算机最擅长的功能之一就是按规定的条
您可能关注的文档
最近下载
- 2021年香薰服务合同.docx
- 《Python与数据分析应用》课件——第10章 数据分析工具Pandas.pptx VIP
- 战争狂人希特勒简介.ppt
- 家庭教育指导师试题库.doc
- -司法鉴定人执业能力评估业务理论知识考试题库(司法鉴定人考试试题及答案解析)-.docx VIP
- 病房急产应急预案演练脚本.docx VIP
- 生产项目准入及预算标准第六册主网修理项目准入及预算标准(预算分册).docx
- 2025新人教版语文七年级下册《第一单元》大单元整体教学设计[2022课标].pdf
- 电子商务文案创意与撰写:直播脚本编写PPT教学课件.pptx
- (高清版)-B-T 30146-2023 安全与韧性 业务连续性管理体系 要求.pdf VIP
文档评论(0)