第四讲、vbscript控制语句.ppt

  1. 1、本文档共14页,可阅读全部内容。
  2. 2、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
  3. 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载
  4. 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
查看更多
第四讲、vbscript控制语句

第四讲 VBScript控制语句 ——选择语句 学习要点 了解控制语句概念 掌握流程控制语句—选择If语句结构 掌握流程控制语句—选择Select语句结构 控制语句 VBScript提供了两种类型的控制语句:流程控制语句和循环控制语句。流程控制语句通常情况下用来控制程序流程的条件转向和选择问题等,包括选择语句(If…Then…Else)和多分支选择语句(Select…Case)。循环控制语句用来编写程序中所需要的特定条件下执行过程相似的循环流程,包括For循环控制语句(For…Next)、Do循环控制语句(Do…Loop)和While循环(While…Wend)语句 选择结构程序设计 选择结构作用:实现程序分支 二分支结构:If……Then……Else……语句 多分支结构: If……Then……Else……语句嵌套 If……Then……ElseIf……Then……[ElseIf……Then…… ]Else……End If语句 Select Case……EndSelect情况选择语句 If语句格式 行IF语句 格式:IF 条件 THEN 语句1 [ ELSE 语句2 ] 功能:条件成立执行语句1,否则执行语句2(流程图如下面左图所示);可以缺省关键字ELSE和语句2(流程图如下面右图所示) 实例 1. Sub OnClick() Dim x As Single x = Val(InputBox(“输入x”, “计算分段函数的值”)) If x = 5 Then MsgBox Str(1 - x * x) Else MsgBox Str((x - 5) ^ 0.25) End Sub 块If语句 格式: If 条件 Then ??????? 语句1? ??? [ Else? ??????? 语句2] ??? End If 选择结构程序设计实例 1.输入三个数,判断最大数 2.猜数游戏 3.成绩判断 If的嵌套:多分支 面向过程程序设计要点 (处理数据的程序三部曲) 1.获取原始数据(InputBox或TextBox函数) 2.根据具体情况进行处理 3.结果输出(Msgbox)注意数据类型的转换 多分支选择结构程序设计 1.块If语句中语句1或语句2可以是If语句,这样就构成的If语句嵌套,实现多分支选择结构。要注意每一个IF与End If的对应关系 2.多分支If语句: ??? 格式: ??????? If 条件1 Then ??????????? 语句块1 ??????? ElseIf 条件2 Then? ??????????? 语句块2 ??????? ElseIf 条件3 Then? ??????????? 语句块3 ??????? …… ??????? Else ??????????? 语句块n ??????? End If 3.情况选择语句: 格式: Select Case 测试表达式 ??????????? Case 表达式列表1 ??????????????? 语句块1 ??????????? Case 表达式列表2 ??????????????? 语句块2 ??????????? …… ??????????? [Case Else ??????????????? 语句块n+1] ??????? End Select 说明: ⑴ 测试表达式:为数值表达式或字符串表达式。 ⑵ 表达式列表: 可以是单个或多个表达式(单值)。如:1,3,5 ⑶ 执行流程如下:自上而下顺序地判断测试表达式的值与表达式列表中的哪一个匹配,如有匹配则执行相应语句块,然后转到End Select的下一语句;若所有的值都不匹配,执行Case Else所对应的语句块,如省略Case Else,则直接转移到End Select的下一语句。 阅读以下程序,单击按钮后,判断分别输入13,21,49时,程序运行结果? SCRIPT LANGUAGE=language ??? Dim a ??? a = InputBox(input a=) a=a mod 5 ??? Select Case True ??????? Case a 2 ??????????? msgbox 第一 ??????? Case a 4 ??????????? msgbox 第二 ??????? Case Else ??????????? msgbox第三 ??? End Select /SCRIPT * * 条件 语句1 语句2 成立 不成立 下一语句 条件 语句1 成立 不成立 下一语句 注:行IF语句必须在同一行内写完 2. Sub OnClick() Dim

文档评论(0)

huayagonga + 关注
实名认证
内容提供者

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

1亿VIP精品文档

相关文档