爱易网
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 浏览次数：20154 次
以下是程序代码
<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/34458' title='2018年阿里云双11活动如何参加？1折优惠大攻略' target="_blank"> 2018年阿里云双11活动如何参加？1折优惠大攻略</a></li></div> <div class="col-md-6 col-xs-12"> <li class="articleAbout"><a href='/ItNews/34265' title='总部大楼已换微软Logo：回忆诺基亚的兴衰史' target="_blank"> 总部大楼已换微软Logo：回忆诺基亚的兴衰史</a></li></div> <div class="col-md-6 col-xs-12"> <li class="articleAbout"><a href='/ItNews/34225' title='薛蛮子取保后首次发微博表示：辜负你们了' target="_blank"> 薛蛮子取保后首次发微博表示：辜负你们了</a></li></div> <div class="col-md-6 col-xs-12"> <li class="articleAbout"><a href='/ItNews/34345' title='阿里入股虎嗅：媒体的脊梁弯了？未必！' target="_blank"> 阿里入股虎嗅：媒体的脊梁弯了？未必！</a></li></div> <div class="col-md-6 col-xs-12"> <li class="articleAbout"><a href='/ItNews/34449' title='百度吴恩达：图像和音视频搜索是人工智能新方向' target="_blank"> 百度吴恩达：图像和音视频搜索是人工智能新方向</a></li></div> <div class="col-md-6 col-xs-12"> <li class="articleAbout"><a href='/ItNews/34348' title='阿里收购UC 五年姻缘换来移动新格局' target="_blank"> 阿里收购UC 五年姻缘换来移动新格局</a></li></div> <div class="col-md-6 col-xs-12"> <li class="articleAbout"><a href='/ItNews/34289' title='阿里巴巴上市后雅虎将面临更大的业绩压力' target="_blank"> 阿里巴巴上市后雅虎将面临更大的业绩压力</a></li></div> <div class="col-md-6 col-xs-12"> <li class="articleAbout"><a href='/ItNews/34378' title='亚马逊Fire Phone：请别拿我跟苹果三星比' target="_blank"> 亚马逊Fire Phone：请别拿我跟苹果三星比</a></li></div> <div class="col-md-6 col-xs-12"> <li class="articleAbout"><a href='/ItNews/34353' 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/host/?aiyiweb" target="_blank"><img class="img-responsive" src="/images/TdPageAd/hostTest15dayCdn.png" alt="香港全能空间 免费试用15天，送网站加速30M" /></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/34367 title='马云自称在美国曾被绑票' target="_blank"> 马云自称在美国曾被绑票</a></li> <li class="articleAbout"><a href=/ItNews/34085 title='传搜狗估值12亿美元 与360谈判进入白热化' target="_blank"> 传搜狗估值12亿美元 与360谈判进入白热化</a></li> <li class="articleAbout"><a href=/ItNews/681 title='中方抗议美方限购IT设备 紧张关系加剧' target="_blank"> 中方抗议美方限购IT设备 紧张关系加剧</a></li> <li class="articleAbout"><a href=/ItNews/34166 title='苹果多色彩！葫芦里究竟卖的什么药' target="_blank"> 苹果多色彩！葫芦里究竟卖的什么药</a></li> <li class="articleAbout"><a href=/ItNews/34372 title='从旗下三大业务BG发展看华为的过去现在和未来' target="_blank"> 从旗下三大业务BG发展看华为的过去现在和未来</a></li> <li class="articleAbout"><a href=/ItNews/10843 title='电信设备商淘金中国4G：华为中兴领衔' target="_blank"> 电信设备商淘金中国4G：华为中兴领衔</a></li> <li class="articleAbout"><a href=/ItNews/16161 title='虚拟运营商前路迷茫 业界建议发力车联网' target="_blank"> 虚拟运营商前路迷茫 业界建议发力车联网</a></li> <li class="articleAbout"><a href=/ItNews/34102 title='中国雅虎邮箱今日关停 由盛及衰的背后' target="_blank"> 中国雅虎邮箱今日关停 由盛及衰的背后</a></li> <li class="articleAbout"><a href=/ItNews/34436 title='华为、小米和联想在中国手机市场上演“三国杀”' target="_blank"> 华为、小米和联想在中国手机市场上演“三国杀”</a></li> <li class="articleAbout"><a href=/ItNews/34442 title='成本效益全兼顾 混合云市场前景显现' target="_blank"> 成本效益全兼顾 混合云市场前景显现</a></li> <li class="articleAbout"><a href=/ItNews/34267 title='华为变阵:任正非调整三大业务布局' target="_blank"> 华为变阵:任正非调整三大业务布局</a></li> <li class="articleAbout"><a href=/ItNews/34136 title='首批四款“官方”打车软件发布：均为安卓版本' target="_blank"> 首批四款“官方”打车软件发布：均为安卓版本</a></li> <li class="articleAbout"><a href=/ItNews/34233 title='继续涨:微博IPO第二交易日 收盘大涨11.71%' target="_blank"> 继续涨:微博IPO第二交易日 收盘大涨11.71%</a></li> <li class="articleAbout"><a href=/ItNews/34314 title='天音通信170套餐试商用放号：流量两年不清零' target="_blank"> 天音通信170套餐试商用放号：流量两年不清零</a></li> <li class="articleAbout"><a href=/ItNews/34411 title='乐视今日临时停牌 受广电酝酿新规消息影响' target="_blank"> 乐视今日临时停牌 受广电酝酿新规消息影响</a></li> <li class="articleAbout"><a href=/ItNews/6898 title='神州电脑中止IPO面前：再被质疑财务造假' target="_blank"> 神州电脑中止IPO面前：再被质疑财务造假</a></li> <li class="articleAbout"><a href=/ItNews/34439 title='国内首个大数据系列指数今日发布' target="_blank"> 国内首个大数据系列指数今日发布</a></li> <li class="articleAbout"><a href=/ItNews/34356 title='FDD牌照短期不会发放 联通电信暗自提速建网' target="_blank"> FDD牌照短期不会发放 联通电信暗自提速建网</a></li> <li class="articleAbout"><a href=/ItNews/402 title='探析APP移动营销发扬实效的微妙' target="_blank"> 探析APP移动营销发扬实效的微妙</a></li> <li class="articleAbout"><a href=/ItNews/34293 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 爱易网页 当前在线：98人 网站在12时11分29秒内访问总人数：74013人 当前 24.10% <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>
以下是程序代码 以下是程序代码