用VBS语言实现的网页计算器源代码
来源：asp之家 时间：2007-12-26 17:09:00
用VBS语言实现的一个简单网页计算器，功能：可以进行加法、减法、乘法、除法、取反、开根号、及指数运算。虽然简单但是比起windows xp自带的计算器功能还是更强的。
截图如下：
程序作者：李笑天 来自：http://bbs.blueidea.com/thread-2802869-1-1.html
vbs代码如下：
<script language=vbscript>
dim num1,op
sub Number(num)
if TxtValue.value="0" then
if num="." then
if instr(TxtValue.value,".") then
else
TxtValue.value=TxtValue.value & num
end if
else
TxtValue.value=num
end if
else
if num="." then
if instr(TxtValue.value,".") then
else
TxtValue.value=TxtValue.value & num
end if
else
TxtValue.value=TxtValue.value & num
end if
end if
end sub
sub opType(opT)
num1=cDBL(TxtValue.value)
op=opT
TxtValue.value=""
end sub
sub equ()
select case op
case "+"
txtvalue.value=cDBL(TxtValue.value) + num1
case "-"
txtvalue.value=cstr(num1 - cDBL(TxtValue.value) )
case "*"
txtvalue.value=cDBL(TxtValue.value) * num1
case "/"
txtvalue.value=cstr(num1 / cDBL(TxtValue.value) )
case "z"
TxtValue.value=cstr(num1 ^ cDbl(TxtValue.value))
end select
if left(txtvalue.value,1)="." then txtvalue.value= "0" & txtvalue.value
num1=cDBL(TxtValue.value)
end sub
sub QL()
num1=0
TxtValue.value="0"
end sub
sub QF()
TxtValue.value= cstr(-cDbl(TxtValue.value))
end sub
sub GH()
TxtValue.value= sqr(cDbl(TxtValue.value))
end sub
</script>
网页计算器演示：
标签：计算器,VBS
0
投稿猜你喜欢
chatGPT本地部署、运行和接口调用的详细步骤
2023-08-31 03:46:31
MySQL性能优化之如何高效正确的使用索引
2024-01-25 11:51:32
SQL Data Services将成为云中完整的数据库
2009-03-25 12:28:00
python绘制散点图和折线图的方法
2021-08-24 04:27:56
python实现录屏功能(亲测好用)
2022-01-12 19:54:34
mysql二进制日志文件恢复数据库
2024-01-16 10:55:05
Python内置函数 next的具体使用方法
2023-09-30 18:42:28
CSS的渲染效率：书写高效的CSS
2008-11-13 16:55:00
微信小程序开发之获取用户手机号码(php接口解密)
2023-11-15 03:34:59
mysql添加索引方法详解(Navicat可视化加索引与sql语句加索引)
2024-01-24 22:32:37
浅谈tensorflow模型保存为pb的各种姿势
2023-02-01 21:19:05
一步步教你利用webpack如何搭一个vue脚手架（超详细讲解和注释）
2023-07-02 17:00:47
Python while true实现爬虫定时任务
2021-02-10 13:35:30
快速查找Python安装路径方法
2023-02-24 00:11:23
Python Requests模拟登录实现图书馆座位自动预约
2022-01-31 00:25:46
Python 函数list&read&seek详解
2022-02-14 03:04:21
Python中文分词实现方法(安装pymmseg)
2023-12-06 02:43:41
用JavaScript页面不刷新时全选择，全删除（GridView）
2024-05-11 09:17:20
Python的Django框架中设置日期和字段可选的方法
2023-03-11 11:41:51
python实现QQ空间自动点赞功能
2022-06-27 14:23:54