您现在的位置是：网站首页> 编程资料编程资料

抖音很火的vbs表白代码(简单实用!)_vbs_

2023-05-25 198人已围观

简介抖音很火的vbs表白代码(简单实用!)_vbs_

好玩的循环表白代码

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）