VBS学习笔记:简单程序(2)

最新推荐文章于 2024-08-18 23:19:45 发布

PLC工控@俊

最新推荐文章于 2024-08-18 23:19:45 发布

阅读量93

点赞数

分类专栏： VBS脚本文章标签：经验分享 Powered by 金山文档

本文链接：https://blog.csdn.net/apple12345q/article/details/128605736

版权

2 篇文章 0 订阅

订阅专栏

该文展示了一系列VBScript的基础用法，包括从用户获取输入（inputbox），进行条件判断（if...then...else），数值计算（乘法、除法、模运算），显示消息（msgbox），以及简单的错误处理。此外，还涉及了字符串操作和循环结构，如密码验证和选择结构（selectcase）。

摘要由CSDN通过智能技术生成

dim s,r
const pi=3.14
r=inputbox("请输入圆的半径")
s=pi*r*r
msgbox s

dim a,b
a=inputbox("请输入一个大于60的数字")
b=inputbox("请输入一个大于100的数字")
a=int(a)
b=int(b)
if a>60 and b>100 then
msgbox "合格"
else
msgbox "不合格"
end if

dim a
a=inputbox("请输入一个大于60的数字")
a=int(a)
if a>60 then
msgbox "合格"
else if a=60 then
msgbox "刚好60"
else
msgbox "不合格"
end if
end if

dim a,b,c,d
a=inputbox("请输入a值")
b=inputbox("请输入b值")
c=inputbox("请输入c值")
d=a*3+b*3
c=int(c)
if c=d then
msgbox "right"
else
msgbox "error"
end if

dim a,b
a=18
b=16
if a>b then
msgbox "a>b"
end if

dim a
a=inputbox("请输入数字")
a=int(a)
select case a
case 1
msgbox "one"
case 2
msgbox "two"
case 3
msgbox "three"
case else
msgbox "error"
end select

dim passwd
const pass="123456"
do 
passwd=inputbox("请输入密码")
if passwd=pass then
msgbox "密码输入成功"
exit do
end if
loop

dim a 
a=21 mod 5
msgbox a

dim b
b=21/5
msgbox b

dim c
c=2^2
msgbox c

dim d,e,f
d="3"
e="4"
f=d+e
msgbox f

dim g
g=3.14
msgbox int(g)

dim a,b,s
a=20
b=10
s=a/b+b
msgbox s

关注

专栏目录