抖音很火的vbs表白代码(简单实用!)
<p>好玩的循环表白代码</p><p style="text-align:center"><img alt="" src="https://img.jbzj.com/file_images/article/202204/2022042011345557.png" /></p>
<p>1，右键->新建文本文件</p>
<p style="text-align:center"><img alt="" src="https://img.jbzj.com/file_images/article/202204/2022042011345558.png" /></p>
<p>2，右键->编辑</p>
<p style="text-align:center"><img alt="" src="https://img.jbzj.com/file_images/article/202204/2022042011345559.png" /></p>
<p>3，粘贴下面代码</p>
<div class="jb51code"><pre class="brush:vb;">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</pre></div>
<p>3，文件另存为（注意格式为ANSI）</p>
<p style="text-align:center"><img alt="" src="https://img.jbzj.com/file_images/article/202204/2022042011345560.png" /></p>
<p style="text-align:center"><img alt="" height="475" src="https://img.jbzj.com/file_images/article/202204/2022042011345561.jpg" width="800" /></p>
<p>3，运行</p>
<p style="text-align:center"><img alt="" src="https://img.jbzj.com/file_images/article/202204/2022042011345562.png" /></p>
<p style="text-align:center"><img alt="" src="https://img.jbzj.com/file_images/article/202204/2022042011345663.png" /></p>
<p>总结</p>
頁:
[1]