VBScript脚本简单入门详解

目录
1. VBScript变量
  - 变量定义的修饰符
  - 定义一个变量时可以暂时不用初始化
  - Option Explicit
  - 变量的类型
  - 其他知识
2. VBScript子程序和函数
  - 子程序
  - 函数
3. VBScript条件和循环语句
  - 条件语句
  - 循环语句
4. VBScript关键字
  - VBScript脚本中有哪些关键字

VBScript变量

变量定义的修饰符
- dim/public/private
  通常使用dim来作为变量的修饰符
定义一个变量时可以暂时不用初始化
eg: dim a

注意：也可以不适用dim来声明变量，变量可以直接通过自身赋值来使用eg: a=1和dim a a=1的效果是一样的
Option Explicit
- 由于不需要声明变量，变量据可以直接使用，所以有时候再进行书写变量时，如果写错了，则系统不会报错，而是会新建一个变量，所以使用Option Explicit它可以有效的避免这种情况的发生，因为使用它后，整个脚本里的变量必须要先声明才能够使用，否则就会报错
- Option Explicit如何使用?
  直接再脚本的开头写上这段代码即可，建议在书写每个vbs脚本的时候，都因该先写上这段代码
变量的类型
变量可以有很多的类型，可以是一个数字型、字符串、或者是对象类型的
因为在vbs脚本在运行时，系统会自动解析变量的类型，所以我们不需熬
为变量的类型操心
其他知识
- msgbox()
  这个函数表示显示一个对话框:
1. 第一个参数是这个对话框里面的内容
2. 第二个参数表示的是这个对话框的标题
3. 第三个参数表示的是这个对话框的烈性
- inp0utbox()
  这个函数表示显示一个输入的对话框
  里面有一个参数表示的是这个输入框输入内容的标题

示例代码:

Option Explicit
dim first,seconds,fuhao,result
first=int(inputbox("请输入第一个数"))
fuhao=inputbox("请输入算术表达式的符号")
seconds=int(inputbox("请输入第二个数"))
if first="" thenmsgbox("第一个输入框输入的值不能为空")
elseif fuhao="" thenmsgbox("符号不能为空")
elseif seconds="" thenmsgbox("第三个数不能为空")
elseif fuhao="+" then result=first+secondsif fuhao="-" then result=first-secondsif fuhao="*" then result=first*secondsif fuhao="/" then result=first/seconds
end if

子程序和函数

子程序
- 使用方法
```
sub subname(argument1,argument2,...)sub code
end sub
```
- 注意: sub子程序没有返回值

示例代码:

dim sum
sub mysub(a,b)sum=a+bmsgbox(sum)
end sub
mysub(1,2)

函数

使用方法

function functionname(argument1,argument2,...)function code
end function

示例代码

dim result
function myfunction(a,b)function=a+b
end function
result=function(1,2)
msgbox(result)

子程序和函数的区别

子程序没有返回值，而函数有
子程序不能在表达式中使用，而函数可以

VBScript条件语句和循环语句

条件语句

if...then

dim age
age=inputbox("请输入学生的年龄")
if age<0 or age>100 then msgbox("请输入正常的年龄")
if age>0 and age<18 then msgbox("未成年，不能谈恋爱")
if age>18 then msgbox("成年了，可以谈一场轰轰烈烈的恋爱了")

注意这里的逻辑运算符使用的是and和or

if...then...else...end if

dim score
score=inputbox("请输入学生的成绩")
if score<0 or score>100 then
msgbox("录入分数失败，格式不符合要求")
elseif score>=60 or score<70 then
msgbox("分数及格")
elseif score>=70 and score<80 then
msgbox("分数良好")
elseif score>=80 then
msgbox("分数优秀")
end if

if...then...elseif...else...end if

dim first,seconds,fuhao,result
first=int(inputbox("请输入第一个数"))
fuhao=inputbox("请输入算术表达式的符号")
seconds=int(inputbox("请输入第二个数"))
if first="" then
msgbox("第一个输入框输入的值不能为空")
elseif fuhao="" then
msgbox("符号不能为空")
elseif seconds="" then
msgbox("第三个数不能为空")
elseif fuhao="+" then result=first+secondsif fuhao="-" then result=first-secondsif fuhao="*" then result=first*secondsif fuhao="/" then result=first/seconds
end if

select case

dim month
month=inputbox("请输入月份")
select case monthcase ""msgbox("输入不能为空")case 1msgbox("一月份")case 2msgbox("二月份")case 3msgbox("三月份")case 4msgbox("四月份")case 5msgbox("五月份")case 6msgbox("六月份")case 7msgbox("七月份")case 8msgbox("八月份")case 9msgbox("九月份")case 10msgbox("十月份")case 11msgbox("十一月份")case 12msgbox("十二月份")else casemsgbox("月份输入错误")end select

循环语句

for...next

