UC知道用vbscript编写程序
来源：百度知道 编辑：UC知道 时间：2024/06/25 07:31:06
输入两个数，若都为正数则计算其平均值，否则计算其和。
我编写的程序不知道哪里出错了，点击计算时没反应，请哪位高手指点指点。
<html>
<head>
<title>应用</title>
<script language="vbscript" event="onclick" for="btnshow">
dim x，y
if (form1.text1.value>0 and form1.text2.value>0)
then
x=clng(form1.text1.value)+clng(form1.text2.value)
y=x/2
form1.text3.value=y
else
form1.text3.value=x
end if
</script>
</head>
<body >
<p> </p>
<form name="form1">
<p>输入第一个整数：<input type="text" name="text1" size="20"></p>
<p>输入第二个整数：<input type="text" name="text2" size="20"></p>
<p>计算： <input type="text" name="text3" size="20" readonly></p>
<p> &nbs
我编写的程序不知道哪里出错了，点击计算时没反应，请哪位高手指点指点。
<html>
<head>
<title>应用</title>
<script language="vbscript" event="onclick" for="btnshow">
dim x，y
if (form1.text1.value>0 and form1.text2.value>0)
then
x=clng(form1.text1.value)+clng(form1.text2.value)
y=x/2
form1.text3.value=y
else
form1.text3.value=x
end if
</script>
</head>
<body >
<p> </p>
<form name="form1">
<p>输入第一个整数：<input type="text" name="text1" size="20"></p>
<p>输入第二个整数：<input type="text" name="text2" size="20"></p>
<p>计算： <input type="text" name="text3" size="20" readonly></p>
<p> &nbs
修改你的程序如下：
<script language="vbscript" event="onclick" for="btnshow">
dim x,y
if clng(form1.text1.value)>0 and clng(form1.text2.value)>0 then
x=clng(form1.text1.value)+clng(form1.text2.value)
y=x/2
form1.text3.value=y
else
x=clng(form1.text1.value)+clng(form1.text2.value)
form1.text3.value=x
end if
</script>
下面的是优化过的
<script language="vbscript" event="onclick" for="btnshow">
dim x,y
x=clng(form1.text1.value)
y=clng(form1.text2.value)
if x>0 and y>0 then
form1.text3.value=(x+y)/2
else
form1.text3.value=x+y
end if
</script>
不是要document.form1.text1.value这样才能取到吗？
VBscript现在真是全忘了，半年前问还记得
客户端建议用js
我觉得你这样就没有响应点击，看看form1.text1.value的值是否得到了，用函数输出看看