猫史档案馆


【vbs】vbs教程(八)使用密码加密计算器

用户:********************查看:0 回复:2 评论:0 创建时间:2020-05-01T17:38:14


hello,我是乌力,我们又见面啦~~~~~

ps.本教程适合学过python的童鞋服用

上一次,我们使用了do loop循环做了一个密码小程序

对,我们今天就要用到上次的密码来优化我们之前做的计算器!

那么废话不多说,我们先把计算器的代码拉上来

msgbox "欢迎使用vbs计算器"
dim a,b,c,m
a=int(inputbox("请输入第一个数字"))
b=inputbox("请输入计算符号")
c=int(inputbox("请输入第二个数字"))
if b="+" then m=a+c
if b="-" then m=a-c
if b="*" then m=a*c
if b="/" then m=a/c
msgbox a&b&c &"=" &m

我们再把密码的代码拉上来

dim i
do
i=inputbox("请输入密码,不然关不掉我")
if i="123456" then

msgbox"正确"

'a

exit do

else
msgbox"错误"

end if
loop

我们现在要将计算器加进去

那么我们应该把它加到哪呢?

答案是在'a处

因为这个地方就是因为正确而结束循环的地方

我们现在再把它们合起来

dim i
do
i=inputbox("请输入密码,不然关不掉我")
if i="123456" then

msgbox"正确"

msgbox "欢迎使用vbs计算器"
dim a,b,c,m
a=int(inputbox("请输入第一个数字"))
b=inputbox("请输入计算符号")
c=int(inputbox("请输入第二个数字"))
if b="+" then m=a+c
if b="-" then m=a-c
if b="*" then m=a*c
if b="/" then m=a/c
msgbox a&b&c &"=" &m

exit do

 

else
msgbox"错误"

end if
loop

那么大家快动动自己的小手试试吧emotion_编程猫_加油

有什么不懂的可以QQ私信乌力哦

QQ:1372449351

我是乌力,我们有缘再见~~~~~喵~~~~~

 


回复

上一页1 页 / 共 1下一页
********************

顶一顶

点赞0


评论


LAG的1048576一枚LAG的1048576一枚

dddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddd的点点滴滴

点赞0


评论