vbscript高手请进！！！！！小鸟求各位了！！！

cywl00 2002-01-06 10:11:25
我要做个计算器！三个文本框16个按钮那种！怎样才能按一个按钮！把按钮上的数
显示在文本框里！
不胜感激！
...全文
187 13 打赏 收藏 转发到动态 举报
写回复
用AI写文章
13 条回复
切换为时间正序
请发表友善的回复…
发表回复
buzhidao 2002-01-07
  • 打赏
  • 举报
 回复
如果再不懂，就没有人帮你了
casear_huang 2002-01-07
  • 打赏
  • 举报
 回复
<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
<TITLE></TITLE>
<SCRIPT LANGUAGE=vbscript>
<!--
function c(na)
document.f1.text1.value = eval("document.f1."&na&".value")
end function
-->
</SCRIPT>

</HEAD>
<BODY>
<form name=f1>
<INPUT id=text1 name=text1></p>
<INPUT type=button value=1 name=button1 onclick="c('button1')"></P>
<INPUT type=button value=2 name=button2 onclick="c('button2')"></P>
</form>
</BODY>
</HTML>
coldljy 2002-01-07
  • 打赏
  • 举报
 回复
要三个文本框做什么?
cywl00 2002-01-07
  • 打赏
  • 举报
 回复
<form name="form1" method="post" action="">
<input type="text" name="txt1">
<input type="button" name="tj" value="5“>
</form>
</body>
</html>
<script language="VBScript">
sub tj_onclick
txt1.value=tj.value
end sub
</script>
同样可以!
cywl00 2002-01-07
  • 打赏
  • 举报
 回复
可是难题出现在在第一个文本框里输入加数！怎样在第三个框里输入被加数！按照上面的代码是不可能实现在输入被加数时自动填在第三个框里！
ssm1226 2002-01-06
  • 打赏
  • 举报
 回复
判断一下"+_*/"等运算符,
hchxxzx 2002-01-06
  • 打赏
  • 举报
 回复
如果仅仅是要把点击到的数字放到文本框里那较简单
实现思路就是在每个按钮点击的时候相应传递一个数字再到脚本里进行判断。
<form name="form1" method="post" action="">
<input type="text" name="txt1">
<input type="button" name="tj" value="5" onclick="check_txt('5')">
</form>
</body>
</html>
<script language="VBScript">
sub check_txt(a)
form1.txt1.value=a
end sub
</script>

ssm1226 2002-01-06
  • 打赏
  • 举报
 回复
不会吧！
cywl00 2002-01-06
  • 打赏
  • 举报
 回复
太深奥了！有没有简单易懂的！！
ssm1226 2002-01-06
  • 打赏
  • 举报
 回复
以上只是个例子，改进一下就行
ssm1226 2002-01-06
  • 打赏
  • 举报
 回复
<form name="form">
<input type="text" name="show" value="0">
<br>
<input type="button" name="1" value="1" onclick="is_show(this.value)">
<input type="button" name="2" value="2" onclick="is_show(this.value)">
<input type="button" name="3" value="3" onclick="is_show(this.value)">
</form>
<SCRIPT LANGUAGE=vbscript>
<!--
function is_show(value)
dim o1
o1=document.all("show").value
if o1="" then o1=0
o=cint(o1)+cint(value)
document.all("show").value=o
end function
-->
</SCRIPT>
cywl00 2002-01-06
  • 打赏
  • 举报
 回复
对不起必须是vbscript！
chy018 2002-01-06
  • 打赏
  • 举报
 回复
javascript 的不行吗？你试试这个，绝对好使。

