无法拒绝的表白小工具

更新时间:2020-7-29 09:07:29 附件大小: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即可。

成品下方下载

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

同类推荐
作者信息

社会大豪哥

专注分享资源
投稿次数 总访问量 称号
129 629 黑色剑士
随机推荐

顶部