consttitle="爱情测试"loop缺少do抖音照抄的哪里不对
onsttitle = "爱情测试"
const yourname = "刘亦菲"
const question = "你最喜欢的人是谁？请在下面的方框中输入他（她）的名字。"
const info ="你在说谎！不要逃避，实话实说。"
const scend ="你说出了你的心扉，那就向他（她）表白吧。"
dim youranswer
do
youranswer =inputbox(question,tie)
if youranswer <> yourname then
msgbox info,vbinformation+vbokonly,title
loop until youranswer =yourname
msgbox scend,vbinformation
+vbokonly,title
1.某音上的90%以上都不能直接运行的，你首先要理解程序的意思才能抄的（万一有破坏性呢）
2。不排除你抄漏或抄错，程序少一个标点都是不能运行的
3。这类程序纯无聊才用，没有技术含量，学了也没有什么意义，不建议在上面浪费时间
以下是改好可用的
onsttitle = "爱情测试"
const yourname = "刘亦菲"
const question = "你最喜欢的人是谁？请在下面的方框中输入他（她）的名字。"
const info ="你在说谎！不要逃避，实话实说。"
const scend ="你说出了你的心扉，那就向他（她）表白吧。"
dim youranswer
do
youranswer =inputbox(question,tie)
if youranswer <> yourname then
msgbox info,vbinformation+vbokonly,title
end if
loop until youranswer =yourname
msgbox scend,vbinformation+vbokonly,title