vbs读取html td,一个用 VBScript 制作的计算器(附加完整源代码)

最新推荐文章于 2022-09-23 22:24:15 发布
最新推荐文章于 2022-09-23 22:24:15 发布
阅读量424 收藏 1
点赞数
文章标签： vbs读取html td
这篇博客展示了如何使用VBScript创建一个包含基本算术和逻辑运算的计算器。计算器功能包括加、减、乘、除、平方根、取反、逻辑运算符等，并实现了错误处理。用户可以通过点击按钮输入数字和运算符，最终得到计算结果。
摘要由CSDN通过智能技术生成

经过多次修改，完成了一个比较完整的计算器了。将VBScript常用的算术运算符和逻辑运算符全部加进来了。最后的效果图见下图。

a4c26d1e5885305701be709a3d33442f.png

计算器

'按键函数

Function Show(m)

If (Myform.Expression.Value = "" AND InStr(". + - * / \ ^ And OR

Mod XOR ",m)) Then

Myform.Expression.Value = ""

ElseIf (InStr(". + - * / \ ^ And OR Mod XOR

",Right(Myform.Expression.Value,1)) And InStr(". + - * / \ ^ And OR

Mod XOR ",m)) Then

ElseIf (m = ".") Then

If (InStr(". + - * / \ ^ And OR Mod XOR

",Right(Myform.Expression.Value,1))) Then

ElseIf ((InstrRev(Myform.Expression.Value,".")

> InstrRev(Myform.Expression.Value,"+")) And

(InstrRev(Myform.Expression.Value,".") >

InstrRev(Myform.Expression.Value,"-")) And

(InstrRev(Myform.Expression.Value,".") >

InstrRev(Myform.Expression.Value,"*")) And

(InstrRev(Myform.Expression.Value,".") >

InstrRev(Myform.Expression.Value,"/")) And

(InstrRev(Myform.Expression.Value,".") >

InstrRev(Myform.Expression.Value,"\")) And

(InstrRev(Myform.Expression.Value,".") >

InstrRev(Myform.Expression.Value,"^")) And

(InstrRev(Myform.Expression.Value,".") >

InstrRev(Myform.Expression.Value,"Mod")) And

(InstrRev(Myform.Expression.Value,".") >

InstrRev(Myform.Expression.Value,"And")) And

(InstrRev(Myform.Expression.Value,".") >

InstrRev(Myform.Expression.Value,"OR")) And

(InstrRev(Myform.Expression.Value,".") >

InstrRev(Myform.Expression.Value,"XOR"))) Then

Else

Myform.Expression.Value = Myform.Expression.Value + m

End If

Else

Myform.Expression.Value =

Myform.Expression.Value + m

END If

End Function

'计算平方根函数

Function Sqrt()

If (Myform.Expression.Value = "") Then

Myform.Expression.Value = ""

ElseIf (InStr(". + - * / \ ^ And OR Mod XOR

",Right(Myform.Expression.Value,1))) Then

Else

Myform.Expression.Value =

Sqr((Myform.Expression.Value))

End If

End Function

'取反函数

Function QU_Not()

If (Myform.Expression.Value = "") Then

Myform.Expression.Value = ""

ElseIf (InStr(". + - * / \ ^ And OR Mod XOR

",Right(Myform.Expression.Value,1))) Then

Else

Myform.Expression.Value =

Not((Myform.Expression.Value))

End If

End Function

'结果函数

Function Result()

On Error Resume Next '容错语句

If (Myform.Expression.Value = "") Then

Myform.Expression.Value =

""

ElseIf (InStr(". + - * / \ ^

And OR Mod XOR ",Right(Myform.Expression.Value,1))) Then

Else

Myform.Expression.Value =

(Myform.Expression.Value)

End If

End Function

'清除函数

Function Clean()

Myform.Expression.Value = ""

End Function

INPUT {

FONT-SIZE: 15px

}

text=#000000>

Action="">

Border="4">

计算器

Scope="Col">

Border="1">

Align="Center">

size="28" maxlength="28" >

align="center">

VALUE=" 7 " onClick="Show('7')" id="seven">

align="center">

VALUE=" 8 " onClick="Show('8')">

align="center">

VALUE=" 9 " onClick="Show('9')">

align="center">

style="border-style:none;color:red;" TYPE="button" VALUE=" / "

onClick="Show('/')">

align="center">

style="border-style:none;color:red;" TYPE="button" VALUE=" \ "

onClick="Show('\')">

align="center">

VALUE=" 4 " onClick="Show('4')">

align="center">

VALUE=" 5 " onClick="Show('5')">

align="center">

VALUE=" 6 " onClick="Show('6')">

align="center">

style="border-style:none;color:red;" TYPE="button" VALUE=" * "

onClick="Show('*')">

align="center">

style="border-style:none;color:red;" TYPE="button" VALUE="Mod"

onClick="Show(' Mod ')">

align="center">

VALUE=" 1 " onClick="Show('1')">

align="center">

VALUE=" 2 " onClick="Show('2')">

align="center">

VALUE=" 3 " onClick="Show('3')">

align="center">

style="border-style:none;color:red;" TYPE="button" VALUE=" - "

onClick="Show('-')">

align="center">

style="border-style:none;color:red;" TYPE="button" VALUE="And"

onClick="Show(' And ')">

align="center">

VALUE=" 0 " onClick="Show('0')">

align="center">

VALUE=" . " onClick="Show('.')">

align="center">

VALUE="Sqr" onClick="Sqrt()">

align="center">

style="border-style:none;color:red;" TYPE="button" VALUE=" + "

onClick="Show('+')">

align="center">

style="border-style:none;color:red;" TYPE="button" VALUE="OR "

onClick="Show(' OR ')">

align="center">

style="border-style:none;color:red;" TYPE="button" VALUE=" C "

onClick="clean()">

align="center">

style="border-style:none;color:red;" TYPE="button" VALUE=" = "

onClick="result()">

align="center">

VALUE="Not" onClick="QU_Not()">

align="center">

style="border-style:none;color:red;" TYPE="button" VALUE=" ^ "

onClick="Show('^')"> 

align="center">

style="border-style:none;color:red;" TYPE="button" VALUE="XOR"

onClick="Show(' XOR

')">

 
宁输输
关注
  • 0
    点赞
  • 踩
  • 1
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
vbs编写的简易计算器程序！
04-24
vbs编写的简易计算器程序！ msgbox"欢迎使用VBS计算机",,"欢迎使用" dim a,b,c,m a=inputbox("请输入第一个数字") b=inputbox("请输入第二个数字") c=inputbox("请输入计算符号") if c="+"then m=a+b if c="-" then m=a-b if c="*" then m=a*b if c="/" then m=a/b if a="" then msgbox"没有输入第一个数字",,"error" elseif b="" then msgbox"没有输入第二个数字",,"error" elseif c="" then msgbox"缺少运算符号",,"error" else msgbox a&c&b&"="&m,,"计算结果如下" end if 实现加减乘除功能！
网页常用小技巧(javascript)
热门推荐
hexzwj的专栏
08-07 1万+
1. oncontextmenu="window.event.returnValue=false" 将彻底屏蔽鼠标右键no 可用于Table2. 取消选取、防止复制3. onpaste="return false" 不准粘贴4. oncopy="return false;" oncut="return false;" 防止复制5. IE地址栏前换成自己的图标6. 可以
HTML开发技巧
habahhaha的博客
10-30 334
2010-01-13 17:51 64人阅读 评论 (1) 收藏 举报 1. oncontextmenu="window.event.returnValue=false" 将彻底屏蔽鼠标右键 <table border oncontextmenu=return(false)><td>n...
javascript 55种小技巧
It's my life
07-21 4135
1. oncontextmenu="window.event.returnValue=false" 将彻底屏蔽鼠标右键no 可用于Table2. 取消选取、防止复制3. onpaste="return false" 不准粘贴4. oncopy="return false;" oncut="return false;" 防止复制5. IE地址栏前换成自己的图标6. 可以在收
vbs 执行网页中的java_HTML页面中使用VBS和JS脚本直接运行Windows可执行程序
weixin_34669890的博客
02-16 616
在html中使用标签可以将可执行文件下载到本地，如下面这段代码是一个html页面代码，在页面中有一个链接，点击该链接可以下载路径为“HelloWorldProgram.exe”的程序到指定位置，然后在指定位置打开：测试页面打开文件但是，我想要找一个办法，在html中直接打开一个exe文件，查了一些资料，经过几次实验后，终于成功了！下面是我的方法：一、做一个exe文件我用C#写了一个exe文件，这是...
vbs.rar_VBS整人代码_vbs 恶搞_vbscript 恶搞_vbs整人_整人
09-14
5. **文件操作**：使用FileSystemObject，VBS可以读取、写入和修改文本文件，这在制作整人程序时可能用于创建或修改文件以达到整人效果。 6. **注册表操作**：虽然不建议，但VBS也可以通过WScript.Shell的Run方法和...
抖音vbs表白代码大全 抖音vbscript表白代码使用方法
08-27
2. 创建和编辑脚本：要创建vbs脚本，通常需要新建一个文本文件，输入vbs代码后保存为.vbs格式。文本文件后缀名更改是为了让Windows能够通过WScript.exe或CScript.exe解释器来执行该脚本。 3. WScript.Shell对象应用...
VBS代码计算器
06-25
用VBS脚本写的一个小小计算器程序 特点是支持VB函数，输入VB语句得出结果！ 例如—— "Hello, world!" = Hello, world! Abs(1-2) = 1 #2014/6/7# - Date() = 347 Time() = PM 12:48:31 发挥你的想象力吧！ 原本只想...
用VBS写的VBSCRIPT代码格式化工具VbsBeautifier
09-04
尽管使用C++这样的高性能语言编写一个代码格式化工具是完全可行的，但对于VBSCRIPT代码格式化这样相对简单的任务来说，使用VBS脚本来实现已经足够，而且VBS脚本与VBSCRIPT代码的亲缘关系也使得VBS脚本在处理VBSCRIPT...
vbs计算器，vbs计算机
05-12
vbs计算机，输入一个算式点确定即可，输入exit可退出
vbs打开计算器
12-04
vbs小程序，实现打开计算器.关闭计算器。为使用vbs关闭指定窗口提供思路
VBScript简易计算器
01-11
使用VBScript编写的简易计算器。在IE6-IE8测试有效。非IE内核浏览器可能无效。
vbs计算汉字笔画数的代码
05-25
vbs计算汉字笔画数的代码 vbs计算汉字笔画数 vb计算汉字笔画 方法很简单，将所有汉字统计起来放到数组，然后逐个检测。
vbscript html 在线,在HTML中使用VBScript可用三种方法
weixin_39930276的博客
06-01 342
慕娘9325324例子1：调用函数方式测试按钮事件Function test()msgbox "你还真点我？"End Function=====================================================例子2：事件触发方式VBSCRIPT与htmloption explicitdim a,b,csub btmshow_onclicka=abc.tex...
vbs计算器
最新发布
oocoolie123的博客
09-23 1078
vbs计算器
vbs获取html内容
weixin_33941350的博客
03-17 1645
Dim content,name,password,arr,pos msg1="请输入ip和端口号地址"&chr(13)&chr(10)&"如http://10.21.24.120:11182/newacademic/..."&chr(13)&chr(10)&"则输入10.21.24.120:11182" msg2="10.21.24.1...
vbs获取html内容,如何用VBScript获取当前网页的地址
weixin_36486007的博客
06-08 1055
1，设置或获取对象指定的文件名或路径。alert(window.location.pathname)2，设置或获取整个 URL 为字符串。alert(window.location.href);3，设置或获取与 URL 关联的端口号码。alert(window.location.port)4，设置或获取 URL 的协议部分。alert(window.location.protocol)5，设置或获...
vbs获取html dom值,VBS 中的dom 操作
weixin_36105745的博客
06-08 417
'创建DOM对象setobjDom=server.CreateObject("microsoft.xmldom")'取得xml数据'方法1objDom.load("c:/test.xml")'方法2objDom.load(server.mappath("test.xml"))'创建一个节点对象SetnewNode=objDom.CreateElement("people")'给节点赋值newN...
VBS读取Wincc归档变量程序源码解析
然后，代码创建了一个`ADODB.Connection`对象`conn`，并设置了连接字符串、游标位置，最后打开连接。`ADODB`是ActiveX Data Objects的简称，是微软提供的一套接口，用于在VBScript等环境中访问各种数据源。 为了...
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值