入门表白小程序

前段时间在网上很火的小程序其实很简单就可以完成了，我因为自己的兴趣就去研究了一下，现在给大家分享两个特别简单的vbs小程序。
这个小程序我们在记事本中进行编写就可以，新建一个记事本然后把其后缀名改为vbs。然后在里面进行编写就可以了。
1.
msgbox就相于一个输出语句，所以括号里面的内容可以随意更改。
而接受者只能点确定，因为这个是关不掉的，除非去任务管理器把这个进程关掉。

msgbox("做我女朋友好吗？")

msgbox("房产证上写你名字")

msgbox("保大")

msgbox("我妈会游泳")

请看效果



2.
这里增加了一个do loop的循环，括号引号里的内容也可以随意更改。

msgbox "做我男朋友好吗",vbQuestion,"在吗"
msgbox ("我会爱你一辈子")
msgbox ("想和你永远在一起")
msgbox ("快点同意")
dim j

do while j<1
Select Case msgbox("做我男朋友好吗",68,"请郑重的回答我")
Case 6 j=1
Case 7 msgbox("再给你一次机会")
end Select
loop

效果如下





3.
在这里我只是介绍了一些最简单的代码，但是这也可以体现出我们程序员的浪漫了。快用这些代码向你们的男女朋友表白吧。
注意
还有一些恶搞的vbs小程序，我建议大家可以在虚拟机上进行尝试，尤其是死循环的，即使你删了那个文件，那个对话框依然会存在。所以建议大家去虚拟机上进行尝试。