- 1、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。。
- 2、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载。
- 3、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话: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 三角形的面积为:
您可能关注的文档
- 3市政桥梁工程1要点.ppt
- 20121020《学校卫生监督工作规范》介绍要点.ppt
- 20121024《我的叔叔于勒》要点.ppt
- 3市政桥梁工程4要点.ppt
- 20130529服务外包要点.ppt
- 3医院财务管理方法要点.ppt
- 20131128中国金融改革历史、逻辑及展望要点.ppt
- 3招标管理要点.ppt
- 20140312王满传老师-政策方案设计与选择要点.ppt
- 3专利权的实施及保护要点.ppt
- 中考地理真题练习 2024年四川省内江市中考地理真题(解析版).doc
- 中考地理真题练习 2024年河南省中考地理真题(原卷版).doc
- 中考地理真题练习 2024年四川省内江市中考地理真题(原卷版).doc
- 中考地理真题练习 2024年黑龙江省龙东地区中考地理真题(原卷版).doc
- 中考地理真题练习 2024年黑龙江省牡丹江市中考地理真题(原卷版).doc
- 中考地理真题练习 2024年甘肃省武威市临夏州中考地理真题(解析版).doc
- 中考地理真题练习 2024年甘肃省白银市中考地理真题(解析版).doc
- 中考地理真题练习 2024年湖南省中考地理真题(解析版).doc
- DB13_T2694-2018 地理标志产品 兴隆山楂.docx
- 内蒙古巴彦淖尔市2024-2025学年高一下学期期末考试生物含答案.doc
文档评论(0)