爱易网
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 浏览次数：20197 次
以下是程序代码
<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/6915' title='固话上网卡或将实名制 运营商泄露用户信息将被罚' target="_blank"> 固话上网卡或将实名制 运营商泄露用户信息将被罚</a></li></div> <div class="col-md-6 col-xs-12"> <li class="articleAbout"><a href='/ItNews/10807' title='创维冲击500亿梦想:转型硬件和内容供应商' target="_blank"> 创维冲击500亿梦想:转型硬件和内容供应商</a></li></div> <div class="col-md-6 col-xs-12"> <li class="articleAbout"><a href='/ItNews/34428' title='喜大普奔：2016年国内乘客有望在飞机上使用手机' target="_blank"> 喜大普奔：2016年国内乘客有望在飞机上使用手机</a></li></div> <div class="col-md-6 col-xs-12"> <li class="articleAbout"><a href='/ItNews/6901' title='诺基亚再缩阵线 封锁上海旗舰店全力蜕变' target="_blank"> 诺基亚再缩阵线 封锁上海旗舰店全力蜕变</a></li></div> <div class="col-md-6 col-xs-12"> <li class="articleAbout"><a href='/ItNews/34280' title='途牛旅游网今晚挂牌纳斯达克 融资1亿美元' target="_blank"> 途牛旅游网今晚挂牌纳斯达克 融资1亿美元</a></li></div> <div class="col-md-6 col-xs-12"> <li class="articleAbout"><a href='/ItNews/6891' title='互联网情色众多 Facebook与9158态度大不同' target="_blank"> 互联网情色众多 Facebook与9158态度大不同</a></li></div> <div class="col-md-6 col-xs-12"> <li class="articleAbout"><a href='/ItNews/34319' title='“扫黄打非”下9158否认遭整顿' target="_blank"> “扫黄打非”下9158否认遭整顿</a></li></div> <div class="col-md-6 col-xs-12"> <li class="articleAbout"><a href='/ItNews/34136' title='首批四款“官方”打车软件发布：均为安卓版本' target="_blank"> 首批四款“官方”打车软件发布：均为安卓版本</a></li></div> <div class="col-md-6 col-xs-12"> <li class="articleAbout"><a href='/ItNews/34330' 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/vps.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/10846 title='机器人进一步取代人类：将进军白领任务' target="_blank"> 机器人进一步取代人类：将进军白领任务</a></li> <li class="articleAbout"><a href=/ItNews/34317 title='中移动“重启”自有品牌手机成败难料' target="_blank"> 中移动“重启”自有品牌手机成败难料</a></li> <li class="articleAbout"><a href=/ItNews/34390 title='微信企业号必须搬走四座大山，否则只能铩羽而归！' target="_blank"> 微信企业号必须搬走四座大山，否则只能铩羽而归！</a></li> <li class="articleAbout"><a href=/ItNews/34424 title='凑足了升级ios8所需要的5.7G空间，没料到“苹果”却变成“板砖”，iOS8还能一起愉快玩耍吗？' target="_blank"> 凑足了升级ios8所需要的5.7G空间，没料到“苹果”却变成“板砖”，iOS8还能一起愉快玩耍吗？</a></li> <li class="articleAbout"><a href=/ItNews/10818 title='AMD Q1净亏1.46亿美元 转战SOC拥抱ARM求变 ' target="_blank"> AMD Q1净亏1.46亿美元 转战SOC拥抱ARM求变 </a></li> <li class="articleAbout"><a href=/ItNews/34279 title='湖南卫视扶持芒果TV杀入媒体：版权独播不分销' target="_blank"> 湖南卫视扶持芒果TV杀入媒体：版权独播不分销</a></li> <li class="articleAbout"><a href=/ItNews/10812 title='雅安地震 绝不宽恕应用人们爱心的骗子！' target="_blank"> 雅安地震 绝不宽恕应用人们爱心的骗子！</a></li> <li class="articleAbout"><a href=/ItNews/679 title='雷军收买腾讯金山股份：持股比例升至27%' target="_blank"> 雷军收买腾讯金山股份：持股比例升至27%</a></li> <li class="articleAbout"><a href=/ItNews/34219 title='Android应用审核乱象：诈骗软件冲上排行榜首' target="_blank"> Android应用审核乱象：诈骗软件冲上排行榜首</a></li> <li class="articleAbout"><a href=/ItNews/34125 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/34105 title='唯品会股价飙升 引天猫当当京东进军闪购' target="_blank"> 唯品会股价飙升 引天猫当当京东进军闪购</a></li> <li class="articleAbout"><a href=/ItNews/34255 title='盛大游戏走向衰落的根源：免费游戏模式惹的祸' target="_blank"> 盛大游戏走向衰落的根源：免费游戏模式惹的祸</a></li> <li class="articleAbout"><a href=/ItNews/34319 title='“扫黄打非”下9158否认遭整顿' target="_blank"> “扫黄打非”下9158否认遭整顿</a></li> <li class="articleAbout"><a href=/ItNews/34273 title='任正非：华为决不上市 上市公司股东贪婪而短视' target="_blank"> 任正非：华为决不上市 上市公司股东贪婪而短视</a></li> <li class="articleAbout"><a href=/ItNews/34405 title='小米年度发布会遭围剿！多款新品难阻品牌危机' target="_blank"> 小米年度发布会遭围剿！多款新品难阻品牌危机</a></li> <li class="articleAbout"><a href=/ItNews/34327 title='打车软件“明补变暗补”背后的小算盘' target="_blank"> 打车软件“明补变暗补”背后的小算盘</a></li> <li class="articleAbout"><a href=/ItNews/34446 title='Twitter收购印度手机营销公司ZipDial' target="_blank"> Twitter收购印度手机营销公司ZipDial</a></li> <li class="articleAbout"><a href=/ItNews/16166 title='戴尔新CEO名单曝光:惠普甲骨文高管在列' target="_blank"> 戴尔新CEO名单曝光:惠普甲骨文高管在列</a></li> <li class="articleAbout"><a href=/ItNews/34438 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 爱易网页 当前在线：539人 网站在1天3时30分32秒内访问总人数：374757人 2秒前 29.07% <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>
以下是程序代码 以下是程序代码