vbs代码表白_程序员教你一招不要脸的表白

受新冠疫情影响，今天的这个情人节显得很特殊：不能手牵手逛街了，不能去电影院了，不能去外面吃吃喝喝了，也不能放烟花了，就连kiss都要隔着口罩…这还是有幸在一起的情侣，对于那些“被迫”异地恋的情侣来说，只能“隔空示爱”了！

说到“隔空示爱”，这可是咱们程序员的强项，不信看看这个程序员发明的表白弹窗，女生同意才能关掉，是不是很不要脸？话不多说，先看效果图：

↓↓↓

↓↓↓

↓↓↓

↓↓↓

↓↓↓

↓↓↓

↓↓↓

如果点“否”，弹出

↓↓↓

↓↓↓

点“确定”返回

↓↓↓

点“是”弹出

↓↓↓

代码如下：

msgbox "我有一件事想跟你说",vbQuestion,"在吗？"

msgbox "自从第一天遇见你，我便对你难以忘怀了！"

msgbox "做我女朋友好吗？"

msgbox ("房产写你名字")

msgbox ("保大")

msgbox ("我妈会游泳")

dim j

do while j<1

Select Case msgbox("做我女朋友好吗？",68,"请郑重的回答我！")

Case 6 j=1

Case 7 msgbox("再给你一次机会")

end Select

loop

msgbox("我就知道你会同意的，哈哈哈哈！！")

使用方法：新建一个txt文档，复制以上代码，点击【文件】→【另存为】→【文件名：后缀改为 .vbs（示例：Play.vbs）】→【保存类型：所有文档】。鼠标双击即可执行。

注：代码中“ ”内的中文可任意修改为你喜欢的内容。

以上就是程序员发明的最不要脸的表白弹窗啦！当然，会敲代码的程序员的表白大招可不止这些哦！

病毒无情，人间有情！人生无常，要珍惜眼前人！爱她，就赶紧表白吧！最后祝所有看到这这里的朋友都能表白成功！，有情人终成眷属！

本文来自广州市花都宝比万像it培训学校官网www.bbwxjy.com，图片来自公开网络，转载请注明出处。