无法拒绝的表白小工具

更新时间:2020-7-29 04:07:28 附件大小:585.0 B 语言种类:简体中文 所属分类: 精品软件 运行平台:Windows 投稿作者:小嘀咕
简要介绍

无法拒绝的表白小工具

这是代码:

代表如下:

text()  

function text()  

dim a  

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

if a="愿意"then  

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

else  

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

text()  

end if  

end function  

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

成品下方下载

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


同类推荐
作者信息

小嘀咕

专注资源分享
投稿次数 总访问量 称号
4722 1369195
随机推荐

顶部