正在加载图片...
ASP程序设计教程 </HEAD> <Script Language="VBScript"> Dim strUserN ame, strUserAddress struserName= InputBox("请输入您的名字:","用户信息记录”) strUserAddress= InputBox("请输入您的住址:","用户信息记录") MsgBOx("您的基本信息为:"&chx(13)kchx(10)&"姓名:" struserName &chr(13)&chr(10)&"tt:"&chr(13)&chr(10)&strUserAddress </BODY> 例3-4-1 <HTML <HEAD><T工TLE>工F.ELSE嵌套语句</TTE> <SCRIPT LANGUAGE="VBScript"> Sub but tonl Onclick( grade=trim( InputBox{"请输入等级:(优、良、中、可、差)","学生等级","中")) 工f score="成绩低于60分” Else If grade="可"Then score="成绩在60到70分之间 E1 se If grade="中"Then 成绩在70到80分之间 Else If grade="良"Then score="成绩在80到90分之间 coxe="成绩在90到100分之间 score="输入的等级应该为(优、良、中、可、差)! /SCRIPT></HEAD> <BODY>10 ASP 程序设计教程 </HEAD> <BODY> <Script Language="VBScript"> <!-- Dim strUserName,strUserAddress strUserName=InputBox("请输入您的名字：","用户信息记录") strUserAddress=InputBox("请输入您的住址：","用户信息记录") MsgBox("您的基本信息为："&chr(13)&chr(10)&"姓名："&strUserName_ &chr(13)&chr(10)&"住址："&chr(13)&chr(10)&strUserAddress) --> </Script> </BODY> </HTML> 例 3-4-1： <HTML> <HEAD><TITLE>IF...ELSE 嵌套语句</TITLE> <SCRIPT LANGUAGE="VBScript"> Sub button1_OnClick() Dim score grade=trim(InputBox("请输入等级：（优、良、中、可、差）","学生等级","中")) If grade="差" Then score="成绩低于 60 分" Else If grade="可" Then score="成绩在 60 到 70 分之间。" Else If grade="中" Then score="成绩在 70 到 80 分之间。" Else If grade="良" Then score="成绩在 80 到 90 分之间。" Else If grade="优" Then score="成绩在 90 到 100 分之间。" Else score="输入的等级应该为（优、良、中、可、差）！" End If End If End If End If End If MsgBox score End Sub </SCRIPT></HEAD> <BODY> <INPUT type="button" name="button1" value="查看"> </BODY> </HTML>