求一个VB小程序的代码

更新时间2019-07-03 04:47:22

Private Sub Form_Click()

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

End Sub

这段程序在VB中运行没有任何问题的