vbs msgbox 代码

2024-12-15 10:35:31
推荐回答(1个)
回答1:

把c=inputbox("悄然代号","提示","是")及以后的代码改为:
dim i
do
c=inputbox("悄然代号","提示","是")
select case c
case 1
i = msgbox("你是嘻嘻",1+32,"")
case 2
msgbox "你是嘻嘻",1+32,""
end select
loop while i = 2