关于诚信做生意的句子:一个vbs的问题

来源:百度文库 编辑:杭州交通信息网 时间:2024/03/29 19:35:11
我是一个才学vbs的人
我想写一个 关于商场记录数据的东西 但是我不知道我写的错在哪里了 请大家帮我看下
dim sun pass
sun=0
const pass="z"
do
if pass=sun then
msgbox(sun)
exit do
end if
else
sun=sun+int(inputbox("输入交易额"))
end if
loop

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

......
一颗红心,两手准备