vbs表白代碼怎么寫(xiě)

本文小編為大家詳細(xì)介紹“vbs表白代碼怎么寫(xiě)”，內(nèi)容詳細(xì)，步驟清晰，細(xì)節(jié)處理妥當(dāng)，希望這篇“vbs表白代碼怎么寫(xiě)”文章能幫助大家解決疑惑，下面跟著小編的思路慢慢深入，一起來(lái)學(xué)習(xí)新知識(shí)吧。

1，右鍵->新建文本文件

2，右鍵->編輯

3，粘貼下面代碼

MsgBox "            十年相遇"
MsgBox "            百年回眸"
MsgBox "          千年同船渡"
MsgBox "       我愿以萬(wàn)年的等待"
MsgBox "          百世的輪回"
MsgBox "       換你今朝一世情緣"
MsgBox "              可否"
dim a(5)
a(0)="    天大，地大，女友最大"
a(1)="          工資上交"
a(2)="           房寫(xiě)你名"
a(3)="          幫清購(gòu)物車"
a(4)="   保大"
a(5)="        你就答應(yīng)我把^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

3，文件另存為（注意格式為ANSI）

3，運(yùn)行

讀到這里，這篇“vbs表白代碼怎么寫(xiě)”文章已經(jīng)介紹完畢，想要掌握這篇文章的知識(shí)點(diǎn)還需要大家自己動(dòng)手實(shí)踐使用過(guò)才能領(lǐng)會(huì)，如果想了解更多相關(guān)內(nèi)容的文章，歡迎關(guān)注億速云行業(yè)資訊頻道。