程序员表白程序

1.https://blog.csdn.net/nodeman/article/details/45887037

2.

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

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

使用方法：新建一个txt文档，将上面的代码复制到txt，然后将文档的后缀名改成vbs。鼠标双击即可执行。
3.

https://blog.csdn.net/qq_41050129/article/details/82904449

4.vbs

Dim Msg1,Msg2,Msg3 '定义消息文本
Dim Response '定义返回对象
Dim Msg()
redim Msg(5)
Msg(0) = "做我女朋友好吗？"
Msg(1) = "房产证上写你名！"
Msg(2) = "听话"
Msg(3) = "我妈会游泳"
Msg(4) = "工资全上交"
Style = vbYesNo + vbInformation
Title = "小姐姐我要撩你"
for i=0 to 4
Response = MsgBox(Msg(i), Style, Title)
If Response = vbYes Then ' 用户选择[是].
MyString = "Yes" ' Preform some action.
Response = MsgBox("我就知道你会同意的，哈哈！",vbOKOnly ,Title)
exit for
Else ' 用户选择[否],
MyStrig = "No" ' Perform some action.
If i =4 Then
i=-1
End If
End If
Next