这是代码：

代表如下：

text()  

function text()  

dim a  

a=inputbox("惟愿以后的日子，我们在时光的洪流中不会走散，惟愿你在我的心里，也存在在我的生活里，我想跟你牵手到老，你愿意吗?")  

if a="愿意"then  

Msgbox"嘻嘻，我就知道你愿意，往后余生，心中有你!",0,"恭喜"  

else  

Msgbox"进来了就不要走咯，迟早都是我的！",0,"再来一次!"  

text()  

end if  

end function  

常见问题：乱码。解决方式：在另存我里见UTF-8改为ANSI即可。

成品下方下载

解压出来发给小姐姐，让她拒绝不了