抖音很火的vbs表白代码(简单实用!)

MsgBox "十年相遇"
MsgBox "百年回眸"
MsgBox " 千年同船渡"
MsgBox " 我愿以万年的等待"
MsgBox " 百世的轮回"
MsgBox " 换你今朝一世情缘"
MsgBox "  可否"
dim a(5)
a(0)=" 天大，地大，女友最大"
a(1)=" 工资上交"
a(2)="  房写你名"
a(3)=" 帮清购物车"
a(4)="保大"
a(5)="  你就答应我把^o^"
Dim j
Do
Select Case msgbox ("姑娘，做我女朋友吧",4)
Case 6 
MsgBox " ---- ----"+chr(10)+" /\  /  \"+Chr(10)+"  / \/ \"+Chr(10)+"  /  I \ "+Chr(10)+"\  LOVE /"+Chr(10)+"\U /"+Chr(10)+"  \ xx/" +Chr(10)+"  \ xx/ "+Chr(10)+" \  xx/"+Chr(10)+" \  /"+Chr(10)+"\/",4096 ," 此心似我心"
MsgBox "you are my girlfriend，" + Chr(13)+" from this day until to my last days.",,""
exit do
Case 7
msgbox a(i)
i=i+1
if i >= 6 then
i = 0
end if
end Select
Loop