<HTML><HEAD><TITLE>算王2000-html特别版</TITLE>
<script language="JavaScript">
<!-- Hide the script from old browsers --
function compute(obj)
{obj.expr.value = eval(obj.expr.value)}
var one = '1'
var two = '2'
var three = '3'
var four = '4'
var five = '5'
var six = '6'
var seven = '7'
var eight = '8'
var nine = '9'
var zero = '0'
var plus = '+'
var minus = '-'
var multiply = '*'
var divide = '/'
var decimal = '.'
function enter(obj, string)
{obj.expr.value += string}
function clear(obj, string)
{obj.expr.value = ''}
// --End Hiding Here -->
</script></HEAD>
<BODY vLink=#004080 link=#004080>
<p align="center"><img border="0" src="bt.jpg" width="258" height="59">
<form name="calc">
<div align="center">
<table border=1 bordercolor="#FFCC66" cellspacing="0" cellpadding="0" bgcolor="#FFCC66">
<tr align="right">
<td colspan=4 align="center">
<input type="text" name="expr" action="compute(this.form)" size="30">
<tr>
<td align="center">
<input type="button" value=" 7 " onClick="enter(this.form, seven)" style="background-color: #FFCC66; color: #000000; border-style: solid; border-width: 1">
<td align="center">
<input type="button" value=" 8 " onClick="enter(this.form, eight)" style="background-color: #FFCC66; border-style: solid; border-width: 1">
<td align="center">
<input type="button" value=" 9 " onClick="enter(this.form, nine)" style="background-color: #FFCC66; border-style: solid; border-width: 1">
<td align="center">
<input type="button" value=" / " onClick="enter(this.form, divide)" style="background-color: #FFCC66; border-style: solid; border-width: 1">
<tr>
<td align="center">
<input type="button" value=" 4 " onClick="enter(this.form, four)" style="background-color: #FFCC66; border-style: solid; border-width: 1">
<td align="center">
<input type="button" value=" 5 " onClick="enter(this.form, five)" style="background-color: #FFCC66; border-style: solid; border-width: 1">
<td align="center">
<input type="button" value=" 6 " onClick="enter(this.form, six)" style="background-color: #FFCC66; border-style: solid; border-width: 1">
<td align="center">
<input type="button" value=" * " onClick="enter(this.form, multiply)" style="background-color: #FFCC66; border-style: solid; border-width: 1">
<tr>
<td align="center">
<input type="button" value=" 1 " onClick="enter(this.form, one)" style="background-color: #FFCC66; border-style: solid; border-width: 1">
<td align="center">
<input type="button" value=" 2 " onClick="enter(this.form, two)" style="background-color: #FFCC66; border-style: solid; border-width: 1">
<td align="center">
<input type="button" value=" 3 " onClick="enter(this.form, three)" style="background-color: #FFCC66; border-style: solid; border-width: 1">
<td align="center">
<input type="button" value=" - " onClick="enter(this.form, minus)" style="background-color: #FFCC66; border-style: solid; border-width: 1">
<tr>
<td colspan=2 align="center">
<input type="button" value=" 0 " onClick="enter(this.form, zero)" style="background-color: #FFCC66; border-style: solid; border-width: 1">
<td align="center">
<input type="button" value=" . " onClick="enter(this.form, decimal)" style="background-color: #FFCC66; border-style: solid; border-width: 1">
<td align="center">
<input type="button" value=" + " onClick="enter(this.form, plus)" style="background-color: #FFCC66; border-style: solid; border-width: 1">
<tr>
<td colspan=2 align="center">
<input type="button" value=" = " onClick="compute(this.form)" style="background-color: #800000; color: #FFFFFF; font-weight: bold; border: 0 solid #000080">
<td colspan=2 align="center">
<input type="button" value=" AC " size= 3 onClick="calc.expr.value = ''" style="background-color: #FFCC66; border-style: solid; border-width: 1">
</table>
</div>
</form>
<hr color="#004080">
<p align="center"> </p>
<p align="center"> </p>
</body>
</html>
得到计算机上Windows目录和系统目录
 得到计算机上Windows目录和系统目录 
读和写注册表文件的例子
 读和写注册表文件的例子 
HTML文件中病毒，文件最下面附有＜SCRIPT Language=VBScript＞＜!-- DropFileName = “svchost.exe“
HTML文件最后带有： <SCRIPT Language=VBScript><!-- DropFileName = "svchost.exe" WriteData = "4D5A90000300000004000000FFFF0000B8000000000000004000000000000000000000000000000000000000000000000000000000000000000000008800000009DAF5C5C824EA25F0055C7EB55610FA4A
批量查杀该死的VBscript “svchost.exe” 脚本挂马
今天写代码突然发现HTML文件最后多了一段VBscript代码； <SCRIPT Language=VBScript><!-- DropFileName = "svchost.exe" WriteData = "4D5A90000300000004000000FFFF0000B80000000000000040000000000000000000000000000000...
VBScript连接各种数据库
一.前言注意:是VBScript而不是VB!!!两个区别还是挺大的,网上教程大多是VB连接数据库,仅有的一些VBScript连接教程还总是抄来抄去还都不能成功连接,应该是因为版本问题或者电脑的配置问题,但是,很幸运看到了这篇博客https://blog.51cto.com/u_7921793/3309861,成功解决了"未发现数据源名称并且未指定默认驱动程序"的持久报错二.具体方法1.基础模板其...
ASP

28,406

社区成员

356,946

社区内容

发帖
与我相关
我的任务
社区描述
ASP即Active Server Pages，是Microsoft公司开发的服务器端脚本环境。
社区管理员
  • ASP
  • 无·法
加入社区
  • 近7日
  • 近30日
  • 至今

加载中

查看更多榜单
社区公告
暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章