一个很简单却又让女神无法拒绝的表白VBS代码

　　过年啦！又是一年催婚相亲时，年后的情人节很快也会到来。如何向女神表白是一件非常让人头疼的事情。
　　今天给各位小伙伴分享一个很简单却又让女神无法拒绝的表白VBS代码。
　　第一步：
　　右键单击桌面任意空白位置，依次选择右键菜单中的＂新建＂→＂文本文档＂。
　　左键单击选中＂新建文本文档.txt＂，按下键盘上的F2，对其重命名。将文件名及文件扩展名修改为＂女神亲启.vbs＂。
　　请注意将计算机的文件扩展名设置为可见，否则上面的操作无效。
　　第二步：
　　右键单击＂女神亲启.vbs＂，选择右键菜单中的＂编辑＂。
　　将代码区域的代码粘贴至文档中，同时按下键盘上的＂Ctrl+S＂键保存文档。
　　关闭文档后，表白神器就可以使用了。接下来大家就会看到女神无奈的表情。
　　代码区域：
　　Msgbox ＂我有一件事想跟你说。＂,vbInformation,＂女神亲启＂
　　Msgbox ＂与君初相识，犹如故人归。天涯明月新，朝暮最相思。＂
　　Msgbox ＂做我女朋友好吗？＂,vbQuestion,＂女神亲启＂
　　Msgbox ＂房产写你名字！＂
　　Msgbox ＂保大！＂
　　Msgbox ＂我妈会游泳！＂
　　Dim i
　　Do while i<1
　　Select Case Msgbox (＂做我女朋友好吗？＂,68,＂女神请三思＂)
　　Case 6 i=1
　　Case 7 Msgbox ＂再给你一次机会＂
　　End Select
　　Loop
　　Msgbox ＂哈哈哈哈，我就知道你会同意的。＂
　　代码解析：
　　＂MsgBox＂为＂Message Box＂的缩写，MsgBox在对话框中显示一条消息，等待用户单击某个按钮，并返回一个整数，指示用户单击的按钮。MsgBox引号中的文字可以根据需要进行更改。
　　vbInformation是对话框图标的样式，显示＂通知消息＂图标。
　　vbQuestion是对话框图标的样式，显示＂询问信息＂图标。
　　Dim语句的格式为：Dim <变量名> [as 数据类型]；用来声明变量。
　　Do While…Loop语句：首先判断循环条件是否满足，如果条件不满足则不执行循环语句下的循环体；如果条件满足，即循环条件为True时，执行循环体。循环体内如果没有Exit Do语句强制退出循环，那么程序将回到循环开始处重复上面的步骤，直到循环条件不满足，或者循环体内有Exit Do强制退出语句。
　　Select Case判断语句：它的功能是根据不同的条件返回不同的值。
　　格式是：
　　Select Case 判断条件的表达式
　　Case 值1
　　操作1
　　Case 值2
　　操作2
　　……
　　Case Else
　　操作n
　　End Select
　　比如，当表达式等于值1，则执行操作1，等于值2，就会执行操作2，以此类推。
　　如果要同时定义按钮类型和图标样式，可直接将按钮类型的取值和图标样式的取值相加即可。例如：Select Case Msgbox(＂做我女朋友好吗？＂,68,＂请郑重的回答我！＂)。
　　68=64（vbInformation的值）+4（vbYesNo的值）。
　　vbYesNo是对话框中显示的按钮的类型与数目，显示＂是＂和＂否＂按钮。
　　知识改变命运，科技成就未来。今天的分享就到此结束，感谢您的支持。