過年啦！又是一年催婚相親時，年后的情人節很快也會到來。如何向女神表白是一件非常讓人頭疼的事情。

今天給各位小伙伴分享一個很簡單卻又讓女神無法拒絕的表白VBS代碼。

右鍵單擊桌面任意空白位置，依次選擇右鍵菜單中的“新建”→“文本文檔”。

左鍵單擊選中“新建文本文檔.txt”，按下鍵盤上的F2，對其重命名。將文件名及文件擴展名修改為“女神親啟.vbs”。

請注意將計算機的文件擴展名設置為可見，否則上面的操作無效。

右鍵單擊“女神親啟.vbs”，選擇右鍵菜單中的“編輯”。

將代碼區域的代碼粘貼至文檔中，同時按下鍵盤上的“Ctrl+S”鍵保存文檔。

關閉文檔后，表白神器就可以使用了。接下來大家就會看到女神無奈的表情。

代碼區域：

Msgbox "我有一件事想跟你說。",vbInformation,"女神親啟"

Msgbox "與君初相識，猶如故人歸。天涯明月新，朝暮最相思。"

Msgbox "做我女朋友好嗎？",vbQuestion,"女神親啟"

Msgbox "房產寫你名字！"

Msgbox "保大！"

Msgbox "我媽會游泳！"

Dim i

Do while i<1

Select Case Msgbox ("做我女朋友好嗎？",68,"女神請三思")

Case 6 i=1

Case 7 Msgbox "再給你一次機會"

End Select

Loop

Msgbox "哈哈哈哈，我就知道你會同意的。"

代碼解析：

“MsgBox”為“Message Box”的縮寫，MsgBox在對話框中顯示一條消息，等待用戶單擊某個按鈕，并返回一個整數，指示用戶單擊的按鈕。MsgBox引號中的文字可以根據需要進行更改。

vbInformation是對話框圖標的樣式，顯示“通知消息”圖標。

vbQuestion是對話框圖標的樣式，顯示“詢問信息”圖標。

Dim語句的格式為：Dim <變量名> [as 數據類型]；用來聲明變量。

Do While…Loop語句：首先判斷循環條件是否滿足，如果條件不滿足則不執行循環語句下的循環體；如果條件滿足，即循環條件為True時，執行循環體。循環體內如果沒有Exit Do語句強制退出循環，那么程序將回到循環開始處重復上面的步驟，直到循環條件不滿足，或者循環體內有Exit Do強制退出語句。

Select Case判斷語句：它的功能是根據不同的條件返回不同的值。

格式是：

Select Case 判斷條件的表達式

Case 值1

操作1

Case 值2

操作2

Case Else

操作n

End Select

比如，當表達式等于值1，則執行操作1，等于值2，就會執行操作2，以此類推。

如果要同時定義按鈕類型和圖標樣式，可直接將按鈕類型的取值和圖標樣式的取值相加即可。例如：Select Case Msgbox("做我女朋友好嗎？",68,"請鄭重的回答我！")。

68=64（vbInformation的值）+4（vbYesNo的值）。

vbYesNo是對話框中顯示的按鈕的類型與數目，顯示“是”和“否”按鈕。

知識改變命運，科技成就未來。今天的分享就到此結束，感謝您的支持。