REM 计算1+2+3+...+100的和
' 使用for循环
dim count,sum
sum=0
for count=1 to 100sum=sum+count
next
msgbox("1+2+3+...+100="&sum)

for循环可以嵌套使用，还可以和其他条件语句一起使用

示例代码1

' 使用递增计算1+3+5+...+99的和
dim count,sum
sum=0
for count=1 to 99 step 2sum=sum+count
next
msgbox("1+3+5+...+99="&sum)

示例代码2

' 使用递减计算1+3+5+...+99的和
dim count,sum
sum=0
for count=99 to 1 step -2sum=sum+count
next
msgbox("1+3+5+...+99="&sum)

示例代码3

' for驯悍和if嵌套使用
dim count
for count=1 to 100if count=50 thenmsgbox("执行完成了")Exit forend if
next
msgbox("当count="&count&"时，退出for循环")

do...loop
2.2.1 do...loop

REM 这是一个死循环，切忌使用此方法时不加任何结束判断
dim count
docount=count+1msgbox(count)
loop

2.2.2 do while...loop

' 使用do...loop while方法
' 先判断while里面的值是否满足条件，满足则执行里面的语句
dim count
count=10
do while count=10msgbox(count)
loop
msgbox("执行完成了")

2.2.3 do...loop while

' 使用do...loop while方法
' 无论如何do...loop while都会先至少执行一次
dim count
count=9
domsgbox(count)count=count+1
loop while count=10

2.2.4 do Until...loop

' 使用do Until...loop
' 直到妈祖Until后的条件才结束do Until...loop循环
dim count
count=9
do Until count=10msgbox(count)count=count+1
loop
msgbox("执行结束了")

2.2.5 do...loop Until

' 使用do...loop Until方法
' 无论如何，do...loop Until至少执行一次循环
dim count
count=9
domsgbox(count)count=count+1
loop Until count=10
msgbox("执行结束了")

VBScript关键字

VBScript脚本中有哪些关键字

Empty

判断方法：IsEmpty()
示例代码:

dim a
if IsEmpty(a) then msgbox("a没有初始化")

Null

判断方法: IsNull()
示例代码:

dim a
a=Null
if IsNull(a) then msgbox("a不是一个有效数据")

Nothing

判断方法: Is Nothing

Set obj=Nothing
if obj Is Nothing then msgbox("obj对象没有初始化值")

True
False

VBScript脚本简单入门详解相关推荐

jmeter脚本录制入门详解
jmeter的安装部署可参考 (14条消息) 性能测试工具-JMeter简介及安装_小han的日常的博客-CSDN博客https://blog.csdn.net/weixin_50464533/art ...
Asp.Net MVC3 简单入门详解过滤器Filter
为什么80%的码农都做不了架构师?>>> 前言在开发大项目的时候总会有相关的AOP面向切面编程的组件,而MVC(特指:Asp.Net MVC,以下皆同)项目中不想让MVC开发 ...
linux 日志按大小切割_nginx入门详解（六）- 日志切割
上一章讲解了nginx的目录加密功能,本章重点介绍nginx的日志切割. 笨办法学linux:nginx入门详解(五)- 目录加密zhuanlan.zhihu.com 在第二章,我们探讨了nginx ...
python怎么安装myqr模块-python二维码操作:对QRCode和MyQR入门详解
python是所有编程语言中模块最丰富的生活中常见的二维码功能在使用python第三方库来生成十分容易三个大矩形是定位图案,用于标记二维码的大小.这三个定位图案有白边,通过这三个矩形就可以标识一个 ...
python怎么安装myqr_python二维码操作:对QRCode和MyQR入门详解
python是所有编程语言中模块最丰富的生活中常见的二维码功能在使用python第三方库来生成十分容易三个大矩形是定位图案,用于标记二维码的大小.这三个定位图案有白边,通过这三个矩形就可以标识一个 ...
SQL注入攻防入门详解
转载自:http://www.cnblogs.com/heyuquan/archive/2012/10/31/2748577.html SQL注入攻防入门详解 =============安全性篇目录= ...
SQL 注入攻防入门详解
为什么80%的码农都做不了架构师?>>> SQL 注入攻防入门详解原文出处: 滴答的雨毕业开始从事winfrm到今年转到 web ,在码农届已经足足混了快接近3年了,但是对 ...
dockerk8s入门详解
docker&k8s入门详解一.Docker 1.1 什么是Docker 1.2为什么要使用docker? 1.更快速的交付和部署 2.更高效的虚拟化 3.更轻松的迁移和扩展 4.更简单的管 ...
python语言编程基础-Python语言入门详解！快速学成Python！
原标题:Python语言入门详解!快速学成Python! 很多技能是被职场所需要的,但很可惜... 这些技能在大学中并学习不到. 大学和职场现实存在的横沟对大部分同学来说难以跨越或碰得头破血流... ...

VBScript脚本简单入门详解

VBScript脚本简单入门详解相关推荐

最新文章

热门文章