«
ASP入门基础教程-单条件选择结构

时间:2008-5-31    作者:Deri    分类: 分享


   <p>  单条件选择结构是最常用的双分支选择结构,其特点是:所给定条件(条件表达式)的值如果为真,则执行x1块,否则,就执行x2块。</p><p>  1、行 If 语句</p><p>  其语法格式为:</p><code>if<条件> then [ <语句1> ][Else <语句2> ]</code><p>  简单实例:</p><code><html><br /><head><br /><title>Msgbox()函数的应用</title><br /></head><br /><body><br /><script language="VBScript" for="button1" event="onClick"><br />dim myWeek,a<br />myWeek=WeekDay(Now)-1<br />if myWeek=0 then a="要好好休息哟。" else a="努力工作呀!"<br />msgbox "今天是星期" & myWeek & "," & a<br /></script><br /><center><input type="button" name="button1" value="请查看今天是星期几"></center><br /></html></code><p>  说明:</p>当程序运行到 If 语句时,首先测试变量 myWeek 是不是为零,如果为零,则执行 Then 后的语句(a="要好好休息哟。"),否则执行 Else 后的子句(a="要努力工作呀!")。 在执行完 Then 或 Else 之后的语句的,会从 End If 之后的语句继续执行。 Else 子句是可选的。 可以在(<语句1>或<语句2>中使用冒号(:)将多个命令组合成一条语句。 <p>  2、块 If 语句</p><p>  虽然行If语句使用方便,可以满足许多选择结构程序设计的需要,但是当 Then 部分和 Else 部分包含较多内容时,在一行中就难以容纳所有命令。为此,VBScript 提供了块 If 语句,将一个选择结构用多个语句行来实现。块 If 语句又称多行 If 语句,其语法结构为:</p><code>    if <条件> Then<br />      [语句列1]<br />    [Else<br />      [语句列2]]<br />    End if</code><p>  简单实例:</p><code><html><br /><head><br /><title>块If语句的应用</title><br /></head><br /><body><br /><script language="VBScript" for="button1" event="onClick"><br />dim a,b<br />a=Text1.value<br />if Not IsNumeric(a) then<br />Msgbox "您输入的不是数值数据"<br />Else<br />b="您输入的数据是:" & a &",它的平方根是:" & sqr(a)<br />Msgbox b,,"求一个数的平方根"<br />End if<br /></script><br /><center>请输入数值数据:<input type="text" name="text1" size="10"><br /><input type="button" name="button1" value="求一个数的平方根"></center><br /></html></code><p>  3、If语句的嵌套</p><p>  If 语句可以嵌套使用,即在If 语句的操作块(语句列1 或语句列2 )中使用If语句。</p><p>  简单实例:铁路托运行李,从甲地到乙地,规定每张客标托运费计算方法是:行李重量不超过50公斤时,每公斤0.5元,超过50公斤超过100公斤时,其超过部分每公斤1.5元,超过100公斤时,其超过部分每公斤2元。请计算并输出托运的费用。</p><p>  分析:设行李重量为W公斤,应付运费为X元,则运费公式为:</p><p>  当W <=50 时,则 X=0.5*W</p><p>  当 50 < W <=100 时,则 X=05*50+1.5*(W-50)</p><p>  当 W > 100 时,则X=0.5*50+1.5*50+(W-100)</p><code><html><br /><head><title>托运费计算</title></head><br /><body><br />请输入行李重量:<input name="text2" TYPE="TEXT" size="10">&nbsp;kg&nbsp;&nbsp;<br /><input type="button" name="button3" value="计算运费"><br /><script language="VBScript" for="button3" event="onClick"><br />w=text2.value<br />if not isNumeric(w) then<br />msgbox "您输入的不是数值数据"<br />else<br />if w <=50 then<br />x=0.5 * w<br />else<br />if w<=100 then<br />x=0.5*50+1.5*(w-50)<br />else<br />x=0.5*50+1.5*50+2*(w-100)<br />end if<br />end if<br />Msgbox "行李的托运费是:"& x & "元",,"计算行李费"<br />end if<br /></script><br /></body><br /></html></code><p>  <img src="/content/uploadfile/200805/2008053117000984.gif" onclick="get_larger(this)" /><a href="http://tech.ddvip.com/2006-10/11618046459861.html" target="_blank">查看全套"ASP入门基础"教程>>>>></a></p>