首页
学习
活动
专区
工具
TVP
发布
精选内容/技术社群/优惠产品,尽在小程序
立即前往

一个很简单却又让女神无法拒绝的表白VBS代码

过年啦!又是一年催婚相亲时,年后的情人节很快也会到来。如何向女神表白是一件非常让人头疼的事情。

今天给各位小伙伴分享一个很简单却又让女神无法拒绝的表白VBS代码。

第一步:

右键单击桌面任意空白位置,依次选择右键菜单中的“新建”“文本文档”。

左键单击选中“新建文本文档.txt”,按下键盘上的F2,对其重命名。将文件名及文件扩展名修改为“女神亲启.vbs”。

请注意将计算机的文件扩展名设置为可见,否则上面的操作无效。

第二步:

右键单击“女神亲启.vbs”,选择右键菜单中的“编辑”。

将代码区域的代码粘贴至文档中,同时按下键盘上的“Ctrl+S”键保存文档。

关闭文档后,表白神器就可以使用了。接下来大家就会看到女神无奈的表情。

代码区域:

Msgbox "我有一件事想跟你说。",vbInformation,"女神亲启"

Msgbox "与君初相识,犹如故人归。天涯明月新,朝暮最相思。"

Msgbox "做我女朋友好吗?",vbQuestion,"女神亲启"

Msgbox "房产写你名字!"

Msgbox "保大!"

Msgbox "我妈会游泳!"

Dim i

Do while i<1>

Select Case Msgbox ("做我女朋友好吗?",64+4,"女神请三思")

Case 6 i=1

Case 7 Msgbox "再给你一次机会"

End Select

Loop

Msgbox "哈哈哈哈,我就知道你会同意的。"

代码解析:

“MsgBox”为“Message Box”的缩写,MsgBox在对话框中显示一条消息,等待用户单击某个按钮,并返回一个整数,指示用户单击的按钮。MsgBox引号中的文字可以根据需要进行更改。

vbInformation是对话框图标的样式,显示“通知消息”图标。

vbQuestion是对话框图标的样式,显示“询问信息”图标。

Dim语句的格式为:Dim [as 数据类型];用来声明变量。

Do While…Loop语句:首先判断循环条件是否满足,如果条件不满足则不执行循环语句下的循环体;如果条件满足,即循环条件为True时,执行循环体。循环体内如果没有Exit Do语句强制退出循环,那么程序将回到循环开始处重复上面的步骤,直到循环条件不满足,或者循环体内有Exit Do强制退出语句。

Select Case判断语句:它的功能是根据不同的条件返回不同的值。

格式是:

Select Case 判断条件的表达式

Case 值1

操作1

Case 值2

操作2

……

Case Else

操作n

End Select

比如,当表达式等于值1,则执行操作1,等于值2,就会执行操作2,以此类推。

如果要同时定义按钮类型和图标样式,可直接将按钮类型的取值和图标样式的取值相加即可。例如:Select Case Msgbox ("做我女朋友好吗?",64+4,"女神请三思")

68=64(vbInformation的值)+4(vbYesNo的值)。

vbYesNo是对话框中显示的按钮的类型与数目,显示“是”和“否”按钮。

知识改变命运,科技成就未来。今天的分享就到此结束,感谢您的支持。

  • 发表于:
  • 原文链接https://kuaibao.qq.com/s/20230122A01HDB00?refer=cp_1026
  • 腾讯「腾讯云开发者社区」是腾讯内容开放平台帐号(企鹅号)传播渠道之一,根据《腾讯内容开放平台服务协议》转载发布内容。
  • 如有侵权,请联系 cloudcommunity@tencent.com 删除。

扫码

添加站长 进交流群

领取专属 10元无门槛券

私享最新 技术干货

扫码加入开发者社群
领券