清华大佬耗费三个月吐血整理的几百G的资源，免费分享！....>>>

dim s 
dim x
dim k 
s=Clng(inputbox("请输入第一个数","运算器"))
x=inputbox("请输入运算符:1加，2减，3乘，4除","运算器")
k=Clng(inputbox("请输入第一个数","运算器"))
if x=1 then
s=s+k
elseif x=2 then
s=s-k
elseif x=3 then
s=s*k
elseif x=4 then
s=s/k
end if
msgbox s