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 then
	msgbox "我也喜欢你"
else
	msgbox "又是愉快的一天呢"
end if

vbYesNo,是buttons属性中的,只显示“是”和“否”按钮,vbYes即选中“是”
运行:
在这里插入图片描述
在这里插入图片描述

5、循环

语法:
do
	执行语句
loop

例:

do
	msgbox"停不下来"
loop

运行:(不断循环关不掉)
在这里插入图片描述
想要关掉的话可以通过任务管理器,找到该进程结束进行即可
在这里插入图片描述
一种do—loop结束方法 until
例:

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

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

请添加图片描述

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

问题:用记事本编写vbs脚本时,发现输出的中文为乱码
在这里插入图片描述
解决:
只需要另存为,将原来的编码UTF-8改为ANSI即可
在这里插入图片描述

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

  1. 新建一个文本文档

在这里插入图片描述

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

    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 if
    
    end Select
    Loop
    
  2. 把粘贴好的文件另存为,编码格式改为ANSI(解决中文乱码),文件名后缀改为vbs即可

    在这里插入图片描述
    运行:
    请添加图片描述

  • 8
    点赞
  • 32
    收藏
    觉得还不错? 一键收藏
  • 打赏
    打赏
  • 4
    评论

“相关推荐”对你有帮助么?

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论 4
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包

打赏作者

微笑伴你而行

你的鼓励将是我创作的最大动力

¥1 ¥2 ¥4 ¥6 ¥10 ¥20
扫码支付:¥1
获取中
扫码支付

您的余额不足,请更换扫码支付或充值

打赏作者

实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值