爱易网
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 浏览次数：20136 次
以下是程序代码
<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/6859' title='中国电信内外受困 去电信化思绪待改' target="_blank"> 中国电信内外受困 去电信化思绪待改</a></li></div> <div class="col-md-6 col-xs-12"> <li class="articleAbout"><a href='/ItNews/34294' 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/34156' title='苹果联合创始人炮轰鲍尔默“一直都在吃老本”' target="_blank"> 苹果联合创始人炮轰鲍尔默“一直都在吃老本”</a></li></div> <div class="col-md-6 col-xs-12"> <li class="articleAbout"><a href='/ItNews/34221' title='京东联席董事长赵国庆上市前夕离职' target="_blank"> 京东联席董事长赵国庆上市前夕离职</a></li></div> <div class="col-md-6 col-xs-12"> <li class="articleAbout"><a href='/ItNews/34165' title='魅族黄章惹怒芙蓉姐姐 将跨界推女神手机' target="_blank"> 魅族黄章惹怒芙蓉姐姐 将跨界推女神手机</a></li></div> <div class="col-md-6 col-xs-12"> <li class="articleAbout"><a href='/ItNews/34424' title='凑足了升级ios8所需要的5.7G空间，没料到“苹果”却变成“板砖”，iOS8还能一起愉快玩耍吗？' target="_blank"> 凑足了升级ios8所需要的5.7G空间，没料到“苹果”却变成“板砖”，iOS8还能一起愉快玩耍吗？</a></li></div> <div class="col-md-6 col-xs-12"> <li class="articleAbout"><a href='/ItNews/34457' title='黑狐病毒疯传播 电脑管家首推 专杀工具' target="_blank"> 黑狐病毒疯传播 电脑管家首推 专杀工具</a></li></div> <div class="col-md-6 col-xs-12"> <li class="articleAbout"><a href='/ItNews/34247' title='同为70前后人，马云为什么总是像外星人那么瘦' target="_blank"> 同为70前后人，马云为什么总是像外星人那么瘦</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/34460 title='2019双12阿里云老用户怎么参加拼团活动 老用户拼团方法' target="_blank"> 2019双12阿里云老用户怎么参加拼团活动 老用户拼团方法</a></li> <li class="articleAbout"><a href=/ItNews/34390 title='微信企业号必须搬走四座大山，否则只能铩羽而归！' target="_blank"> 微信企业号必须搬走四座大山，否则只能铩羽而归！</a></li> <li class="articleAbout"><a href=/ItNews/6863 title='搜房网遭遇做空 利益保送成“猎杀”焦点' target="_blank"> 搜房网遭遇做空 利益保送成“猎杀”焦点</a></li> <li class="articleAbout"><a href=/ItNews/34245 title='568倍PE，“长跑者”亚马逊的高估值之谜' target="_blank"> 568倍PE，“长跑者”亚马逊的高估值之谜</a></li> <li class="articleAbout"><a href=/ItNews/34350 title='中电信国际漫游费下调85% 世界杯上网28元/天' target="_blank"> 中电信国际漫游费下调85% 世界杯上网28元/天</a></li> <li class="articleAbout"><a href=/ItNews/34297 title='孙正义入股阿里往事还原：阿里巴巴并非软银首选' target="_blank"> 孙正义入股阿里往事还原：阿里巴巴并非软银首选</a></li> <li class="articleAbout"><a href=/ItNews/34107 title='“宽带中国”计划已正式上升为国家战略' target="_blank"> “宽带中国”计划已正式上升为国家战略</a></li> <li class="articleAbout"><a href=/ItNews/34413 title='京东终于想明白，这些年错过的财运，都藏在女人的时装下' target="_blank"> 京东终于想明白，这些年错过的财运，都藏在女人的时装下</a></li> <li class="articleAbout"><a href=/ItNews/34271 title='移动联通回应税率改革：短期内收入利润将大减' target="_blank"> 移动联通回应税率改革：短期内收入利润将大减</a></li> <li class="articleAbout"><a href=/ItNews/34169 title='史上最严电话实名制9月实行 三大难题待解' target="_blank"> 史上最严电话实名制9月实行 三大难题待解</a></li> <li class="articleAbout"><a href=/ItNews/34439 title='国内首个大数据系列指数今日发布' target="_blank"> 国内首个大数据系列指数今日发布</a></li> <li class="articleAbout"><a href=/ItNews/34380 title='酷派首抓4G时机大丰收，未来份额必降无疑' target="_blank"> 酷派首抓4G时机大丰收，未来份额必降无疑</a></li> <li class="articleAbout"><a href=/ItNews/34321 title='去看看外面的世界吧！别窝里斗了，中国在线旅游商们' target="_blank"> 去看看外面的世界吧！别窝里斗了，中国在线旅游商们</a></li> <li class="articleAbout"><a href=/ItNews/16156 title='网曝富士康“二连跳” 疑因推静音模式' target="_blank"> 网曝富士康“二连跳” 疑因推静音模式</a></li> <li class="articleAbout"><a href=/ItNews/34134 title='中移动推动感地带3G网聊卡 火拼微信沃卡' target="_blank"> 中移动推动感地带3G网聊卡 火拼微信沃卡</a></li> <li class="articleAbout"><a href=/ItNews/34301 title='广电总局回应美剧下架：不是所有信息可公开' target="_blank"> 广电总局回应美剧下架：不是所有信息可公开</a></li> <li class="articleAbout"><a href=/ItNews/34218 title='中国首台比特币ATM登陆上海 可购买不可兑换现钞' target="_blank"> 中国首台比特币ATM登陆上海 可购买不可兑换现钞</a></li> <li class="articleAbout"><a href=/ItNews/34089 title='苹果iWatch或使用量产液态金属 将取代玻璃' target="_blank"> 苹果iWatch或使用量产液态金属 将取代玻璃</a></li> <li class="articleAbout"><a href=/ItNews/34139 title='iOS7拖累iPad 5、iPad mini2发布 传十月份推出' target="_blank"> iOS7拖累iPad 5、iPad mini2发布 传十月份推出</a></li> <li class="articleAbout"><a href=/ItNews/34370 title='QQ空间与微信龟兔赛跑，商业生态链陷入死循环' target="_blank"> QQ空间与微信龟兔赛跑，商业生态链陷入死循环</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-2025 爱易网页 当前在线：493人 网站在1天3时47分1秒内访问总人数：185649人 当前 4.65% <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>
以下是程序代码 以下是程序代码