vbs简单语法及简单案例

文章目录

一、简单语法
- 1、变量
- 2、输入
- 3、输出
- 4、选择语句
- 5、循环
二、用记事本编译中文乱码问题
三、制作一个简单vbs脚本表白

一、简单语法

1、变量

语法：   dim 变量名

例：

dim a,b
a=1
b=2
msgbox a+b

运行：

2、输入

语法：InputBox(Prompt,[Title],[Default],[XPos],[YPos],[Helpfile],[Context])

Prompt：必需的。作为对话框消息出现的字符串表达式
Title：可选的。显示对话框标题栏中的字符串表达式
Default：可选的。显示文本框中的字符串表达式

例：

dim str
str=inputbox("你的名字是?","标题")
msgbox str

运行：

3、输出

语法：MsgBox (Prompt,[Buttons],[Title],[Helpfile,Context])

输出基本与输入相同，上面案例也均用到了输出

4、选择语句

语法：
if 判断语句 then执行语句
end if

例：

dim str
str=msgbox("你喜欢我吗?",vbYesNo,"喜欢")
if str=vbYes thenmsgbox "我也喜欢你"
elsemsgbox "又是愉快的一天呢"
end if

vbYesNo，是buttons属性中的，只显示“是”和“否”按钮，vbYes即选中“是”
运行：

5、循环

语法：
do执行语句
loop

例：

domsgbox"停不下来"
loop

运行：（不断循环关不掉）

想要关掉的话可以通过任务管理器，找到该进程结束进行即可

一种do—loop结束方法 until
例：

dim str
do until str="yes"msgbox"你喜欢我？"str=inputbox("yes or no","遵从内心的选择")
loop

很显然循环结束的条件是输入yes，否则就一直循环

二、用记事本编译中文乱码问题

问题：用记事本编写vbs脚本时，发现输出的中文为乱码

解决：
只需要另存为，将原来的编码UTF-8改为ANSI即可

三、制作一个简单vbs脚本表白

新建一个文本文档

复制以下代码到文本文档中

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 ifend Select
Loop

把粘贴好的文件另存为，编码格式改为ANSI（解决中文乱码），文件名后缀改为vbs即可

运行：

vbs简单语法及简单案例相关推荐

Golang简单语法
Golang简单语法文章目录 Golang简单语法 GO语言简介 Golang的格式检查注释主函数模板 `变量` 输入和输出语句变量的类型变量的定义和赋值常量流程控制 `函数` 内置函 ...
python爬虫简单实例-最简单的Python爬虫案例，看得懂说明你已入门，附赠教程
原标题:最简单的Python爬虫案例,看得懂说明你已入门,附赠教程这是最简单的Python爬虫案例,如果你能看懂,那么请你保持信心,因为你已经入门Python爬虫,只要带着信心和努力,你的技术能力在 ...
简单的vue入门案例
一. 简单入门Hello World案例二.插值表达式三.点击事件四.按键事件 1.如果按下不是 0 - 9 则阻止事件执行 2.打印按下什么按键五.鼠标事件 1.打印绝对坐标 2.打印相对坐 ...
嵌入式基础认识2：shell脚本的一些简单语法规则
一.关于shell的一些认识 1.shell语言,是一类编程语言.常用shell语言有sh.bash.csh.ksh.perl.python等.linux下最常用的脚本就是bash. 2.shell脚 ...
编译原理简单语法分析器（first,follow,分析表）源码下载
编译原理(简单语法分析器下载) http://files.cnblogs.com/files/hujunzheng/%E5%8A%A0%E5%85%A5%E5%90%8C%E6%AD%A5%E7%AC ...
T-Sql（一）简单语法
Sql Server是鄙人学习的第一种数据库,对Sql Server有一种特别的情感,下面就说一下Sql Server的简单语法,适用初学者. 1,创建数据库create database creat ...
R语言学习笔记【简单语法总结-上】
简单语法总结[上]: R语言特征总览: 对大小写敏感通常,数字,字母,. 和 _都是允许的(在一些国家还包括重音字母).不过,一个命名必须以 . 或者字母开头,并且如果以 . 开头,第二个字符不允许 ...
自己总结的MD的一些简单语法
自己总结的MD的一些简单语法标题的使用用"#"+空格+你所想拟写的标题即可若有多个小标题只需在其前面多加几个"#"即为多加几个小标题(最多支持六个小标题) ...
python 随机生成简单语法结构的中文句子
简单的中文语句生成器 python 随机生成简单语法结构的中文句子题目如下:Writing a programming which could generate random Chinese sen ...