VBS表白小工具 用了这个妈妈再也不怕我没有女朋友了

**重点内容**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(“我就知道你会同意的，哈哈哈哈”)