dim sun
sun=0
const pass="z"
do
if sun=pass then
msgbox(sun)
exit do
else
sun=sun+cint(inputbox("输入交易额"))
end if
loop
dim sun pass
sun=0
pass="z"
do
if pass=sun then
msgbox(sun)
exit do
end if
else
sun=sun+int(inputbox("输入交易额"))
end if
loop
......
一颗红心,两手准备