这是那出了问题
msgbox "我有一件事想跟你说"msgbox ("自从第- 天见你,我便对你难以忘怀了! ")
msgbox ("我喜欢上了你")
msgbox ("希望你能接受我的爱意")
dim j
do whilej<1
Select Case msgbox(" 2021七夕我们一起过",68, "")
Case 6 j=1
Case 7 msgbox("你在考虑下呗")
end Select
loop
msgbox("爱你")
CreateObject("SAPI.SpVoice' ").Speak "我爱你"