爱易网
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 浏览次数：20188 次
以下是程序代码
<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/34087' title='SAP高层调整：联席CEO孟鼎铭成唯一掌舵人' target="_blank"> SAP高层调整：联席CEO孟鼎铭成唯一掌舵人</a></li></div> <div class="col-md-6 col-xs-12"> <li class="articleAbout"><a href='/ItNews/6896' title='苹果售后生态链乱象：供需失衡价钱不一' target="_blank"> 苹果售后生态链乱象：供需失衡价钱不一</a></li></div> <div class="col-md-6 col-xs-12"> <li class="articleAbout"><a href='/ItNews/34343' title='易迅大众点评缩水执行“七天后悔权”被约谈' target="_blank"> 易迅大众点评缩水执行“七天后悔权”被约谈</a></li></div> <div class="col-md-6 col-xs-12"> <li class="articleAbout"><a href='/ItNews/34149' title='地图导航骤起杀机 百度高德重新定义商业模式' target="_blank"> 地图导航骤起杀机 百度高德重新定义商业模式</a></li></div> <div class="col-md-6 col-xs-12"> <li class="articleAbout"><a href='/ItNews/16158' title='iSuppli：上网本将于2015年退出市场' target="_blank"> iSuppli：上网本将于2015年退出市场</a></li></div> <div class="col-md-6 col-xs-12"> <li class="articleAbout"><a href='/ItNews/34361' title='英特尔涉嫌垄断 欧盟或开出史上最高罚单' target="_blank"> 英特尔涉嫌垄断 欧盟或开出史上最高罚单</a></li></div> <div class="col-md-6 col-xs-12"> <li class="articleAbout"><a href='/ItNews/34207' title='可靠消息称微型针孔偷拍设备拟全面禁止' target="_blank"> 可靠消息称微型针孔偷拍设备拟全面禁止</a></li></div> <div class="col-md-6 col-xs-12"> <li class="articleAbout"><a href='/ItNews/34318' title='在线音乐出现“小米公司”不是没有可能' target="_blank"> 在线音乐出现“小米公司”不是没有可能</a></li></div> <div class="col-md-6 col-xs-12"> <li class="articleAbout"><a href='/ItNews/34275' title='阿里巴巴450亿勾画“现代服务业”藏宝图' target="_blank"> 阿里巴巴450亿勾画“现代服务业”藏宝图</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/hostTest15day.png" alt="香港全能空间 免费试用15天香港高速云虚拟主机PHP/ASP/NET送MSSQL和MYSQL" /></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/34320 title='想玩P2P？几个您必须知道的潜规则' target="_blank"> 想玩P2P？几个您必须知道的潜规则</a></li> <li class="articleAbout"><a href=/ItNews/34101 title='火狐手机发展前路：或被运营商绑架' target="_blank"> 火狐手机发展前路：或被运营商绑架</a></li> <li class="articleAbout"><a href=/ItNews/34417 title='迅雷高管解读财报：收购快盘可快速融入小米' target="_blank"> 迅雷高管解读财报：收购快盘可快速融入小米</a></li> <li class="articleAbout"><a href=/ItNews/34326 title='“论文查重”网店一月收入竟过百万' target="_blank"> “论文查重”网店一月收入竟过百万</a></li> <li class="articleAbout"><a href=/ItNews/34397 title='靠价格战赚取资费套餐利润差，虚拟运营商必死无疑' target="_blank"> 靠价格战赚取资费套餐利润差，虚拟运营商必死无疑</a></li> <li class="articleAbout"><a href=/ItNews/16162 title='优酷土豆携手新浪微博 谋攻移动视频失地' target="_blank"> 优酷土豆携手新浪微博 谋攻移动视频失地</a></li> <li class="articleAbout"><a href=/ItNews/34422 title='中移动五大基地将整改成公司：被指易滋生腐败' target="_blank"> 中移动五大基地将整改成公司：被指易滋生腐败</a></li> <li class="articleAbout"><a href=/ItNews/10846 title='机器人进一步取代人类：将进军白领任务' target="_blank"> 机器人进一步取代人类：将进军白领任务</a></li> <li class="articleAbout"><a href=/ItNews/10839 title='携程艺龙联手死磕同程 价钱烽烟蔓延至机票' target="_blank"> 携程艺龙联手死磕同程 价钱烽烟蔓延至机票</a></li> <li class="articleAbout"><a href=/ItNews/10826 title='如家撤离同程内情：祸起反水OTA“联盟”？' target="_blank"> 如家撤离同程内情：祸起反水OTA“联盟”？</a></li> <li class="articleAbout"><a href=/ItNews/34416 title='蓝宝石PK大猩猩玻璃：作为屏幕谁更有优势？' target="_blank"> 蓝宝石PK大猩猩玻璃：作为屏幕谁更有优势？</a></li> <li class="articleAbout"><a href=/ItNews/34220 title='虚拟运营商流量不清零吸引用户 盈利待明' target="_blank"> 虚拟运营商流量不清零吸引用户 盈利待明</a></li> <li class="articleAbout"><a href=/ItNews/34365 title='特斯拉技术专利开放，要革自己的命？' target="_blank"> 特斯拉技术专利开放，要革自己的命？</a></li> <li class="articleAbout"><a href=/ItNews/34331 title='首家国有独资P2P平台上线 或预示政策日渐明朗' target="_blank"> 首家国有独资P2P平台上线 或预示政策日渐明朗</a></li> <li class="articleAbout"><a href=/ItNews/34162 title='Skype周年：与微软联姻到底有没有未来？' target="_blank"> Skype周年：与微软联姻到底有没有未来？</a></li> <li class="articleAbout"><a href=/ItNews/34152 title='谷歌安卓全球副总裁为何跳槽中国企业小米？' target="_blank"> 谷歌安卓全球副总裁为何跳槽中国企业小米？</a></li> <li class="articleAbout"><a href=/ItNews/34197 title='苹果已经允许开发者提交64位应用程序' target="_blank"> 苹果已经允许开发者提交64位应用程序</a></li> <li class="articleAbout"><a href=/ItNews/10838 title='打车App就是下一个团购骗局！？' target="_blank"> 打车App就是下一个团购骗局！？</a></li> <li class="articleAbout"><a href=/ItNews/6894 title='微软提示XP只剩365天寿命：用户被绑架？' target="_blank"> 微软提示XP只剩365天寿命：用户被绑架？</a></li> <li class="articleAbout"><a href=/ItNews/34398 title='北京电信推“0月租卡”，同网通话免费' target="_blank"> 北京电信推“0月租卡”，同网通话免费</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 爱易网页 当前在线：1080人 网站在22时20分0秒内访问总人数：268826人 2秒前 32.80% <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>
以下是程序代码 以下是程序代码