好玩的循环表白代码
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，运行
总结
