爱易网
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 浏览次数:20213 次
以下是程序代码
<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
上一篇:狡猾的按钮特效
下一篇:测试你的鼠标点击速度
免责声明:
本文仅代表作者个人观点,与爱易网无关。其原创性以及文中陈述文字和内容未经本站证实,对本文以及其中全部或者部分内容、文字的真实性、完整性、及时性本站不作任何保证或承诺,请读者仅作参考,并请自行核实相关内容。
相关资料
更多>
成本效益全兼顾 混合云市场前景显现
十亿美元的告别礼:三星为何要大举重组?
小米打响手机价格战 为米3铺路或另有所图
Kindle入华遭遇国内厂商“围剿 ” 电信也参战
HTC与苹果三星距离扩展 C2B形式成新武器
任正非:喜马拉雅山的水为什么不能流入亚马逊河?
途牛开盘价9美元 与发行价持平
诺基亚因充电器问题暂停销售Lumia 2520平板电脑
团购网站存活率仅18.6% 剩余缺乏千家
推荐阅读
更多>
唯品会股价飙升 引天猫当当京东进军闪购
小米发明的“低价抢购”模式还能管用多久?
靠价格战赚取资费套餐利润差,虚拟运营商必死无疑
微软觊觎移动互联市场:手机未出渠道先行
流浪汉高考状元终于找到工作:月薪3000做程序员很满意
快递企业征收“份子钱” 成全了谁 苦了谁?
苹果CEO抱歉解读:是战略而非“屈服”
搜狐前副总编何毅加盟乐视 任车联网公司CEO
英特尔涉嫌垄断 欧盟或开出史上最高罚单
微信收费形式三选一 腾讯或变身运营商
手游市场乱象丛生 受资本热捧野蛮成长
200美元英特尔Android笔记本行将到来
刘强东:京东上市融资用于开拓三至六线城市
HTC以品牌营销突围 专家建议改变经营思路
牟贵先挂帅 国美在线“价钱战”昔日开打
锐迪科将以9.25美元/ADS价钱出售835万份ADS
网络视频的几大趋势将成视频玩家躲不开的发力点
据消息传百度将要控股携程 整合去哪儿
继续涨:微博IPO第二交易日 收盘大涨11.71%
阿里巴巴IPO难掩的四个现实问题:天猫销售额成谜、淘宝拖后腿、营收迅猛其他不行和投资者未必买账