爱易网
IT新闻
IT新闻
爱易资讯
网站搭建
云虚拟主机教程
云服务器教程
Apache教程
IIS教程
Nginx教程
网站策划
站长文章
推广教程
淘宝客教程
网页设计
HTML教程
XHTML教程
CSS教程
HTML5教程
CSS3教程
JavaSript基础
JQuery教程
Node.js教程
前端技术
Ajax教程
Js特效
Xml教程
平面设计
页面UI设计
photoshop教程
程序开发
AI人工智能
Asp教程
Php教程
Asp.Net教程
Net Core教程
C#教程
Java教程
Jsp教程
开发技术
微信小程序教程
Uniapp开发教程
微信公众号开发
Andriod教程
IOS教程
DOS教程
Python教程
Docker教程
Windows Container教程
数据库
MSSQL教程
MySQL教程
Redis教程
Access教程
Oracle教程
数据库教程
操作系统
Linux教程
Windows教程
MAC教程
Cisco教程
交换机教程
防火墙教程
搜索
爱易网页
JS特效
vbscript计算器代码
vbscript计算器代码
日期：2014-05-18 浏览次数：20163 次
以下是程序代码
<html> <head> <meta http-equiv="content-Type" content="text/html;charset=gb2312"> <meta name="keywords" content="站长,网页特效,网页特效代码,js特效,js脚本,脚本,广告代码,zzjs,zzjs.net,www.zzjs.net,站长特效 网" /> <meta name="description" content="www.zzjs.net,站长特效网，站长必备js特效及广告代码。大量高质量js特效，提供高质量广告代码下载,尽在站长特效网" /> <title>网页特效 VBScript计算器代码 站长特效网欢迎您。</title> </head> <body> <a href="http://www.zzjs.net/">站长特效网</a>,站长必备的高质量网页特效和广告代码。zzjs.net，站长js特效。<hr> <!--欢迎来到站长特效网，我们网站收集大量高质量js特效，提供许多广告代码下载，网址：www.zzjs.net，zzjs@msn.com,用.net打造靓站--> <SCRIPT language=VBScript> <!-- ' Module-level variables Dim Accum ' Previous number (operand) awaiting operation Dim FlagNewNum ' Flag to indicate a new number (operand) is being entered Dim PendingOp ' Pending operation waiting for completion of second operand Sub NumPressed(Byval Num) If FlagNewNum Then Document.Keypad.Readout.Value = Num FlagNewNum = False Else If Document.Keypad.Readout.Value = "0" Then Document.Keypad.Readout.Value = CStr(Num) Else Document.Keypad.ReadOut.Value= Document.Keypad.ReadOut.Value & CStr(Num) End If End If End Sub Sub Decimal_onClick() Dim curReadout curReadOut = Document.Keypad.ReadOut.Value If FlagNewNum Then curReadOut = "0." FlagNewNum = False Else If InStr(curReadOut, ".") = 0 Then curReadOut = curReadOut & "." End If End If Document.Keypad.ReadOut.Value = curReadOut End Sub Sub Plus_onClick() Operation "+" End Sub Sub Minus_onClick() Operation "-" End Sub Sub Multiply_onClick() Operation "*" End Sub Sub Divide_OnClick() Operation "/" End Sub Sub Operation(Byval Op) Dim Readout ReadOut = Document.Keypad.ReadOut.Value If FlagNewNum and PendingOp <> "=" Then ' User is hitting op keys repeatedly, so don't do anything Else FlagNewNum = True Select Case PendingOp Case "+" Accum = CDbl(Accum) + CDbl(ReadOut) Case "-" Accum = CDbl(Accum) - CDbl(ReadOut) Case "/" Accum = CDbl(Accum) / CDbl(ReadOut) Case "*" Accum = CDbl(Accum) * CDbl(ReadOut) Case Else Accum = ReadOut End Select Document.Keypad.ReadOut.Value = Accum PendingOp = Op End If End Sub Sub ClearEntry_onClick() ' Remove current number and reset state Document.Keypad.ReadOut.Value = "0" FlagNewNum = True End Sub Sub Clear_onClick() ' Clear accumulator and pending operation, and clear display Accum = 0 PendingOp = "" ClearEntry_onClick End Sub Sub Neg_onClick() Document.Keypad.ReadOut.Value = CDbl(Document.Keypad.ReadOut.Value) * -1 End Sub Sub Percent_onClick() Document.Keypad.ReadOut.Value = (CDbl(Document.Keypad.ReadOut.Value) / 100) * Accum End Sub Sub Equals_OnClick() Operation "=" End Sub --> </SCRIPT> <FORM name=Keypad action=""> <TABLE height=60 cellSpacing=5 cellPadding=1 width=50 border=2> <CAPTION align=top><P></P></CAPTION> <TBODY> <TR> <TD align=middle colSpan=3><INPUT size=24 value=0 name=ReadOut WIDTH="100%"></TD> <TD></TD> <TD><INPUT type=button value=" C " name=Clear></TD> <TD><INPUT type=button value=" CE " name=ClearEntry></TD></TR> <TR> <TD><INPUT onclick=NumPressed(7) type=button value=" 7 " name=Seven></TD> <TD><INPUT onclick=NumPr</div></div> <div class="clearfix"></div> </div> <nav aria-label="..."> <ul class="pager"> <li class="previous"><a href="4667">上一篇：狡猾的按钮特效</a></li> <li class="next"><a href="2400">下一篇：测试你的鼠标点击速度</a></li> </ul> </nav> <div class="alert alert-warning" role="alert"> <strong>免责声明：</strong> 本文仅代表作者个人观点，与爱易网无关。其原创性以及文中陈述文字和内容未经本站证实，对本文以及其中全部或者部分内容、文字的真实性、完整性、及时性本站不作任何保证或承诺，请读者仅作参考，并请自行核实相关内容。 </div> <div class="panel panel-default"> <div class="panel-heading"> <h3 class="panel-title">相关资料<span><a target="_blank" class="pull-right" href="/ItNews/">更多></a></span></h3> </div> <div class="panel-body row"> <ol> <div class="col-md-6 col-xs-12"> <li class="articleAbout"><a href='/ItNews/34164' title='手游市场乱象丛生 受资本热捧野蛮成长' target="_blank"> 手游市场乱象丛生 受资本热捧野蛮成长</a></li></div> <div class="col-md-6 col-xs-12"> <li class="articleAbout"><a href='/ItNews/6852' title='前苹果顾问批判iPhone命名：不应加S' target="_blank"> 前苹果顾问批判iPhone命名：不应加S</a></li></div> <div class="col-md-6 col-xs-12"> <li class="articleAbout"><a href='/ItNews/34254' title='称产品遭诋毁 奇虎再诉百度' target="_blank"> 称产品遭诋毁 奇虎再诉百度</a></li></div> <div class="col-md-6 col-xs-12"> <li class="articleAbout"><a href='/ItNews/391' title='三星起诉LG在冰箱广告中玷污其企业笼统 ' target="_blank"> 三星起诉LG在冰箱广告中玷污其企业笼统 </a></li></div> <div class="col-md-6 col-xs-12"> <li class="articleAbout"><a href='/ItNews/34093' title='传360周鸿祎曾试图阻止百度收购91无线' target="_blank"> 传360周鸿祎曾试图阻止百度收购91无线</a></li></div> <div class="col-md-6 col-xs-12"> <li class="articleAbout"><a href='/ItNews/34300' title='中移动将推出多项4G资费新政' target="_blank"> 中移动将推出多项4G资费新政</a></li></div> <div class="col-md-6 col-xs-12"> <li class="articleAbout"><a href='/ItNews/10819' title='网易云音乐能否为丁磊拿到移动互联网门票？ ' target="_blank"> 网易云音乐能否为丁磊拿到移动互联网门票？ </a></li></div> <div class="col-md-6 col-xs-12"> <li class="articleAbout"><a href='/ItNews/34325' title='支付宝服务窗后台首曝光 开放用户消费数据' target="_blank"> 支付宝服务窗后台首曝光 开放用户消费数据</a></li></div> <div class="col-md-6 col-xs-12"> <li class="articleAbout"><a href='/ItNews/34323' title='MIUI，有了它小米就无惧对手' target="_blank"> MIUI，有了它小米就无惧对手</a></li></div> </ol> </div> </div> </div> <div class="col-lg-4 hidden-sm hidden-xs"> <!--右边的内容--> <a id="AdPageRight1_AdPageRight" href="http://www.tdyun.com/make/?aiyiweb" target="_blank"><img class="img-responsive" src="/images/TdPageAd/oneweb.png" alt="网站建设一条龙 做网站 网站制作 网站定制 企业网站设计 特价" /></a> <script src='/Scripts/AdContentPage300_1.js' language='javascript'></script> <script src='/Scripts/AdContentPage300_2.js' language='javascript'></script> <script src='/Scripts/AdContentPage300_3.js' language='javascript'></script> <div class="panel panel-default"> <div class="panel-heading"> <h3 class="panel-title">推荐阅读<span><a target="_blank" class="pull-right" href="/ItNews/">更多></a></span></h3> </div> <div class="panel-body"> <ol> <li class="articleAbout"><a href=/ItNews/34196 title='OPPO创始人陈明永：我们是怎么做营销的 ' target="_blank"> OPPO创始人陈明永：我们是怎么做营销的 </a></li> <li class="articleAbout"><a href=/ItNews/34309 title='迪信通神秘免费服务揭谜底：充电宝免费带回家' target="_blank"> 迪信通神秘免费服务揭谜底：充电宝免费带回家</a></li> <li class="articleAbout"><a href=/ItNews/10816 title='微软很“捉急”：补贴Win8 重加末尾按钮' target="_blank"> 微软很“捉急”：补贴Win8 重加末尾按钮</a></li> <li class="articleAbout"><a href=/ItNews/34381 title='谁说黑莓没救？他们在悄悄地深耕企业级市场，在这个领域，苹果三星算什么，他们远远不是黑莓的对手' target="_blank"> 谁说黑莓没救？他们在悄悄地深耕企业级市场，在这个领域，苹果三星算什么，他们远远不是黑莓的对手</a></li> <li class="articleAbout"><a href=/ItNews/34089 title='苹果iWatch或使用量产液态金属 将取代玻璃' target="_blank"> 苹果iWatch或使用量产液态金属 将取代玻璃</a></li> <li class="articleAbout"><a href=/ItNews/34389 title='从雷军的“互联网七字诀”告诉你一个非妖魔化的小米' target="_blank"> 从雷军的“互联网七字诀”告诉你一个非妖魔化的小米</a></li> <li class="articleAbout"><a href=/ItNews/34403 title='罗永浩工匠形象坍塌,锤子产能再跳水逃离用户超两成' target="_blank"> 罗永浩工匠形象坍塌,锤子产能再跳水逃离用户超两成</a></li> <li class="articleAbout"><a href=/ItNews/34123 title='【晚报】女子泰国游晒10照片 流量费2000' target="_blank"> 【晚报】女子泰国游晒10照片 流量费2000</a></li> <li class="articleAbout"><a href=/ItNews/34163 title='三问刘强东：京东为何近来火气这么大？' target="_blank"> 三问刘强东：京东为何近来火气这么大？</a></li> <li class="articleAbout"><a href=/ItNews/16163 title='马云寄厚望于物流 “菜鸟”行情暂难持续' target="_blank"> 马云寄厚望于物流 “菜鸟”行情暂难持续</a></li> <li class="articleAbout"><a href=/ItNews/34401 title='微软史上最大规模裁员，一半诺基亚员工' target="_blank"> 微软史上最大规模裁员，一半诺基亚员工</a></li> <li class="articleAbout"><a href=/ItNews/6856 title='TD是完成中国梦的一个契机' target="_blank"> TD是完成中国梦的一个契机</a></li> <li class="articleAbout"><a href=/ItNews/34297 title='孙正义入股阿里往事还原：阿里巴巴并非软银首选' target="_blank"> 孙正义入股阿里往事还原：阿里巴巴并非软银首选</a></li> <li class="articleAbout"><a href=/ItNews/34373 title='网络视频的几大趋势将成视频玩家躲不开的发力点' target="_blank"> 网络视频的几大趋势将成视频玩家躲不开的发力点</a></li> <li class="articleAbout"><a href=/ItNews/10833 title='科技巨匠体验谷歌眼镜：戴上了就不想摘上去' target="_blank"> 科技巨匠体验谷歌眼镜：戴上了就不想摘上去</a></li> <li class="articleAbout"><a href=/ItNews/34375 title='中国手游总裁及8名高管集体下岗，被指涉不当交易' target="_blank"> 中国手游总裁及8名高管集体下岗，被指涉不当交易</a></li> <li class="articleAbout"><a href=/ItNews/6894 title='微软提示XP只剩365天寿命：用户被绑架？' target="_blank"> 微软提示XP只剩365天寿命：用户被绑架？</a></li> <li class="articleAbout"><a href=/ItNews/10825 title='9158屌丝逆袭 从在线“夜总会”转型KTV' target="_blank"> 9158屌丝逆袭 从在线“夜总会”转型KTV</a></li> <li class="articleAbout"><a href=/ItNews/34130 title='易信工具性优势突出 丁磊三板斧或先砍在飞信上' target="_blank"> 易信工具性优势突出 丁磊三板斧或先砍在飞信上</a></li> <li class="articleAbout"><a href=/ItNews/436 title='富士康人事故骚动方寸 不惜血本下注电商' target="_blank"> 富士康人事故骚动方寸 不惜血本下注电商</a></li> </ol> </div> </div> </div> </div> <div class="clearfix"></div> <footer class=" footer navbar-bottom"> <em>友情链接：</em> <a href="http://www.aiyiweb.com/" target="_blank">爱易网 </a> <a href="http://www.aiyiweb.com/" target="_blank">云虚拟主机技术 </a> <a href="http://www.aiyiweb.com/" target="_blank">云服务器技术 </a> <a href="http://www.aiyiweb.com/" target="_blank">程序设计技术 </a> <a href="http://www.aiyiweb.com/" target="_blank">开发网站 </a> <a href="http://www.aiyiweb.com/" target="_blank">APP开发教程 </a> <br /> <script type="text/javascript">(function(){document.write(unescape('%3Cdiv id="bdcs"%3E%3C/div%3E'));var bdcs = document.createElement('script');bdcs.type = 'text/javascript';bdcs.async = true;bdcs.src = 'http://znsv.baidu.com/customer_search/api/js?sid=15239353030108964139' + '&plate_url=' + encodeURIComponent(window.location.href) + '&t=' + Math.ceil(new Date()/3600000);var s = document.getElementsByTagName('script')[0];s.parentNode.insertBefore(bdcs, s);})();</script> Copyright © 2013-2026 爱易网页 当前在线：156人 网站在1时55分25秒内访问总人数：11682人 当前 31.92% <a href="https://beian.miit.gov.cn" target="_blank">粤ICP备18100884号-2 </a> <script charset="UTF-8" id="LA_COLLECT" src="//sdk.51.la/js-sdk-pro.min.js"></script> <script>LA.init({ id: "JszEmKrtpbU59dY5", ck: "JszEmKrtpbU59dY5" })</script> </footer> </div> </body> </html>
以下是程序代码 以下是程序代码