鎶栭煶寰堢伀鐨剉bs琛ㄧ櫧浠ｇ爜(绠�鍗曞疄鐢?)

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