vba编程代码了解（利用vbs制作表白代码）

这篇文章给大家介绍一下关于网上很火的VBS表白代码的相关资料，教你用vbs跟心仪的对象表白，简单实用，内容可以自己结合实际进行修改。

1.新建文本文档，复制代码。

代码如下：

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

2.保存记事本文档，把txt文件的后缀名txt改成vbs。

3.双击运行，查看效果。

以上就是利用VBS向心仪的对象表白的方法，里面汉字部分可以根据自己实际进行更改，是不是很炫酷！~

想要学习更多关于VBS脚本知识，欢迎关注微信公众号"vbs_edit"（VBS脚本之家）！