UC知道VB小程序，高手来，好的加分
来源：百度知道 编辑：UC知道 时间：2024/05/12 14:10:31
一个简单程序，用VBScript设计一个程序，判断用户输入的整数是整数，负数，还是0，并用对话框显示相应的判断结果。下面是我做的，但是运行不出来，帮忙给改改或者重新做一个。必谢！
<HTML>
<SCRIPT language="VBScript">
Sub Output()
Dim input_val
input_val=Document.OpForm.InputText.value
Document.OpForm.OutputText.value=Factor(input_val)
End Sub
Function Factor(n)
dim m
if (n>0) then
m="输入的整数是正数"
elseif (n=0) then
m="输入的整数是0"
else
m="输入的整数是负数"
endif
factor=m
End Function
</SCRIPT>
<BODY>
<CENTER>
<FORM name="OpForm"> 请输入一个整数:
<input type="Text"name="inputtext"size=6><p>
<input type=Button onclick="call output()" value="点击显示结果"><P>
结果为:
<input type=Text name="outputtext" size=10>
</FORM>
</BODY>
</HTML
我的QQ8508312 麻烦加我下，我有问题要问。
<HTML>
<SCRIPT language="VBScript">
Sub Output()
Dim input_val
input_val=Document.OpForm.InputText.value
Document.OpForm.OutputText.value=Factor(input_val)
End Sub
Function Factor(n)
dim m
if (n>0) then
m="输入的整数是正数"
elseif (n=0) then
m="输入的整数是0"
else
m="输入的整数是负数"
endif
factor=m
End Function
</SCRIPT>
<BODY>
<CENTER>
<FORM name="OpForm"> 请输入一个整数:
<input type="Text"name="inputtext"size=6><p>
<input type=Button onclick="call output()" value="点击显示结果"><P>
结果为:
<input type=Text name="outputtext" size=10>
</FORM>
</BODY>
</HTML
我的QQ8508312 麻烦加我下，我有问题要问。
Function Factor(n as integer)
。。
改了一点,你看看吧!!
<html>
<head>
<script type="text/vbscript">
sub output()
dim n
n=Formtext.inputtext.value
n=cint(n)
if n>0 then
result="你输入的数是正数"
elseif n=0 then
result="你输入的数是0"
else
result="你输入的数是负数"
end if
Formtext.outputtext.value=result
end sub
</script>
</head>
<body>
<center>
<form name="Formtext"> 请输入一个数:
<input type="Text" id="inputtext"name="inputtext" style="size:6px"><p>
<input type="Button" onclick="output()" value="点击显示结果"><P>
结果为:
<input type="Text" id="outputtext" name="outputtext" style="size:10px"&