VBScript之表白代码（有运行视频）

提示：文章写完后，目录可以自动生成，如何生成可参考右边的帮助文档

---

前言

这是一个基于VBScript的表白脚本，有需要请自取！

一、VBS是什么？

VBS是基于Visual Basic的脚本语言。VBS的全称是：Microsoft Visual Basic Script Edition。其他基础内容请参照百度百科，语法以及示例应有尽有：https://baike.baidu.com/item/vbs/1700748

二、脚本演示

双击.vbs后缀的文件即可运行，如下：

Video_20221218140059

若双击运行报如下错误，则需要调整编码为ANSI，使用记事本编辑默认使用编码UTF-8
推荐使用notepa++编辑器：

三、源代码

绿色字体（“字符串”）都是可以自行编辑的。
代码如下（示例）：

dim result,i,j	
result = MsgBox("你是人间的四月天")

msgbox"我说 你是人间的四月天；"

result = MsgBox("笑响点亮了四面风；”，" & chr(13) & "点了”取消“轻灵在春的光艳中交舞着变。", vbOKCancel,"你是四月早天里的云烟")		'弹出窗口选择
If result = vbOK Then				'点击“确定”

	msgbox"黄昏吹着风的软，星子在"
	
ElseIf result = vbCancel Then		'点击“取消”
	i = 10
	do until i=1					'loop循环10次
	msgbox("哈哈哈！还有 "& i & "次")
	i = i -1			'vb中没有像C中--或++运算符
	loop
	
	msgbox"无意中闪，细雨点洒在花前。"

End If

msgbox"那轻，那娉婷，你是，"
msgbox"鲜妍百花的冠冕你戴着，"
msgbox"你是天真，庄严，"
msgbox"你是夜夜的月圆。"
msgbox"雪化后那片鹅黄，你像；"
msgbox"新鲜初放芽的绿，你是；"
msgbox"柔嫩喜悦，水光浮动着你梦期待中白莲。"
msgbox"你是一树一树的花开，"
msgbox"是燕在梁间呢喃，"
msgbox"——你是爱，是暖，"
	
for i = 1 to 3				'for循环嵌套，注意next语句
	for j = 1 to 10
	msgbox"是希望，"
	next
	msgbox"你是人间的四月天！ " &(3-i)*10&"次"
next

觉得可用，点个赞👍吧😊……