恋爱表白框代码

时间：2023/4/18

1、首先在桌面新建TXT文件

编辑以下代码，再保存。

 示例一

msgbox("你好，有个事情想跟你确认一下")
msgbox("我家有车有房")
 msgbox("工资都上交")
 msgbox("家务活我干")
 msgbox("饭菜都我做")
dim j
do while j<1
Select Case msgbox("你能不能做我的女盆友?",68,"这里是框选题")
Case 6 j=1
case 7 msgbox("不在考虑下吗?")
end Select
loop
msgbox("哈哈哈，我就知道你会同意的。")

示例二

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

Msgbox "关关雎鸠，在河之洲。窈窕淑女，君子好逑。"

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

Msgbox "房产写你名字！"

Msgbox "保大！"

Msgbox "我妈会游泳！"

Dim i

Do while i<1

Select Case Msgbox ("做我女朋友好吗？",68,"女神请三思")

Case 6 i=1

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

End Select

Loop

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

 最后更改文件后缀名为 .vbs 的文件，双击即可执行。

演示图如下：

 

此为选择框

 选择否会循环执行，再给你一次机会

选择是，会显示此，然后结束程序