我想做计算机，但是要么出错要么没有按照要求在走，可能我这里面满满的错误

，高手轻喷，

dim A,B,C,D,e
e=inputbox("输入您的计算法则")
while a<>"1""2""3""4"
wend
e=inputbox("玩呢啊？A=乘法，B=除法，C=减法，D=加法，别瞎摁蹈.")
if e=("A") then
do
dim m,n
m=inputbox("")
n=inputbox("")
s=m*n
msgbox(s)
loop
end if
if e=("B") then
do
m=inputbox("")
n=inputbox("")
s=m/n
msgbox(s)
loop
end if
if e=("C") then
do
m=inputbox("")
n=inputbox("")
s=m-n
msgbox(s)
loop
end if
if e=("D") then
do
m=inputbox("")
n=inputbox("")
s=m+n
msgbox(s)
loop
end if