VisualBasic60程序设计吴昌平第四章节幻灯片.pptVIP

VisualBasic60程序设计吴昌平第四章节幻灯片.ppt

  1. 1、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。。
  2. 2、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载
  3. 3、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
  4. 4、该文档为VIP文档,如果想要下载,成为VIP会员后,下载免费。
  5. 5、成为VIP后,下载本文档将扣除1次下载权益。下载后,不支持退款、换文档。如有疑问请联系我们
  6. 6、成为VIP后,您将拥有八大权益,权益包括:VIP文档下载权益、阅读免打扰、文档格式转换、高级专利检索、专属身份标志、高级客服、多端互通、版权登记。
  7. 7、VIP文档为合作方或网友上传,每下载1次, 网站将根据用户上传文档的质量评分、类型等,对文档贡献者给予高额补贴、流量扶持。如果你也想贡献VIP文档。上传文档
查看更多
功能:根据“测试表达式”的值,选择第一个符合条件的语句块执行。 Select Case语句的执行过程是:先求“测试表达式”的值,然后顺序测试该值符合哪一个Case子句中情况,如果找到了,则执行该Case子句下面的语句块,然后执行End Select下面的语句;如果没找到,则执行Case Else下面的语句块,然后执行End Select下面的语句。 说明: ? “测试表达式”可以是数值型或字符串型表达式; ? “表达式列表”形式有以下3种: (1)一个表达式或用逗号隔开的若干表达式 (2)表达式1 To表达式2 (3)Is 关系运算符 表达式 【例4.7】把例4.3中 “鉴定”按钮的代码用Select Case语句改写。 Private Sub Command1_Click() Dim score! score = Text1.Text Select Case score Case Is = 90 Text2.Text = 优秀 Case Is = 80 Text2.Text = 良好 Case Is = 70 Text2.Text = 中 Case Is = 60 Text2.Text = 及格 Case Else Text2.Text = 不及格 End Select End Sub 在线教务辅导网: 更多课程配套课件资源请访问在线教务辅导网 馋死 PPT研究院 POWERPOINT ACADEMY * * * * 第4章 选择结构 在程序设计中经常遇到这类问题,它需要根据不同的情况采用不同的处理方法。例如,一元二次方程的求根问题,要根据判别式小于零或大于等于零的情况,采用不同的数学表达式进行计算。对于这类问题,如果用顺序结构编程,显然力不从心。必须借助选择结构。本章主要介绍实现选择结构的语句。包括:行If语句、块If语句、 Else If语句、Select Case语句,以及选择结构在程序设计中的应用。 退出 4.1 块If 4.2 Else If语句 4.3 行If语句 4.4 Select Case语句 4.1 块If 4.1.1 块If的格式、功能 格式: If 条件 then 语句块1 [ Else 语句块2] End If 说明: (1)“条件”一般为关系表达式或逻辑表达式。 通常把关系表达式或逻辑表达式的值为真时,称为条件满足;值为假时,称为条件不满足。反之亦然。 (2)语句块1、语句块2分别是“条件”满足或不满足时,处理方法的描述,可以是若干个语句。 (3)If…Then 、Else、End If 是VB的保留字。 功能: (1)块If首先判断“条件”,其值为真时,执行语句块1;为假时执行语句块2。当缺省[Else…]中的内容时,该选择结构只对条件满足的情况进行处理。执行过程如图4-1所示。 【例4.1】火车站行李费的收费标准是50kg以内(包括50kg)0.20/kg,超过部分0.50/kg。编写程序,要求根据输入的任意重量,计算出应付的行李费。 根据题意计算公式如下: 程序代码如下: 计算按钮代码 Private Sub Command1_Click() Dim weight as single,pay as single weight= Text1.Text If weight 50 Then pay =(weight - 50)* 0.5 + 50 * 0.2 Else pay = weight * 0.2 End If Text2.Text = pay End Sub Private Sub Command2_Click() Text1.Text = Text2.Text = End Sub Private Sub Command3_Click() End End Sub 4.1.2 块

您可能关注的文档

文档评论(0)

带头大哥 + 关注
实名认证
文档贡献者

该用户很懒,什么也没介绍

1亿VIP精品文档

相关文档