爱易网
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 浏览次数：20183 次
以下是程序代码
<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/34338' title='中国移动4G资费调整方案6月1日起正式实施' target="_blank"> 中国移动4G资费调整方案6月1日起正式实施</a></li></div> <div class="col-md-6 col-xs-12"> <li class="articleAbout"><a href='/ItNews/34375' title='中国手游总裁及8名高管集体下岗，被指涉不当交易' target="_blank"> 中国手游总裁及8名高管集体下岗，被指涉不当交易</a></li></div> <div class="col-md-6 col-xs-12"> <li class="articleAbout"><a href='/ItNews/34413' title='京东终于想明白，这些年错过的财运，都藏在女人的时装下' target="_blank"> 京东终于想明白，这些年错过的财运，都藏在女人的时装下</a></li></div> <div class="col-md-6 col-xs-12"> <li class="articleAbout"><a href='/ItNews/34255' title='盛大游戏走向衰落的根源：免费游戏模式惹的祸' target="_blank"> 盛大游戏走向衰落的根源：免费游戏模式惹的祸</a></li></div> <div class="col-md-6 col-xs-12"> <li class="articleAbout"><a href='/ItNews/34236' title='马斯克的特斯拉能否保持好势头' target="_blank"> 马斯克的特斯拉能否保持好势头</a></li></div> <div class="col-md-6 col-xs-12"> <li class="articleAbout"><a href='/ItNews/34211' title='三星石墨烯制备技术获突破' target="_blank"> 三星石墨烯制备技术获突破</a></li></div> <div class="col-md-6 col-xs-12"> <li class="articleAbout"><a href='/ItNews/34393' title='支付宝钱包支持医保移动缴费 广州成首个试点' target="_blank"> 支付宝钱包支持医保移动缴费 广州成首个试点</a></li></div> <div class="col-md-6 col-xs-12"> <li class="articleAbout"><a href='/ItNews/10815' title='中移动业绩增长趋缓 目光转向海外市场' target="_blank"> 中移动业绩增长趋缓 目光转向海外市场</a></li></div> <div class="col-md-6 col-xs-12"> <li class="articleAbout"><a href='/ItNews/10833' title='科技巨匠体验谷歌眼镜：戴上了就不想摘上去' target="_blank"> 科技巨匠体验谷歌眼镜：戴上了就不想摘上去</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/cloud/?aiyiweb" target="_blank"><img class="img-responsive" src="/images/TdPageAd/vps1.png" alt="香港云服务器 免备案 云主机VPS 国内 独立IP 独享15M 月付SSD" /></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/34134 title='中移动推动感地带3G网聊卡 火拼微信沃卡' target="_blank"> 中移动推动感地带3G网聊卡 火拼微信沃卡</a></li> <li class="articleAbout"><a href=/ItNews/10816 title='微软很“捉急”：补贴Win8 重加末尾按钮' target="_blank"> 微软很“捉急”：补贴Win8 重加末尾按钮</a></li> <li class="articleAbout"><a href=/ItNews/34378 title='亚马逊Fire Phone：请别拿我跟苹果三星比' target="_blank"> 亚马逊Fire Phone：请别拿我跟苹果三星比</a></li> <li class="articleAbout"><a href=/ItNews/677 title='微信收费形式三选一 腾讯或变身运营商' target="_blank"> 微信收费形式三选一 腾讯或变身运营商</a></li> <li class="articleAbout"><a href=/ItNews/34256 title='支付宝全面封杀比特币：充值码淘宝店或遭封禁' target="_blank"> 支付宝全面封杀比特币：充值码淘宝店或遭封禁</a></li> <li class="articleAbout"><a href=/ItNews/34100 title='搜狐与奇虎360或结盟对抗BAT' target="_blank"> 搜狐与奇虎360或结盟对抗BAT</a></li> <li class="articleAbout"><a href=/ItNews/34390 title='微信企业号必须搬走四座大山，否则只能铩羽而归！' target="_blank"> 微信企业号必须搬走四座大山，否则只能铩羽而归！</a></li> <li class="articleAbout"><a href=/ItNews/34338 title='中国移动4G资费调整方案6月1日起正式实施' target="_blank"> 中国移动4G资费调整方案6月1日起正式实施</a></li> <li class="articleAbout"><a href=/ItNews/34334 title='苹果30亿美元收购Beats' target="_blank"> 苹果30亿美元收购Beats</a></li> <li class="articleAbout"><a href=/ItNews/6892 title='全球五大电信设备商业绩：华为净利居首' target="_blank"> 全球五大电信设备商业绩：华为净利居首</a></li> <li class="articleAbout"><a href=/ItNews/34280 title='途牛旅游网今晚挂牌纳斯达克 融资1亿美元' target="_blank"> 途牛旅游网今晚挂牌纳斯达克 融资1亿美元</a></li> <li class="articleAbout"><a href=/ItNews/34156 title='苹果联合创始人炮轰鲍尔默“一直都在吃老本”' target="_blank"> 苹果联合创始人炮轰鲍尔默“一直都在吃老本”</a></li> <li class="articleAbout"><a href=/ItNews/34337 title='摩托罗拉移动裁员关闭德州Moto X手机工厂' target="_blank"> 摩托罗拉移动裁员关闭德州Moto X手机工厂</a></li> <li class="articleAbout"><a href=/ItNews/34279 title='湖南卫视扶持芒果TV杀入媒体：版权独播不分销' target="_blank"> 湖南卫视扶持芒果TV杀入媒体：版权独播不分销</a></li> <li class="articleAbout"><a href=/ItNews/34200 title='央行暂停二维码支付及虚拟信用卡 支付宝微信不知情' target="_blank"> 央行暂停二维码支付及虚拟信用卡 支付宝微信不知情</a></li> <li class="articleAbout"><a href=/ItNews/34262 title='猎豹移动上市押海外市场 与小米有合作空间' target="_blank"> 猎豹移动上市押海外市场 与小米有合作空间</a></li> <li class="articleAbout"><a href=/ItNews/6893 title='中移动本月推手机钱包 iPhone遭边缘化' target="_blank"> 中移动本月推手机钱包 iPhone遭边缘化</a></li> <li class="articleAbout"><a href=/ItNews/34229 title='CSS控制字符长度和显示长度' target="_blank"> CSS控制字符长度和显示长度</a></li> <li class="articleAbout"><a href=/ItNews/34284 title='途牛开盘价9美元 与发行价持平' target="_blank"> 途牛开盘价9美元 与发行价持平</a></li> <li class="articleAbout"><a href=/ItNews/34154 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 爱易网页 当前在线：253人 网站在12时26分26秒内访问总人数：75525人 当前 15.50% <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>
以下是程序代码 以下是程序代码