vbs如何写进度条_教你用怎么vbs写一个简易的计算器

为了让它更人性化，我们才采用变量的。

试想下，我们让用户设置运算符，然后让用户输入要运算的数据。这样是不是更人性化呢？

那么我们可以这样

dim a,b,c

'c保存用户的运算符

dim temp

'temp保存计算结果

do

a = inputbox("请输入数值1：","输入数值")

'获得第一个数值

if a = "" then

'如果变量a里面没有数据

msgbox "您没有输入数值",,"错误"

else

exit do

end if

loop

do

'开始循环

c = inputbox("请输入运算符(+ - * /)","输入运算符","+")

'获得运算符数据

if c = "+" or c = "-" or c = "*" or c = "/" then

'如果用户输入的运算符是+或者-或者*或者/

exit do

'退出循环

else

'否则

msgbox "运算符错误，未知的运算符"&c,,"错误"

'报错

end if

'if结尾处

loop

'循环结尾处

do

b = inputbox("请输入数值2：","输入数值")

'获得第一个数值

if b = "" then

'如果变量b里面没有数据

msgbox "您没有输入数值",,"错误"

else

exit do

end if

loop

select case c

case "+"

temp = int(a) + int(b)

'数值1 + 数值2

msgbox a&"+"&b&"="&temp,,"计算结果"

case "-"

temp = int(a) - int(b)

'数值1 - 数值2

msgbox a&"-"&b&"="&temp,,"计算结果"

case "*"

temp = int(a) * int(b)

'数值1 * 数值2

msgbox a&"*"&b&"="&temp,,"计算结果"

case "/"

temp = int(a) / int(b)

'数值1 * 数值2

msgbox a&"/"&b&"="&temp,,"计算结果"

end select

本文来自互联网用户投稿，文章观点仅代表作者本人，不代表本站立场，不承担相关法律责任。如若转载，请注明出处。 如若内容造成侵权/违法违规/事实不符，请点击【内容举报】进行投诉反馈！