Question

会vbs的各位来帮我一下，以下是我的一个程序，但是他总是说缺少“loop”，我明明加了loop，帮修改下哦

dim jsq,yscs,a,b,c,d,e,f,g,h,i,j,k,l,m,n,o
jsq=0
yscs=inputbox("请输入需要运算的次数")
do while jsq<yscs
a=inputbox("请输入第一个数")
c=inputbox("请输入运算方式")
b=inputbox("请输入第二个数")
d=a*b
e=a/b
f=(int(a))+(int(b))
g=a-b
h=a mod b
i=a^b
j=cdbl(a)+cdbl(b)
k=cdbl(a)-cdbl(b)
l=cdbl(a)/cdbl(b)
m=cdbl(a)*cdbl(b)
n=cdbl(a)^cdbl(b)
if c="乘" then msgbox(d)
o=inputbox("是否继续？如想继续直接按回车键，不想继续输入任意字符，再按回车。")
if o="" then jsq=jsq+1
else
exit do
if c="除以" then msgbox(e)
o=inputbox("是否继续？如想继续直接按回车键，不想继续输入任意字符，再按回车。")
if o="" then jsq=jsq+1
else
exit do
if c="加" then msgbox(f)
o=inputbox("是否继续？如想继续直接按回车键，不想继续输入任意字符，再按回车。")
if o="" then jsq=jsq+1
else
exit do
if c="减" then msgbox(g)
o=inputbox("是否继续？如想继续直接按回车键，不想继续输入任意字符，再按回车。")
if o="" then jsq=jsq+1
else
exit do
if c="求余数" then msgbox(h)
o=inputbox("是否继续？如想继续直接按回车键，不想继续输入任意字符，再按回车。")
if o="" then jsq=jsq+1
else
exit do
if c="平方" then msgbox(i)
o=inputbox("是否继续？如想继续直接按回车键，不想继续输入任意字符，再按回车。")
if o="" then jsq=jsq+1
else
exit do
if c="加（小数）" then msgbox(j)
o=inputbox("是否继续？如想继续直接按回车键，不想继续输入任意字符，再按回车。")
if o="" then jsq=jsq+1
else
exit do
if c="减（小数）" then msgbox(k)
o=inputbox("是否继续？如想继续直接按回车键，不想继续输入任意字符，再按回车。")
if o="" then jsq=jsq+1
else
exit do
if c="除以（小数）" then msgbox(l)
o=inputbox("是否继续？如想继续直接按回车键，不想继续输入任意字符，再按回车。")
if o="" then jsq=jsq+1
else
exit do
if c="乘（小数）" then msgbox(m)
o=inputbox("是否继续？如想继续直接按回车键，不想继续输入任意字符，再按回车。")
if o="" then jsq=jsq+1
else
exit do
if c="平方（小数）" then msgbox(n)
o=inputbox("是否继续？如想继续直接按回车键，不想继续输入任意字符，再按回车。")
if o="" then jsq=jsq+1
else
exit do
end if
loop
这是我写的，由于我是菜鸟啦，多多关照，指导一下那里有错误。
这个程序就是自己输入运算方式进行运算，同时还要用计数器，等计数器达到需要使用的次数就自动关闭，求帮忙，急！

Answer 1

你的每个exit do 的下面少了一个 end if。另外象这样的典型的多分支选择语句最好用select case ...end select 语句就简练多了。比如
dim jsq,yscs,a,b,c,d,e,f,g,h,i,j,k,l,m,n,o
jsq=0
yscs=inputbox("请输入需要运算的次数")
do while jsq<yscs
a=inputbox("请输入第一个数")
c=inputbox("请输入运算方式")
b=inputbox("请输入第二个数")

select case c
case "乘"
msgbox(a*b)
case "除以"
msgbox(cdbl(a)/cdbl(b))
rem 这里加入其它的 case
end select
o=inputbox("是否继续？如想继续直接按回车键，不想继续输入任意字符，再按回车。")
if o="" then
jsq=jsq+1
else
exit do
end if

loop

Answer 2

少了很多end if

Answer 3

a