如何编写整蛊表白小代码(vbs)

如何编写整蛊表白小代码(vbs)

这个代码送给还是单身的小伙伴使用呦

她不同意就关不掉

视频是代码效果

作者:忆流萤

首先，这里是代码，下面小编再为大家进行详细解释（此代码为简易版）

dim a

do

a=inputbox("小姐姐,我喜欢你,做我女朋友好不好?"&vbcrlf&"请回答好或不好","背后的小哥哥")

if a="好" then

msgbox"老婆，爱你",,"老公"

exit do

elseif a="不好" then

msgbox"小姐姐怎么能说假话呢,再给你一次机会",,"爱你的小哥哥！"

else

msgbox"亲爱的，请回答好或不好",,"爱你的小哥哥！"

end if

loop

首先，新建一个记事本，把代码输进去

尽量自己输进去，而且不要换行，如果自动换行的话，把这个设置关掉

如图

然后把后缀改成.vbs，然后程序就写好了

首先，第一句"dim"的作用是声明变量，在本代码中的作用是声明变量a

"do"与下面的"loop"为一对，作用是无限循环，也就是说，如果对方不同意，则将永远循环，无法退出

"="的作用是赋值，"inputbox"则是向用户取值，即由用户决定a的值是多少

"&vbcrlf&"是用来换行的,逗号后面的是标题，在这里值得一提的是"inputbox"必须带括号,且只需一个逗号,而"msgbox"如需带标题则不能带括号，并且需要两个逗号

"if"是判断句,在本文中结构是 if......then...... elseif...then... else...

"elseif"是进行多次判断时所用的,如果只需处理两种结果(包括其他的),则可删掉，"else"意思就是其他的

if a="好" then

本句的意思就是如果a等于好，就执行下面那段代码

msgbox"老婆，爱你",,"老公"

exit do

msgbox是显示框

exit do非常重要，意思是跳出循环，执行循环代码后的代码

相信下面的就不需要小编解释了

end if是在判断句结束时所用的，否则会提示语句未结束

本次教程就结束啦！

如果小伙伴们觉得有用的话就请推荐一下吧！