千家信息网

vbs表白代码怎么写

发表于:2025-01-16 作者:千家信息网编辑
千家信息网最后更新 2025年01月16日,本文小编为大家详细介绍"vbs表白代码怎么写",内容详细,步骤清晰,细节处理妥当,希望这篇"vbs表白代码怎么写"文章能帮助大家解决疑惑,下面跟着小编的思路慢慢深入,一起来学习新知识吧。1,右键->新
千家信息网最后更新 2025年01月16日vbs表白代码怎么写

本文小编为大家详细介绍"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 jDoSelect 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 doCase 7msgbox a(i)i=i+1if i >= 6 theni = 0end ifend SelectLoop

3,文件另存为(注意格式为ANSI)

3,运行

读到这里,这篇"vbs表白代码怎么写"文章已经介绍完毕,想要掌握这篇文章的知识点还需要大家自己动手实践使用过才能领会,如果想了解更多相关内容的文章,欢迎关注行业资讯频道。

0