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