vbs表白代码
笙烛 人气:0好玩的循环表白代码
1,右键->新建文本文件
2,右键->编辑
3,粘贴下面代码
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
3,文件另存为(注意格式为ANSI)
3,运行
总结
加载全部内容