好玩的循环表白代码 1,右键->新建文本文件 2,右键->编辑 3,粘贴下面代码 MsgBox " 十年相遇" MsgBox "
好玩的循环表白代码
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,运行
到此这篇关于vbs表白代码的文章就介绍到这了,更多相关vbs表白代码内容请搜索编程网以前的文章或继续浏览下面的相关文章希望大家以后多多支持编程网!
--结束END--
本文标题: 抖音很火的vbs表白代码(简单实用!)
本文链接: https://www.lsjlt.com/news/146654.html(转载时请注明来源链接)
有问题或投稿请发送至: 邮箱/279061341@qq.com QQ/279061341
下载Word文档到电脑,方便收藏和打印~
2024-03-01
2024-03-01
2024-02-29
2024-02-29
2024-02-29
2024-02-29
2024-02-29
2024-02-29
2024-02-29
2024-02-29
回答
回答
回答
回答
回答
回答
回答
回答
回答
回答
0