4.VBScript脚本语言的.pptVIP

VBScript脚本语言 ;;;;Variant包含的数据子类型 ;Vartype( )函数的返回值;常量 ;变量;变量的定义;声明变量;变量的命名规则;变量的作用域与存活期 ;给变量赋值;标量变量和数组变量;动态数组;VBScript的函数 ;数学函数;格式转换函数;日期时间函数;字符串操作函数;变体子类型;VBScript运算符;在HTML页面中添加VBScript代码 （一）;在HTML页面中添加VBScript代码 （二）;在HTML页面中添加VBScript代码 （三）;在HTML页面中添加VBScript代码 （四）;在HTML页面中添加VBScript代码 （五）;4.4 VBScript语句 ;4.4.1 基本语句 ;4.4.2 条件语句; 2、If语句的块形式 格式：If condition1 Then [statements-1] [ElseIf condition2 Then [statements-2]] ... ... [Else [statements-n]] End If? 其中condition，condition-n的意义同单行??式中的condition，statements，Elseif statements和elsestatements都是一条语句或以冒号分开的多条语句。当程序运行到块If形式时，将测试condition。如果condition为True，则执行Then之后的语句。如果condition为False，则每个ElseIf部分的条件表达式(如果有的话)会被依次计算并加以测试。当找到某个为True的条件时，则其相关的Then之后的语句会被执行。如果没有任何一个ElseIf语句中的条件是True，或者没有使用ElseIf子句，则将执行Else之后的语句。执行Then或Else之后的语句以后，将继续执行End If之后的语句。 ;html headtitle托运费计算/title/head body h3托运费计算/h3hR 请输入行李重量： input name=Text1 type=text size=10nbsp;kgnbsp;nbsp; input type=Button name=Button1 value=计算 Script for=Button1 Event=onClick Language=VBScript w = Text1.value If Not IsNumeric(w) Then MsgBox 您输入的不是数值数据 Else If w = 50 Then x = 0.25 * w Else If w = 100 Then x = 0.25 * 50 + 0.35 * (w - 50) Else x = 0.25 * 50 + 0.35 * 50 + 0.45 * (w - 100) End If End If MsgBox 行李的托运费是： x 元 End If /Script /body /html ;二、Select Case语句 Select Case结构提供了If…Then…ElseIf结构的一个变通形式，可以从多个语句块中选择执行其中的一个。Select Case语句提供的功能与If…Then…Else语句类似，即根据表达式的值执行几组语句之一，但它可以使代码更加简洁易读。Select Case语句格式如下： Select Case testexpression [Case expressionlist1 [statements-1]] [Case expressionlist2 [statements-2]] … … [Case Else [statements-n]] End Select ; 其中testexpression是任意数值或字符串表达式，expressionlist-n是一个或多个表达式的分界列表。statements-n是当testexpression与expressionlist-n中的任意部分匹配时执行的一条或多条语句