- 1、本文档共36页,可阅读全部内容。
- 2、有哪些信誉好的足球投注网站(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
- 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载。
- 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
查看更多
* 第4章 程序控制结构 4.2.3 选择结构的嵌套 字符:ASCII码[32, 126]可显示字符 随机数∈[32, 126]:Int(Rnd * 95 + 32) 分类 : ASCII码[65, 90] 大写字母 ASCII码[97, 122] 小写字母 ASCII码[48, 57] 数字 数字能被2整除,是偶数 数字不能被2整除,是奇数 编程策略 * 第4章 程序控制结构 4.2.3 选择结构的嵌套 随机产生一个字符x=Int(Rnd * 95 + 32) 是数字x∈[48, 57]吗? 是 是偶数 x\2=x/2吗? 是 输出偶数 否 输出奇数 否 x∈[32, 126]、[65, 90]、其它 [97, 122] 小写字母 [65, 90] 大写字母 Else 其它字符 * Randomize x =Val( Int(Rnd * 95 + 32)) If x = 48 And x = 57 Then If x\2=x/2 Then Print 字符; Chr(x); 是数字,是偶数 Else Print 字符; Chr(x); 是数字,是奇数 End If Else 当条件不满足表示是字母或其它字符 Select Case x Case 65 To 90 Print 字符; Chr(x); 是大写字母 Case 97 To 122 Print 字符; Chr(x); 是小写字母 Case Else Print 字符; Chr(x); 是其它字符 End Select End If * 第4章 程序控制结构 4.2.4 条件函数 IIf函数 IIf ( 表达式,真值部分,假值部分) strname = IIf(intnum1 intnum2, 张三, 李四) If intnum1 intnum2 Then strname = 张三 Else strname = 李四 End If * 第4章 程序控制结构 4.2.4 条件函数 Choose函数 Choose ( 整型表达式,选项列表) strDay = Choose(intNum, Mon, Tue, Wed, Thu, Fri, Sat, Sun) 语句组2 intNum=1 ~ intNum=7 strDay Mon Tue Wed Thu Fri Sat Sun 1~n 取值范围 LOGO Visual Basic 程序设计 第4章 程序控制结构 * 第4章 程序控制结构 内容简介 4.1 顺序结构 4.2 选择结构 4.3 循环结构 4.4 程序控制结构举例 * 第4章 程序控制结构 有些简单程序可以只用单向的顺序设计结构来编写,但有些实际问题,往往需要针对不同的情况,有选择的执行某些步骤。选择结构就是根据给定“条件”的判断结果控制程序的流程。 VB用来实现选择结构的方式有: 语句:If、Select Case语句 控件:单选按钮、复选框及框架 函数:条件函数等 4.2 选择结构 * 第4章 程序控制结构 【引例】设计一个程序:输入任意三条边,判断这三条边是否能构成三角形?如果能构成三角形,则输出三角形的面积。 (1)编程策略 此问题根据“条件(三条边是否能构成三角)” 的判断结果,进行不同处理的功能。若“条件”成立,则输出三角形的面积,否则结束。对于上述问题要用VB的选择结构来实现。 4.2 选择结构 * 第4章 程序控制结构 (2)编写代码 If a + b c And b + c a And c + a b Then s= Sqr((a+b+c)*(a+b-c )*( a+c-b )*((b+c-a)/2)) s=Round(s,2) MsgBox 三角形的面积为:
您可能关注的文档
最近下载
- 2019外研版新教材高一英语必修一unit5单词详解.pdf VIP
- 初中物理作业设计优秀案例(3篇).pdf
- TROAX图瓦斯围栏资料.docx
- [检验检测标准]JBT 5000.15-1998; 重型机械通用技术条件 锻钢件无损探伤.pdf
- 装置开车前安全条件确认表.doc
- 新人教版(新插图)二年级上册数学 第6课时6的乘法口诀 教案(教学设计).docx
- SLAM介绍以及浅析.ppt
- 闸门运行工(高级工)职业技能鉴定理论考试题库(含答案).docx
- Unit5 The colourful world 第2课时(大单元教学课件)Part A Let's learn&Listen and chant三年级英语上册(人教PEP版2024秋).pptx
- 设计一周午餐营养食谱(教学设计)全国通用六年级上册综合实践活动.docx
文档评论(0)