当前位置：首页 → 问答吧 → VBScript 条件语句问题

VBScript 条件语句问题

时间：2011-08-23

来源：互联网

<HTML>
<HEAD><TITLE>求最大值</TITLE>

<SCRIPT LANGUAGE="VBS"
FOR="btnShow" EVENT="onClick">

'下面的脚本演示了If语句的使用方法
Dim X
If Form1.Text1.Value="" Or Form1.Text2.Value="" Then
Form1.Text3.Value="请在上面两个文本框中各输入一个整数！"
Exit Sub
Else
'用CLng函数把值转换为Long
If CLng(Form1.Text1.Value) > CLng(Form1.Text2.Value) Then X=Form1.Text1.Value
Else
X=Form1.Text2.Value
End If
Form1.Text3.Value=X
End If
</SCRIPT>
</HEAD>

<BODY>
<FORM NAME="Form1">
<p>输入第一个整数：<INPUT TYPE="text" NAME="Text1" SIZE="36"></p>
<p>输入第二个整数：<INPUT TYPE="text" NAME="Text2" SIZE="36"></p>
<p>两者中的最大值：<INPUT TYPE="text" NAME="Text3" SIZE="36" READONLY></p>

<p><INPUT TYPE="button" VALUE="显示结果" NAME="btnShow">  
<INPUT TYPE="reset" VALUE="全部重写" NAME="btnReset"></p>
</FORM>
</BODY>
</HTML>

显示结果按钮没有反应哪里错了？

作者: hulkmiao 发布时间: 2011-08-23

HTML code

<HTML>
<HEAD><TITLE>求最大值</TITLE>

<SCRIPT LANGUAGE="VBScript"  
FOR="btnShow" EVENT="onClick">

Dim X  
If Form1.Text1.Value="" Or Form1.Text2.Value="" Then  
  Form1.Text3.Value="请在上面两个文本框中各输入一个整数！"
  Exit Sub
Else
'用CLng函数把值转换为Long
  If CLng(Form1.Text1.Value) > CLng(Form1.Text2.Value) Then 
    X=Form1.Text1.Value 
  Else  
    X=Form1.Text2.Value
  End If
Form1.Text3.Value=X
End If
</SCRIPT>
</HEAD>

<BODY>
<FORM NAME="Form1">
<p>输入第一个整数：<INPUT TYPE="text" NAME="Text1" SIZE="36"></p>
<p>输入第二个整数：<INPUT TYPE="text" NAME="Text2" SIZE="36"></p>
<p>两者中的最大值：<INPUT TYPE="text" NAME="Text3" SIZE="36" READONLY></p>

<p><INPUT TYPE="button" VALUE="显示结果" NAME="btnShow">&nbsp;&nbsp;
<INPUT TYPE="reset" VALUE="全部重写" NAME="btnReset"></p>
</FORM>
</BODY>
</HTML>

作者: icansaymyabc 发布时间: 2011-08-25

VBScript 条件语句问题

热门阅读

热门下载