vbs代码大全

发布时间：2023-06-11 作者：admin 来源：文学

vbs代码大全

2023年3月5日发(作者：氨水的密度)

范文范例指导参考

学习资料整理

很好的VBS教程（带实例）

推荐第一篇：

讲一下VBScript。主要面向菜鸟，懂得编程的朋友就不要浪费时间了，如果你想接触

以下VBScript也可以。但既然有编程基础推荐直接去找一些参考书来读。会比较快。

什么是VBScript呢？VBScript的全称是：MicrosoftVisualBasicScriptEditon.(微

软公司可视化BASIC脚本版)。正如其字面所透露的信息，VBS(VBScript的进一步简写)是

基于VisualBasic的脚本语言。我进一步解释一下，MicrosoftVisualBasic是微软公司

出品的一套可视化编程工具，语法基于Basic.脚本语言，就是不编译成二进制文件，直接

由宿主(host)解释源代码并执行，简单点说就是你写的程序不需要编译成.exe，而是直接给

用户发送.vbs的源程序，用户就能执行了。

我知道菜鸟现在最关心的就是用什么工具来开发VBS程序了，答案是：记事本(Notepad).

我不是开玩笑，其实任何一种文本编辑器都可以用来开发VBS开发，只不过记事本是由系统

自带的，比较好找而已.尽管如此，我还是建议你去下载一个专业的文本编辑器，因为这些

工具可以提供"语法高亮"等功能，更加方便开发，用哪一个随你喜好，我比较喜欢EditPlus

(2.10).

OK，我们先来写一个VBScript程序热热身.

REM输入并回显你的名字

'使用InputBox和Msgbox函数

Dimname,msg

msg="请输入你的名字:"

name=Inputbox(msg,"名称")

Msgbox(name)

把上面的程序清单输入到记事本里面，然后保存为以.vbs为扩展名的文件("保存类型"

里面选择"所有文件").然后双击运行，观察运行结果.注意:请自己输入程序清单，不要复

制->粘贴!

我来解释一下这个程序，第一行和第二行的开头分别是"REM"语句和"'"，这两个东西

的作用是相同的，表示本行是注释行，就是说这两行什么也不干,只是用来说明这段程序的

功能，版权信息等等.注释行是程序最重要的部分之一，尽管它不是必需的，但对于其他人

阅读源代码，以及自己分析源代码是很有好处的.好的习惯是在必要的地方加上清晰，简洁

的注释。

Dim用来声明一个变量，在VBS中，变量类型并不是那么重要，就是说VBS会帮你自动

识别变量类型，而且变量在使用前不一定要先声明，程序会动态分配变量空间.在VBS中你

不用考虑name储存的是一个整数还是一个小数(学名叫"浮点数")，也不用考虑是不是字符

串(一串字符，比如:"HelloWorld")，VBS会自动帮你搞定.所以第三行语句可以删除，效

果不会变，但我强烈反对这么做，一个变量的基本原则就是:先声明,后使用.变量名用字母

开头,可以使用下划线,数字，但不能使用vbs已经定义的字，比如dim，也不能是纯数字。

下一行被称之为"赋值"，"="是赋值符号，并不是数学中的等于号，尽管看起来一样.

范文范例指导参考

学习资料整理

这是正统的理解，你要理解成等于也没有什么不可.赋值号的左边是一个变量，右边是要赋

给变量的值，经过赋值以后，msg这个变量在程序中等同于"请输入你的名字:"这个字符串,

但当msg被再次复制的时候，原值就会消失.不光字符串，其他任何变量都这样被赋值，例

如:a=2，b=12.222等等。

再往下,Inputbox和Msgbox是VBS内建的函数，一个函数就相当于一个"黑箱"，有输

入(参数)和输出(返回值)，你可以不用了解函数是怎么运作的，只要了解这个函数能干什么

就行了，我们也可以定义自己的函数，不过那要等到以后再讲.现在我们只要了解，一个函

数可以有返回值也可以没有，可以有参数也可以没有.例如Inputbox就是有返回值的函数，

我们用赋值号左边的变量来"接"住InputBox的返回值--就是你输入的内容.在inputbox

右边的括号里是参数列表，每个参数用","分隔开，每个参数有不同的功效，比如第一个参

数会显示在提示里，我们把msg这个变量作为第一个参数传给了Inputbox函数，而msg="

请输入你的名字："，所以我们在对话框的提示栏就会看到“请输入你的名字：”第二个参

数是对话框的标题，我们用直接量(学名叫"常量"，这里是"字符串常量")传递给函数，当然

你也可以传递变量.Inputbox还有很多参数，比如你在"名称"后面再加一个","然后输入随

便一串字符(字符串,用双引号""包裹起来的一串字符叫做字符串)然后运行，看看结果.你

会发现用于输入的文本框有了默认的值，这就是第三个参数的作用。

Msgbox函数是用来输出的函数，在VBS中没有专门的输出函数(BASIC中的print,C中

的printf)，所以我们只能用对话框来观察输出结果，Msgbox的必要参数只有一个，就是要

输出的内容，在这种情况下，我们不需要理会msgbox的返回值.关于Msgbox和Inputbox

我们以后还会在讨论，今天只是热热身，到此为止.

要点：

1)注释(以REM或'开头)行在程序中不起作用，但能让别人更容易读懂你的程序.

2)变量好像一个盒子，或一个代号，可以代表你想代表的东西.变量赋值使用"="

3)以""包裹起来的字符称之为"字符串"

4)函数像一个"黑箱"，有参数和返回值，用"="左边的变量可以接住返回值

5)Inputbox函数弹出一个输入对话框，Msgbox则用于输出

作业：

1)试验Inputbox的第三个参数

2)写一段程序输出你的年龄

3)写一段程序进行3次输入，分别输入你和你父母的姓名(要求显示提示)，并分3次输出。

-------------------------------------------------------------------------------

第二篇：

范文范例指导参考

学习资料整理

我真没想到，第一次的作业竟然有人不会。

看来要讲的非常非常细致才行，嗯，今天讲各种“量”和基本运算。

先说常量，这个比较简单。

什么是常量呢，常量就是其值不可变化的量。

常量分为两种：第一种，自然常量。这叫是因为它们本身就是常量，你怎么更改21的

值呢?他永远都是21，不可能变成46。

如果你在程序中使用"21=46"，这样的语句将会引发一个错误。同样的，字符串也是常

量(还记得字符串吗?就是包裹在""之间的一串字符)，"HelloWorld"就是一个例子，如果

你使用"HelloWorld"="Bye"这样的语句同样会引发一个错误。你能举出自然常量的更多例

子吗？

第二种，是我们自己定义的常量，这种量也使用代号，他们也被赋值，但和变量的不同

点在于，他们在定义的时候被赋值，以后就不能改变了，如果企图改变将会引发一个错误。

定义一个变量，我们使用"const"这个关键字(关键字的意思是系统定义了有特殊功能的字，

不能作为变量名或常量名使用)，格式是：const常量名=常量值

例如：

constPI=3.1415926

constNAME="记忆碎片"

这样我们就定义了两个常量，PI和NAME，一般说来，常量名全部使用大写，但也可以

不用，随你喜好。将一些在程序中不需要改变的值定义为常量是个好习惯，这样能防止不必

要的意外。另外，使用自定义常量也可以减少你的工作量。比如：

msgbox("HelloWorld")

这个程序输出五次HelloWorld，如果你想要改变输出为Bye-Bye，就必须修改全部程

序，当然你可以手动修改5次，但如果你要输出1000次呢？常量就可以替我们解决这个问

题：

consthw="HelloWorld"

msgbox(hw)

范文范例指导参考

学习资料整理

这样当你要修改输出的时候只要修改hw的值就行了。

好了，现在我们来看看编程的第一块重要“基石”：变量。解释变量最好的办法我觉得

是“盒子”，一个变量好像一个盒子，里面只能装一个东西，当你要装进去别的东西的时候

必须把原有的东西拿出来。这个“盒子”是有名称的，当你在程序中使用变量的时候，系统

会打开盒子取出里面的东西，让这些东西参与处理，而不是盒子。有些语言是很依赖“盒子”

里面装些什么东西，这样才能找到合适的“盒子”（比如C语言），但VBS给我提供的是能够

自动伸缩的“魔术盒”，我们不用关心装进去的是什么东西，VBS会自动调整盒子的大小。

例如：

Dima1,a2,a3

a1=14

a2=12.23

a3="Hello"

而不用像C语言那样麻烦，或者是VB的正规声明（VB可以声明也可以不用）那样：

inta1;Dima1asinteger

floata2;Dima2asDouble

char*a3;Dima3asstrnig

a1=14;a1=14

a2=12.23;a2=12.23

a3="Hello";a3="Hello"

嗯……扯远了……

变量有什么用呢？哇，那用处可大了。最简单，你并不能确定程序运行时变量的值，比

如前一节课我们编的输入姓名的程序，你不能确定InputBox返回的是什么（还记得Inputbox

的返回值吗？就是你输入的内容），所以你就没有办法应对各种情况，但我们用name这个“盒

子”把用户的名字装起来，到用的时候我们只要知道name这个盒子的名字就行了，系统会

自己打开他并把里面的内容拿出来用。再举个例子，我们编写一个程序计算一个矩形的面积，

比如这个程序要发给小学生使用：

dima,b,s

a=15

b=12

s=a*b

msgbox(s)

这样就可以求出长为15，宽为12的矩形的面积了，是不是很简单？当然，这个程序

也可以这样写：

dims

范文范例指导参考

学习资料整理

s=15*12

msgbox(s)

这样看起来程序短了许多，也节约内存，但并不是鼓励的做法，为什么？请看下面。

现在，我们的程序要变得像点样子才行，谁的程序写出来还要别人修改源代码才能用

啊？

所以，我们要接受用户的输入，还记得吗？InputBox函数。

修改后程序如下：

dima,b,s

a=inputbox("请输入矩形的长:")

b=inputbox("请输入矩形的宽:")

s=a*b

msgbox(s)

OK，这么一修改，无论用户输入怎样的数据，我们都能计算出矩形的面积了。如果你用

s=15*12能改嘛？当然不行。

我想你已经发现了，vbs中的数学计算和真正的算术没有什么不同，+,-,*,/,(),[],{}

都是一样的用法，比如：

dimans

ans=12+32/4+[(23-10)*2]

msgbox(ans)

四则运算的法则在编程中同样生效，你可以在编程中重新获得小学时候的乐趣（你恨数

学？那就别学电脑了）。

在编程中有一个有趣的运算符是"mod"，这个运算符叫做"取余运算符"，就是取得一次

除法的余数，例如：

dima

a=16mod5

你知道a等于几吗？Bingo!没错，就是1。因为16/5=3……1，所以mod计算的结果

就是1。

还有一个运算符是"^"(就是键盘“6”上面的小箭头)，他表示“乘幂”（或者是“方”），

比如：

dima,b,c

范文范例指导参考

学习资料整理

a=2

b=a^2

c=a^3

msgbox(a)

msgbox(c)

则b=a*a=4，c=a*a*a=8

我们一次不要讲太多，这次就讲到这里，现在总结一下。

要点：

1)常量分为自然常量和自定义常量，常量的值不可修改

2)变量就像盒子，我们不在乎盒子里装的是什么，但一定要知道盒子的名字

3)四则运算在编程中没有任何不同

4)MOD是取余运算

作业：

1)编一个程序，计算圆形的面积，半径由用户给出(使用Inputbox)PI取值3.14159

2)编一个程序取得20/3的余数

估计大家看累了，我来个大话西游2游戏计算器的实例吧。

小黑在帮派门口摆摊卖药，今天共卖了56个灵异天香，每个的出售价格为2170，那

么他赚了多少钱？（药店出售的灵异天香价格为2160）

在题目中，56和2170是变量。大家可以想想代码怎么写，然后再往下看。

dimm,n,x,msg

msg="小黑在帮派门口摆摊卖药，今天共卖了n个灵异天香，每个的出售价格为m，那么

他赚了多少钱？"

n=inputbox(msg,"灵异天香个数n","请在此输入灵异天香个数n")

m=inputbox(msg,"每个售价m","请在此输入每个药的出售价格m")

x=(m-2160)*n

msgbox("答案："&x)

把这段代码复制粘贴到文本文件，然后把文本文件.txt后缀改为.vbs双击运行看看效果。

如果看不到.txt后缀，去我的电脑-控制面板-文件夹选项-查看-去掉“隐藏已知文件类型

的扩展名”对勾-确定就行了。

-------------------------------------------------------------------------------

范文范例指导参考

学习资料整理

第三篇：

首先，我来解决一下上次课程的几个疑问。

第一，那个余数问题，16/5=3...1,是因为我改过前面的部分,后面的忘了改了，

不好意思。

第二，请看一下程序清单：

Dima,b,c

a=inputbox("a是:","输入半径")

b=Inputbox("b是:","输入半径")

c=a*2+b*2

Msgbox(c)

这个输入1、2时是6

Dima,b,c

a=inputbox("a是:","输入半径")

b=Inputbox("b是:","输入半径")

c=(a+b)*2

Msgbox(c)

这个输入1、2时是24

为什么会不一样呢?在数学上c=(a+b)*2和c=a*2+b*2是等价的,在VBS中也是如此.

问题出在"+"上,在VBS中,+不仅仅是加号的意思还表示把两个字符串连接起来,例如

"Hello"+"World"="HelloWorld"haveyouunderstood?你还记得InoutBox函数的返回值

吗？是字符串！这就看出问题了吧，在编程中"1"不等于()1,"1"是一个字符,而1是一

个数，所以a,b都是字符串变量，"1"+"2"="12",这就好像我们小时跟伙伴开玩笑问他们

1+1=?一样，我们总是笑着说“错啦，应该是11”，但为什么，a可以*2却不发生错误呢？

这是VBS比较智能的一个表现，如果这个字符串的内容是一个数且对他进行数学运算，则把

字符串强制转换成数参与运算，如果字符串代表一个数，但不参加数学运算，而是参加字符

串运算(合并)则当作字符串处理，所以你看到a+b=12，这时候a+b的结果(12)是一个字符

串，当它要乘以2的时候就被强制转换成了数字12，这样我就得到了结果24。

怎么修改这个程序呢？我们需要用到另一个内建的函数：int

int函数的功能是将输入值转化成整数值，我们这样修改：

c=(int(a)+int(b))*2

这个意思就是把a作为参数传递给int函数，int函数就会返回那个整数(你的输入值)，

然后让返回值参与运算，这样就得到了正确答案。所以，以后如果你用的是inputbox函数

的话，最好用int语句加工一下：比如c=int(c)'c是你自己的变量。

范文范例指导参考

学习资料整理

大家是不是觉得这个课程有点枯燥。呵呵，变量和运算符部分的确是这样的，不过多多

练习也就好了。这次，我们写写真正好玩的东西：流程控制语句。这个部分开始才是真正的

编程。

首先介绍判断结构.

在此之前,我们先介绍一种简单的变量类型:布尔值(Boolean),这种变量只有两个可

能值:True,Flase,即真或假.这种变量在某些情况下很有用(比如"开关").我们定义一个

bool变量的方法和其他变量一样,赋值也一样,例如:

dima,b

a=true

b=false

注意,true和"true"是不一样的,"true"是字符串,true是布尔值,千万不能混淆.

回到if语句上来,我们先来看看简化版的if语句:if判断式then语句体我们来看

一个例子:

dima,b

a=12

b=13

ifb>athenmsgbox("B大于A")

我们只看最后一行,a>b这个式子(表达式)有一个返回值,是bool型的.因为这个式

子只有两种可能:b大于a,b不大于a,所以这个式子也只有两种可能性,即真或者假.if

语句判断这个表达式的返回值是真还是假,如果是真(true)则执行then后面的语句,如果

是假,则不执行,你把a的值改成14看看还会不会弹出对话框?

当我们要在判断之后执行多行语句怎么办呢,我们需要用语句块来解决,在这里可以

叫块if

dima,b

a=12

b=13

ifa

msgbox("A小于B")

msgbox("B大于A")

endif

两个msgbox函数夹在if和endif之间,这个部分就是语句块,块里的每一条语句之

前请空出4--8(一个键)个格,这不是必需的,但是是一个好习惯,以便看清楚程序

的结构.这样我们就能运行多于一个的语句,请注意if...then...endif这三个关键部分

不要掉了.OK,我出一个题,输入一个数,如果小于100就输出"错误",如果大于100就输

出"正确",我这里有两个程序版本:

dima

a=inputbox("请输入一个大于100的数")

a=int(a)'inputbox返回的是字符串,我们把他变成整数:)

ifa>100thenmsgbox("正确")

ifa<100thenmsgbox("错误")

还有一个更简单的

dima

a=inputbox("请输入一个大于100的数")

范文范例指导参考

学习资料整理

a=int(a)'inputbox返回的是字符串,我们把他变成整数

ifa>100then

msgbox("正确")

else

msgbox("错误")

endif

看到多了一个else了吧,else的作用就是当要判断的表达式为false时执行的.这样

程序就可以处理两种不同的情况了.不要忘了用endif结尾

嘿嘿,我是变态者,现在我要你处理三种情况,100,还要写在一个if结

构里,你怎么办,我给你答案:

dima

a=inputbox("请输入一个大于100的数")

a=int(a)'inputbox返回的是字符串,我们把他变成整数

ifa>100then

msgbox("正确")

elseifa=100then

msgbox("老大,你耍我?")

else

msgbox("错误")

endif

这次输入100看看,是什么?elseif语句可以在if结构中多次出现,以灵活判断不

同的情况(如果你要判断得太多,就请使用"选择结构",过会儿就讲),当所有elseif都

处理完了,而没有符合情况的时候再执行else中的语句.另一个例子:

Dima,b,c,d

a=inputbox("a是:","输入半径")

b=Inputbox("b是:","输入半径")

d=Inputbox("答案:","输入答案")

c=a*2+b*2'这里没有问题,会自动转换

ifd=cthen

Msgbox("你好聪明")

else

Msgbox("你好猪头自己的题还不会!")

endif

再看看这个,无论你回答得多么正确你都是猪头,哈哈,不是我耍你,还是文章开始

时候的inputbox的返回类型在耍你,d是inputbox的返回值,他是一个字符串,而c是一

次整数计算的结果,他是一个整数.一个字符串无论如何也不等于一个整数,尽管他们字

面上是一样的:"8"(不等于号)8所以if的判断式的值永远是false,总是执行else部分

的语句.我们可以这么修改

Dima,b,c,d

a=inputbox("a是:","输入半径")

b=Inputbox("b是:","输入半径")

d=Inputbox("答案:","输入答案")

d=int(d)

'在这里我们取出了d的值,变成整数,在放回"d"这个盒子里

范文范例指导参考

学习资料整理

c=a*2+b*2

ifd=cthen

Msgbox("你好聪明")

else

Msgbox("你好猪头自己的题还不会!")

endif

这样就成功了.这也是Inputbox函数的一个讨厌的地方,没办法,vbs没有其他好的

输入方式了。

说到if,我们不得不说一说逻辑运算符,今天介绍两种,"and"和"or"学会了if语

句之后,我举一个例子,你一看就明白了.

dima,b

a=inputbox("输入一个数>10")

b=inputbox("输入另一个数>10")

a=int(a)

b=int(b)

ifa>10andb>10then

msgbox("正确")

else

msgbox("错误")

endif

这段程序让你输入两个值,必须都大于10,只要有一个不大于,就输出错误

dima,b

a=inputbox("输入一个数>10")

b=inputbox("输入另一个数>10")

a=int(a)

b=int(b)

ifa>10orb>10then

msgbox("正确")

else

msgbox("错误")

endif

这段程序让你输入两个值,只要有一个大于10,就返回成功.其实and和or很好理解,

我读"ifa>10orb>10then"这一句,用华语是这样:"如果a大于10或者b大于10,那

么...".这样是不是就很好理解了呢.

OK,我们再来看一种新结构,今天的课就结束,已经午夜了,我都累死了.

当你的程序要处理很多种不同的判断情况的时候elseif..then会让程序看起来很杂乱,

所以就有了一种selectcase结构专门对付这种情况,selectcase的语法结构很简单:

selectcase变量名

case值

语句

范文范例指导参考

学习资料整理

case值

语句

caseelse

语句

endselect

我们举个例子就能很简单的说明：

dima

a=inputbox("输入一个1--3的值")

a=int(a)'处理inputbox返回字符串的问题

selectcasea

case1

msgbox("壹")

case2

msgbox("贰")

case3

msgbox("叁")

caseelse

msgbox("输入错误")

endselect

这个例子把1,2,3这三个阿拉伯数字转化成中国大写数字,这个程序写成if...elseif

的形式如下

dima

a=inputbox("请输入1--3的值")

a=int(a)

ifa=1then

msgbox("壹")

elseifa=2then

msgbox("贰")

elseifa=3then

msgbox("叁")

else

msgbox("输入错误")

endif

怎么样,麻烦吧,还是select好吧.

OK,今天到此结束,总结一下:

要点:

1)inputbox返回的是一个字符串,而不是一个数,必须用a=int(a)这种形式转化成数

2)bool变量的值只有两种:true,false

2.5)and两边的表达式都是true,则返回两边的表达式有一个是true,就返回

true

3)if语句的格式

4)select...case的格式

范文范例指导参考

学习资料整理

作业:

1)使用3个bool值,储存你的3兄弟姐妹是否是男性(提示:sister1male=false)

2)给定一个个数,大于10而且小于20输出"正确",否则输出"错误"

3)输入12,或者15,输出"正确",否则输出"错误"

4)把5以内的正整数都转换成中国大些数字

5)自己随便设计一个程序,应用今天的知识

-------------------------------------------------------------------------------

第四篇：循环结构

我们先来看一道题：商场进行每日结算,要求累加出今天的营业额,每次输入一个数,

这道题其实很简单,但就我们现在学过的知识要完成这道题相当麻烦,我们来分析一下.

首先,我们需要知道买卖的次数,这样才能控制输入的次数,但是,这种设计是非常低效的,

每天都要重新设计程序.假定今天进行了5次交易,以下是源程序:

dimsum

sum=0'初始化变量

sum=sum+int(inputbox("请输入交易额"))

'sum=sum+x这种形式是把本身的值取出来,进行一次运算,再放回本身,这种方法很有

用处'这里使用了函数嵌套,把inputbox的返回值直接传给int函数,转化成整数,下同

sum=sum+int(inputbox("请输入交易额"))

msgbox(sum)

看到了吗,我通过把计算过程复制了5遍才设计好了程序,这种程序在汽车交易所等

交易次数少的地方还能凑合着用,如果放到超市岂不是要复制,粘贴几千遍?我们今天讲

的内容就可以克服这种缺陷,首先,我们来讲以下Do...Loop语句.

do...loop的结构看上去非常简单,就是:do...loop,仅此而已,这个结构不断执行

do和loop之间的语句(学名叫:循环体),

永不停止.举个例子来说:

msgbox("这个信息会不断重复出现,要停止程序请使用任务管理器(Ctrl+Alt+Del)中止

wscript进程")

loop

运行这个程序,当你点销掉一个对话框马上会出来另一个,你永远点不完,总有下一

个.谁会运行这样的程序?除非是给别人捣乱(我就干过这种事),所以在do..loop结构中

还有一个语句:exitdo,这个语句将终止循环,跳到loop后面的语句继续

执行.据个例子来说:

dima'注意:常量不需要在dim里面声明,否则会引发错误

范文范例指导参考

学习资料整理

constpass="123456"'这是一个字符串请用""包裹起来.设定密码为常量,不可变更

a=inputbox("请输入密码")

ifa=passthen

msgbox("密码校验成功")

exitdo

endif

loop

这个程序会一直不停的问你密码,知道你输入了正确的密码为止.(if可以嵌套在另一

个if当中,也可以嵌套在循环体当中,所以一定要用缩进,来分清楚程序的各个部分).

这个程序是很经典的,早期的程序都是这么做的.但是我们是Hacker,所以

我们了解系统的安全性,这种无限次认证程序很容易被穷举破解,我们要来限定认证的次

数.修改程序如下

dima,ctr

ctr=0'设置计数器

constpass="pas123_"'上面的那个是弱密码,这次改的强一点

ifctr=3then

msgbox("已经达到认证上限,认证程序关闭")

exitdo

else

a=inputbox("请输入密码")

ifa=passthen

msgbox("认证成功")

msgbox("(你可以在这里加一段成功后得到的信息)")

exitdo

else

ctr=ctr+1'如果密码出错就增加一次错误认证计数

msgbox("认证出错,请检查密码")

endif

loop

运行这个程序试试看,当你出了3此错误以后,就会停止再次询问密码,关闭程序.

telnet认证用来限制次数的程序与此大同小异.要注意的是嵌套的if语句,清仔细读一下

这个程序,可能比较难懂,也请你试着自己设计一下类似的程序.

其实,要在do...loop加上验证的功能,并不一定要用if,我们可以直接利用do.我

来介绍一下while关键字,while可以放在do或者是loop后面,然后再接一个表达式,当

表达式的值为true的时候(表达式成立),才运行循环体.我们来看一下修改后的

程序"

dima,ctr

ctr=0

constpass="pas123_"

dowhilectr<3

a=inputbox("请输入密码")

范文范例指导参考

学习资料整理

ifa=passthen

msgbox("认证成功")

msgbox("(你可以在这里加一段成功后得到的信息)")

exitdo

else

ctr=ctr+1'如果密码出错就增加一次错误认证计数

msgbox("认证出错,请检查密码")

endif

loop

dima,ctr

ctr=0

constpass="pas123_"

a=inputbox("请输入密码")

ifa=passthen

msgbox("认证成功")

msgbox("(你可以在这里加一段成功后得到的信息)")

exitdo

else

ctr=ctr+1'如果密码出错就增加一次错误认证计数

msgbox("认证出错,请检查密码")

endif

loopwhilectr<3

功能是一样的,为什么要放在loop后面呢?你把ctr的值改成3就知道了,while在

do后面的程序会直接退出,而在loop后面还会允许一次认证,到了loop才结束.和while

相反的是until,用法和while一样,不过他只有当后面的表达式的值为false(表达式不成

立)的时候才执行循环体,请自己试验一下

ok,我们来看另外一种循环结构,for....next,这种循环结构是基于计数的,也是在

编程中最常见到的循环结构.

dimi

fori=0to5

msgbox(i)

看到了吗?每次输出的i都是递增的,但我们没有明确指出i要递增,当i达到5的时

候,循环就结束了,因为由0开始,所以循环体执行了6次,这一点很重要,大部分东西都

是从0开始而不是1.这个程序也可以写成

do的形式:

dimi

i=0

dowhilei<5

msgbox(i)

范文范例指导参考

学习资料整理

i=i+1'因为do不能自动计数,必须手动加

loop

怎么样,还是for比较好用吧.for在编程中很有用途,我们再举一个例子,顺便讲一

下嵌套循环.

dimi,j

fori=1to9

str=str&i*j&""'&是和并字符串的符号

next'每个next对应一个for

看看运行结果,是否令你会想起小学时代的数学老师(丑陋的嘴脸).要注意,这里有

一个"大"的for,和一个小的for,当小的for执行完一个周期以后,大的for才执行一次

(换句话说,大的for执行一次,小的要执行9次),所以一共执行了九九八十

一次.在大的for里可以不仅仅是一个小的for,也可以加上另外的语句.我们来修改一下

源程序:

dimi,j

fori=1to9

str=str&i*j&""

next'每个next对应一个for

str=str&vbCrlf'vbCrlf相当于键盘上的回车键,因为你不能在键盘上输入,所以系统定

义了一个默认的常量

这次运行完成以后,输出结果按照乘数进行了分割,每小for运行完一次,就换一行

(通过vbcrlf).

这次的内容对菜鸟可能比较难懂,掌握的办法只有一个:多实践.另外,我在论坛看到

很多人还是问:"VBScript要用什么工具编?"我就很气愤,我在第一篇里面已经说明:用记

事本编辑源代码,然后保存为以.vbs为扩展名的程序就可以了,请大家不要再问.另外,

国产的一种垃圾软件"超级X霸"抢占了vbs这个扩展名,请把那个垃圾卸载掉.

我们总结一下:

要点:

1)do..loop和exitdo的用法

2)while当表达式true的时候执行循环体,until反之

3)for...next是计数循环,每次执行计数器递加

4)嵌套循环的作用和写法

4.5)&用于连接字符串

5)vbCrLf相当于键盘上的回车键

作业:

1)在我国的数学经典著作"九章算术"中有这样一道题:百钱买百鸡,公鸡5钱一只,母鸡3

钱一只,小鸡1钱2只(这个数据我是参考一本编程书的,但我记得是公3,母1,小1钱3

只?不管了,就按照书上得来吧)求得是能有多少种办法买这些鸡.如果看不懂的话我用大

白话说说:有人要去买鸡,用100块钱正好买了100只鸡,价格如下:公:5$,母:3$,

小:1$for2,让你求一共多少种卖法(公母小怎么搭配).请用循环解决这个问题。

范文范例指导参考

学习资料整理

PS：今天文章写的很仓促，大部分代码都没有实验，请大家自己检验。另外，上次的作业我

不说答案了。不知道大家喜欢做这种题，还是以前那种比较简单的？

-------------------------------------------------------------------------------

第五篇：

今天我们来了解语言本身的最后一个论题:数组.

要理解"数组",这个概念我觉得另一种翻译对学习来说更加容易:"阵列",没错,数组

就是一个阵列,一个数据的阵列.最简单的例子是数据库系统,假设你要储存20名学生的

英语成绩,如果不是用数组,你则要创建20个不同的变量,累死.数组就是类型相同(重

要!)的一组数据(或者n组),用来储存相关的量,最简单的数组是一维数组,我们就先来

学习它吧.

什么是一维数组呢?在3维以下,你可以利用几何知识来理解"维"的概念,一维相当于

一条线,二维则是一个矩形,三维是一个长方体.我知道这么讲是很抽象的,我们先举个

一维数组的例子就比较容易了解了.

dima(9)'从零开始

fori=0to9

a(i)=i'填充每一个数组元素

msgbox(a(i))'输出数组元素

我们可以看到,定义一个数组的方法和定义一个变量没有什么不同,同样是使用dim

语句.定义一维数组的方法如下:

dim数组名(元素数量),这里大家要注意一点,这里定义的元素数量总是比你要的要少一

个,因为一个数组的起点是0号数据而不是1,所以大家一定要小心:你需要10个数据,

就定义"9",需要100个就定义99,依此类推.数组的元素可以看成一个个独立的变量,你

可以像独立的变量那样使用他们.数组元素的量可能是毫无关系的,比如第一个数组元素

储存你的年龄,第二个储存今年西瓜的销售量,但这种做法是不鼓励的,甚至是不被接受

的,不要这么干,这样的情况请定义独立的变量.for语句在数组中可算是大显身手,还记

得for吗?它累加一个变量,我们可以把这个变量应用在数组中正好用来读取或者填充按

照顺序排列的数组元素,上面就是这样一个例子.数组其实是很简单的东西(再BASIC语言

里面),数组难的是怎么捣弄这些循环,让他们按照你的要求运转.这个等到二维数组再说,

我们先看看如何手工填充数组.

如果你这个都想不到的话,那你真是白学了:

dimname(7),str'一共八个学生,str变量是用来把他们储存成一个字符串以便输出

fori=0to7

name(i)=inputbox("请输入第"&i+1&"个学生的名字")

范文范例指导参考

学习资料整理

str=str&""&name(i)

msgbox(str)

这样我们就有了一个小小的数据库,它们的数据排列可以看成这样:

name(0),name(1),name(2).....name(7)

看到了吧,所以我说我们可以把它看成是"一条线",等到我们学到了文件操作,就可

以把他们输出到文件中去了.一维数组有很多用处,我们来看一下一个复杂的例子.我们

要储存3各学生的名字,身高,成绩这三种数据,由于名字是字符串,而身高可能是浮点

数(带小数点的数),成绩则可能是整数,所以我们不能把他们储存在一个数组里面(不要忘

记,数组织只能存储同类的数据),所以我们要建3个数组,以下是例程:

dimname(2),high(2),mark(2)'定义三个数组分别储存3个人的名字,身高和得分

dimctr'计数器

forctr=0to2

name(ctr)=inputbox("请输入第"&ctr+1&"个学生的姓名")

high(ctr)=inputbox("请输入第"&ctr+1&"个学生的身高")

mark(ctr)=inputbox("请输入第"&ctr+1&"个学生的得分")

OK,我们已经填充好了数据,现在我们的小小数据库只能按顺序输入,我们要让它看

起来像点样子,我们来给他设计查询功能:

'接着上面的程序

dimcname,temp'要查询的名字,和一个临时变量,用来储存数据的位置

cname=inputbox("请输入你要查询的名字:")

forctr=0to2'遍历所有name数组的成员,寻找要查询的名字

ifname(ctr)=cnamethen

temp=ctr'记录数据位置

exitfor'退出循环,和exitdo的用法一样

endif'不要忘了endif

msgbox("姓名:"&name(temp)&""&"身高:"&high(temp)&""&"得分:"&mark(temp))

嘿嘿,有意思吧,其实在这个程序里面,那个temp变量完全没有必要,只是为了更清

楚地说明问题.因为当exitfor以后ctr变量的值就不会改变,储存的正好是对应数据在

数组中的位置,写这个temp变量是为了照顾到以后要学C++的朋友(C++可以在for语句里

声明新变量,只在这个for结构中有效,所以到了外部就不能访问了).也就是说可以简化

成如下:

dimcname

cname=inputbox("请输入你要查询的名字:")

forctr=0to2

ifname(ctr)=cnamethenexitfor'因为只有exitfor就不需要块if了

msgbox("姓名:"&name(ctr)&""&"身高:"&high(ctr)&""&"得分:"&mark(ctr))

这是最直接的路子.好好重读一下上面所有的源代码,然后自己写几个程序,完全搞

清楚一维数组及其应用以后再看后面的二位数组.二维数组好像是一个一维数组的集合,

就好像"线积成面"一样,由n各一维数组组成二维数组,这是初学者比较好理解的办法(比

较精确的是用"编号"的概念去理解,因为4维以上的数组就比较难以用欧几里德几何概念

范文范例指导参考

学习资料整理

去解释了).二维数组是很好解释的,我们来看一下:

dima(2,2)'从零开始,一共有3X3=9个数据

dimi,j'需要两个计数器

fori=0to2

forj=0to2'使用嵌套循环

a(i,j)="X"

我们创建了一个这样的二维数组(那些","是我用来分割元素的,并不存在),了解二维

数组的了吗?不清楚我们再讲一下

编号012

0X,X,X

1X,X,X

2X,X,X

二维数组的看起来是不是就是一个矩形呢?(你在内存中看不到这样的矩形,只是便于

你理解),每个数据都有编号,由两个数来定位,这个很像(非常像)你在国际象棋棋盘上寻

找一个格,我们用类似"C6","A2"这样的"垂直坐标"进行定位,对,"垂直坐标",很确切.

我们要使用一个二维数组元素的时候可以和普通变量一样使用,只要指定数组元素的"定位

点"就可以了,例如

a(0)(1)=1,b(2)(1)="你好",诸如此类.要注意的是二维数组也只能储存类型相同的元素,

而且上标(起点)也从0开始.计算一个二维数组的元素个数只要把两个下标+1(以得到实际

的值)再乘起来就可以了,非常类似于求一个矩形的面积.

假如需要储存的都是同一类型的数据,我们就可以用二维数组,比如要储存5个人的

姓名,国籍,民族,就可以使用二维数据

diminfo(4,2)'一共五个人,要储存的数据类型有3项

dimi,j

fori=0to4

forj=0to2

dimopt'定义一个变量用于存储数据项提示

selectcasej'判断应该输入的是什么数据

case0

opt="姓名"

case1

opt="国籍"

case2

opt="民族"

endselect

info(i,j)=inputbox("请输入第"&i+1&"个人的"&opt)

'输出太麻烦了,我懒得动,你知道那么回事就行了

这样就不需要定义3个一维数组了.

多位数组(三维以上)的定义和使用方法与二维数组一样,但不太好在欧几里德几何空

间里加以解释,幸好我们并不太常用那么多维的数组.定义一个三位数组:dima(1,2,3)'

范文范例指导参考

学习资料整理

一共24各数组元素.

今天因为要搬家(我喜欢Sengkang啊,可是MM嫌交通不便,谁不知道她只想去逛街),

而GF要去和她的同学去参加什么试验半夜才回家,所以下午我只能自己去押车搬家了,

5555~~好可怜,这次就请大家原谅我少写一点,我可是站在图书馆外写的啊,

现在腿都软了~~~本来还要讲"动态数组"的,但想了想还是放到"进阶部分"再说吧.

要点:

1)一维数组是"线",二维数组是"面",三维数组是"体"(多维数组就乱套)

2)数组的下标从0开始

3)for循环在数组的应用中起了很大作用,二维数组需要嵌套循环

作业:

上次出的"百鸡问题",大家喜欢吗?以后我们就做这种需要动脑的题目,那些简单的

实践,大家一定要多做!

1)定义一个数组,包含5个元素,都是随机整数(随便输入),要求把他们按照从大到小

的顺序排列起来

2)有两个二维数组a(4,4)和b(4,4)(元素值随便),交换两个数组(原来的a的所有元素值

变成b的,b的所有元素值变成a的)

-------------------------------------------------------------------------------

最后一篇：

今天我们学习基础篇的最后一个部分:自定义函数和过程.我们每天都在和函

数打交道,inputbox()是函数,msgbox()是函数,int()也是函数...这些函数都是系统内建

的,我们只能用不能改.今天,我就教大家怎样自己制作一个函数.

首先我们要了解,为什么要用函数,我们用"实例"说话,先看一个例子:给出两个数,

输出较大的那一个.

dima1,a2,b1,b2,c1,c2

a1=2:a2=4'":"可以让你把多个语句写在一行上

b1=32:b2=67

c1=12:c2=898

ifa1>a2then

msgbox(a1)

elseifa1

msgbox(a2)

endif

ifb1>b2then

msgbox(b1)

elseifb1

msgbox(b2)

endif

ifc1>c2then

范文范例指导参考

学习资料整理

msgbox(c1)

elseifc1

msgbox(c2)

endif

多么麻烦呀,我们把相同的比较过程复制了好几遍,早期语言没有结构化(没有过程和

函数)的时候,程序员们的确是这么干的,他们复制(Copy),那个年代也没有剪贴板这一说,

大家都是重新输入代码.后来工作简化了:

dima1,a2,b1,b2,c1,c2

a1=2:a2=4

b1=32:b2=67

c1=12:c2=898

msgbox(co(a1,a2))

msgbox(co(b1,b2))

msgbox(co(c1,c2))

functionco(t1,t2)'我们使用function定义了一个新的函数

ift1>t2then

co=t1'通过"函数名=表达式"这种方法返回结果

elseift2>t1then

co=t2

endif

endfunction

我们在这里是用了一个新的关键字:funciton,这个关键字表示一个新函数开始,格式:

funciton函数名(参数1,参数2...参数n)'列表可以是空的,但括号不能省略,参数之

间用","分割

...

exitfunciton'结束函数,不是必需的

...

endfunction

函数是一个模块,只有你调用的时候才会运行,也就说,当你编写了一个函数,然后

在程序中并不调用它,那么这个函数永远不会运行.一般来说,我们编写程序是按照:

主程序

函数1

函数2

详细解释一下:函数中最重要的是参数和返回值.参数是在函数名后面的()里定义的,

范文范例指导参考

学习资料整理

用","分割,使用参数的时候我们也用","分割.说到这里我想起一件事,昨天有个朋友给

我发消息问我:

msgbox(name1,name2,name3)

这个错在哪里?为什么不能同时显示出三个变量?这就是因为你用了",",这个符号表

示你输入的三个量作为三个不同参数传递给msgbox()函数,msgbox()函数只会显示出第一

个参数,第二个参数的作用是出现在标题栏.所以你应该用"&"或者"+"把三个字符串变量

连接起来,作为第一个参数传递给msgbox()函数.程序员说参数的时候经常说到"形参","

实参"这样的"黑话",我来解释一下."形参"是"形式参数"的简称,"实参"是"实际参数"的简

称,实参是指你调用函数的时候传递给函数的量,可以使变量或者常量(直接量),例

如:co(12,24)中的12,24就是实参.形参是你在函数定义时定义的变量,这些变量用来"接

住"传递过来的量,例如functionco(t1,t2)t1,t2就是形参.

在VBScript中,参数传递是一种传值,而不是传址(听不明白不要紧,学了C语言的

指针你就明白了),所以我们进行的参数传递实际上是进行了一次变量赋值,例如我们调用

co(a1,a2),实际上程序会执行一步:t1=a1,t2=a2这样的操作.同样因为传值传址的原因,

VBScript只能返回一个值,我们先来看看什么叫"返回".当一个过程调用了另一个过程的

时候(比如主程序调用了函数),控制权就到了被调用过程那里,当这个过程执行完毕以后,

会回到调用它的地方继续执行,这个就叫做"返回",返回的时候可以带一个值叫做"返回值

"(这是"通俗"的理解).在vbs继承了basic的传统,返回的时候采用"函数名=返回值"的办

法,这个"返回值"是指一个表达式(在编程中,任何东西都是表达式,比如变量a,常数0,

"Hello",c=1+2等等这都是表达式).比如有一个函数是ht,则返回的方法是:ht=你要返回

的值.注意:返回以后,后面的语句将不再执行.

调用一个函数我就不用讲了吧:变量=函数名(参数)

有时候我们并不需要返回什么值,这个时候我们可以使用一种称之为"子程序"的结构.

子程序或称之为过程与函数的差别就在于:1)没有返回值,2)使用sub关键字定义,3)通

过Call调用.具个例子:

dimyname

name=inputbox("请输入你的名字:")

callwho(yname)

subwho(cname)

msgbox("你好"&cname)

msgbox("感谢你阅读我的课程")

msgbox("这是基础部分的最后一课")

endsub

你一定看明白了,很简单的.退出一个过程和退出一个函数一样:exitsub(函数:exit

function).

要注意,子程序(过程)是比较特殊的一个结构,C等语言是没有这个概念的,C语言中

的一切都是函数,没有返回值的函数在C语言中只要使用void修饰符定义就行了.

今天没有什么可讲的了,基础篇就这么结束了,目前你已经有了基本的编程概念(面向

过程的结构化编程),可以选择学习另外一种语言(比如C或Pascal),现在的基础会有一定

的帮助.你也可以去买本书继续学习vbs或通过它更详细的了解编程。

第四篇：循环结构

我们先来看一道题：商场进行每日结算,要求累加出今天的营业额,每次输入一个

数,这道题其实很简单,但就我们现在学过的知识要完成这道题相当麻烦,我们来分析一

范文范例指导参考

学习资料整理

下.首先,我们需要知道买卖的次数,这样才能控制输入的次数,但是,这种设计是非常低

效的,每天都要重新设计程序.假定今天进行了5次交易,以下是源程序:

dimsum

sum=0'初始化变量

sum=sum+int(inputbox("请输入交易额"))

'sum=sum+x这种形式是把本身的值取出来,进行一次运算,再放回本身,这种方法

很有用处'这里使用了函数嵌套,把inputbox的返回值直接传给int函数,转化成整数,下

同

sum=sum+int(inputbox("请输入交易额"))

msgbox(sum)

看到了吗,我通过把计算过程复制了5遍才设计好了程序,这种程序在汽车交易

所等交易次数少的地方还能凑合着用,如果放到超市岂不是要复制,粘贴几千遍?我们今

天讲的内容就可以克服这种缺陷,首先,我们来讲以下Do...Loop语句.

do...loop的结构看上去非常简单,就是:do...loop,仅此而已,这个结构不断

执行do和loop之间的语句(学名叫:循环体),

永不停止.举个例子来说:

msgbox("这个信息会不断重复出现,要停止程序请使用任务管理器(Ctrl+Alt+Del)中

止wscript进程")

loop

运行这个程序,当你点销掉一个对话框马上会出来另一个,你永远点不完,总有

下一个.谁会运行这样的程序?除非是给别人捣乱(我就干过这种事),所以在do..loop结

构中还有一个语句:exitdo,这个语句将终止循环,跳到loop后面的语句继续

执行.据个例子来说:

dima'注意:常量不需要在dim里面声明,否则会引发错误

constpass="123456"'这是一个字符串请用""包裹起来.设定密码为常量,不可变更

a=inputbox("请输入密码")

ifa=passthen

msgbox("密码校验成功")

exitdo

endif

loop

这个程序会一直不停的问你密码,知道你输入了正确的密码为止.(if可以嵌套在

另一个if当中,也可以嵌套在循环体当中,所以一定要用缩进,来分清楚程序的各个部

分).这个程序是很经典的,早期的程序都是这么做的.但是我们是Hacker,所以

我们了解系统的安全性,这种无限次认证程序很容易被穷举破解,我们要来限定认证

的次数.修改程序如下

dima,ctr

ctr=0'设置计数器

constpass="pas123_"'上面的那个是弱密码,这次改的强一点

范文范例指导参考

学习资料整理

ifctr=3then

msgbox("已经达到认证上限,认证程序关闭")

exitdo

else

a=inputbox("请输入密码")

ifa=passthen

msgbox("认证成功")

msgbox("(你可以在这里加一段成功后得到的信息)")

exitdo

else

ctr=ctr+1'如果密码出错就增加一次错误认证计数

msgbox("认证出错,请检查密码")

endif

loop

运行这个程序试试看,当你出了3此错误以后,就会停止再次询问密码,关闭程

序.telnet认证用来限制次数的程序与此大同小异.要注意的是嵌套的if语句,清仔细读

一下这个程序,可能比较难懂,也请你试着自己设计一下类似的程序.

其实,要在do...loop加上验证的功能,并不一定要用if,我们可以直接利用do.

我来介绍一下while关键字,while可以放在do或者是loop后面,然后再接一个表达式,

当表达式的值为true的时候(表达式成立),才运行循环体.我们来看一下修改后的

程序"

dima,ctr

ctr=0

constpass="pas123_"

dowhilectr<3

a=inputbox("请输入密码")

ifa=passthen

msgbox("认证成功")

msgbox("(你可以在这里加一段成功后得到的信息)")

exitdo

else

ctr=ctr+1'如果密码出错就增加一次错误认证计数

msgbox("认证出错,请检查密码")

endif

loop

dima,ctr

ctr=0

constpass="pas123_"

范文范例指导参考

学习资料整理

a=inputbox("请输入密码")

ifa=passthen

msgbox("认证成功")

msgbox("(你可以在这里加一段成功后得到的信息)")

exitdo

else

ctr=ctr+1'如果密码出错就增加一次错误认证计数

msgbox("认证出错,请检查密码")

endif

loopwhilectr<3

功能是一样的,为什么要放在loop后面呢?你把ctr的值改成3就知道了,while

在do后面的程序会直接退出,而在loop后面还会允许一次认证,到了loop才结束.和

while相反的是until,用法和while一样,不过他只有当后面的表达式的值为false(表达

式不成立)的时候才执行循环体,请自己试验一下

ok,我们来看另外一种循环结构,for....next,这种循环结构是基于计数的,也

是在编程中最常见到的循环结构.

dimi

fori=0to5

msgbox(i)

看到了吗?每次输出的i都是递增的,但我们没有明确指出i要递增,当i达到5

的时候,循环就结束了,因为由0开始,所以循环体执行了6次,这一点很重要,大部分东

西都是从0开始而不是1.这个程序也可以写成

do的形式:

dimi

i=0

dowhilei<5

msgbox(i)

i=i+1'因为do不能自动计数,必须手动加

loop

怎么样,还是for比较好用吧.for在编程中很有用途,我们再举一个例子,顺便

讲一下嵌套循环.

dimi,j

fori=1to9

str=str&i*j&""'&是和并字符串的符号

next'每个next对应一个for

看看运行结果,是否令你会想起小学时代的数学老师(丑陋的嘴脸).要注意,这

里有一个"大"的for,和一个小的for,当小的for执行完一个周期以后,大的for才执行

一次(换句话说,大的for执行一次,小的要执行9次),所以一共执行了九九八十

一次.在大的for里可以不仅仅是一个小的for,也可以加上另外的语句.我们来修改

一下源程序:

dimi,j

范文范例指导参考

学习资料整理

fori=1to9

str=str&i*j&""

next'每个next对应一个for

str=str&vbCrlf'vbCrlf相当于键盘上的回车键,因为你不能在键盘上输入,所以系

统定义了一个默认的常量

这次运行完成以后,输出结果按照乘数进行了分割,每小for运行完一次,就换

一行(通过vbcrlf).

这次的内容对菜鸟可能比较难懂,掌握的办法只有一个:多实践.另外,我在论坛

看到很多人还是问:"VBScript要用什么工具编?"我就很气愤,我在第一篇里面已经说明:

用记事本编辑源代码,然后保存为以.vbs为扩展名的程序就可以了,请大家不要再问.另

外,国产的一种垃圾软件"超级X霸"抢占了vbs这个扩展名,请把那个垃圾卸载掉.

我们总结一下:

要点:

1)do..loop和exitdo的用法

2)while当表达式true的时候执行循环体,until反之

3)for...next是计数循环,每次执行计数器递加

4)嵌套循环的作用和写法

4.5)&用于连接字符串

5)vbCrLf相当于键盘上的回车键

作业:

1)在我国的数学经典著作"九章算术"中有这样一道题:百钱买百鸡,公鸡5钱一只,

母鸡3钱一只,小鸡1钱2只(这个数据我是参考一本编程书的,但我记得是公3,母1,小1

钱3只?不管了,就按照书上得来吧)求得是能有多少种办法买这些鸡.如果看不懂的话我

用大白话说说:有人要去买鸡,用100块钱正好买了100只鸡,价格如下:公:5$,母:3$,

小:1$for2,让你求一共多少种卖法(公母小怎么搭配).请用循环解决这个问题。

PS：今天文章写的很仓促，大部分代码都没有实验，请大家自己检验。另外，上次的作

业我不说答案了。不知道大家喜欢做这种题，还是以前那种比较简单的？

---------------------------------------------------------------------------

-----

第五篇：

范文范例指导参考

学习资料整理

今天我们来了解语言本身的最后一个论题:数组.

要理解"数组",这个概念我觉得另一种翻译对学习来说更加容易:"阵列",没错,

数组就是一个阵列,一个数据的阵列.最简单的例子是数据库系统,假设你要储存20名学

生的英语成绩,如果不是用数组,你则要创建20个不同的变量,累死.数组就是类型相同

(重要!)的一组数据(或者n组),用来储存相关的量,最简单的数组是一维数组,我们就先

来学习它吧.

什么是一维数组呢?在3维以下,你可以利用几何知识来理解"维"的概念,一维相

当于一条线,二维则是一个矩形,三维是一个长方体.我知道这么讲是很抽象的,我们先

举个一维数组的例子就比较容易了解了.

dima(9)'从零开始

fori=0to9

a(i)=i'填充每一个数组元素

msgbox(a(i))'输出数组元素

我们可以看到,定义一个数组的方法和定义一个变量没有什么不同,同样是使用

dim语句.定义一维数组的方法如下:

dim数组名(元素数量),这里大家要注意一点,这里定义的元素数量总是比你要的要

少一个,因为一个数组的起点是0号数据而不是1,所以大家一定要小心:你需要10个数

据,就定义"9",需要100个就定义99,依此类推.数组的元素可以看成一个个独立的变量,

你可以像独立的变量那样使用他们.数组元素的量可能是毫无关系的,比如第一个数组元

素储存你的年龄,第二个储存今年西瓜的销售量,但这种做法是不鼓励的,甚至是不被接

受的,不要这么干,这样的情况请定义独立的变量.for语句在数组中可算是大显身手,还

记得for吗?它累加一个变量,我们可以把这个变量应用在数组中正好用来读取或者填充

按照顺序排列的数组元素,上面就是这样一个例子.数组其实是很简单的东西(再BASIC语

言里面),数组难的是怎么捣弄这些循环,让他们按照你的要求运转.这个等到二维数组再

说,我们先看看如何手工填充数组.

如果你这个都想不到的话,那你真是白学了:

dimname(7),str'一共八个学生,str变量是用来把他们储存成一个字符串以便输出

fori=0to7

name(i)=inputbox("请输入第"&i+1&"个学生的名字")

str=str&""&name(i)

msgbox(str)

这样我们就有了一个小小的数据库,它们的数据排列可以看成这样:

name(0),name(1),name(2).....name(7)

看到了吧,所以我说我们可以把它看成是"一条线",等到我们学到了文件操作,

就可以把他们输出到文件中去了.一维数组有很多用处,我们来看一下一个复杂的例子.

我们要储存3各学生的名字,身高,成绩这三种数据,由于名字是字符串,而身高可能是

浮点数(带小数点的数),成绩则可能是整数,所以我们不能把他们储存在一个数组里面(不

要忘记,数组织只能存储同类的数据),所以我们要建3个数组,以下是例程:

dimname(2),high(2),mark(2)'定义三个数组分别储存3个人的名字,身高和得分

dimctr'计数器

forctr=0to2

name(ctr)=inputbox("请输入第"&ctr+1&"个学生的姓名")

范文范例指导参考

学习资料整理

high(ctr)=inputbox("请输入第"&ctr+1&"个学生的身高")

mark(ctr)=inputbox("请输入第"&ctr+1&"个学生的得分")

OK,我们已经填充好了数据,现在我们的小小数据库只能按顺序输入,我们要让

它看起来像点样子,我们来给他设计查询功能:

'接着上面的程序

dimcname,temp'要查询的名字,和一个临时变量,用来储存数据的位置

cname=inputbox("请输入你要查询的名字:")

forctr=0to2'遍历所有name数组的成员,寻找要查询的名字

ifname(ctr)=cnamethen

temp=ctr'记录数据位置

exitfor'退出循环,和exitdo的用法一样

endif'不要忘了endif

msgbox("姓名:"&name(temp)&""&"身高:"&high(temp)&""&"得分:"&

mark(temp))

嘿嘿,有意思吧,其实在这个程序里面,那个temp变量完全没有必要,只是为了

更清楚地说明问题.因为当exitfor以后ctr变量的值就不会改变,储存的正好是对应数

据在数组中的位置,写这个temp变量是为了照顾到以后要学C++的朋友(C++可以在for语

句里声明新变量,只在这个for结构中有效,所以到了外部就不能访问了).也就是说可以

简化成如下:

dimcname

cname=inputbox("请输入你要查询的名字:")

forctr=0to2

ifname(ctr)=cnamethenexitfor'因为只有exitfor就不需要块if了

msgbox("姓名:"&name(ctr)&""&"身高:"&high(ctr)&""&"得分:"&mark(ctr))

这是最直接的路子.好好重读一下上面所有的源代码,然后自己写几个程序,完

全搞清楚一维数组及其应用以后再看后面的二位数组.二维数组好像是一个一维数组的集

合,就好像"线积成面"一样,由n各一维数组组成二维数组,这是初学者比较好理解的办

法(比较精确的是用"编号"的概念去理解,因为4维以上的数组就比较难以用欧几里德几何

概念去解释了).二维数组是很好解释的,我们来看一下:

dima(2,2)'从零开始,一共有3X3=9个数据

dimi,j'需要两个计数器

fori=0to2

forj=0to2'使用嵌套循环

a(i,j)="X"

我们创建了一个这样的二维数组(那些","是我用来分割元素的,并不存在),了解

二维数组的了吗?不清楚我们再讲一下

编号012

0X,X,X

1X,X,X

范文范例指导参考

学习资料整理

2X,X,X

二维数组的看起来是不是就是一个矩形呢?(你在内存中看不到这样的矩形,只是

便于你理解),每个数据都有编号,由两个数来定位,这个很像(非常像)你在国际象棋棋盘

上寻找一个格,我们用类似"C6","A2"这样的"垂直坐标"进行定位,对,"垂直坐标",很确

切.我们要使用一个二维数组元素的时候可以和普通变量一样使用,只要指定数组元素的"

定位点"就可以了,例如

a(0)(1)=1,b(2)(1)="你好",诸如此类.要注意的是二维数组也只能储存类型相同的

元素,而且上标(起点)也从0开始.计算一个二维数组的元素个数只要把两个下标+1(以得

到实际的值)再乘起来就可以了,非常类似于求一个矩形的面积.

假如需要储存的都是同一类型的数据,我们就可以用二维数组,比如要储存5个

人的姓名,国籍,民族,就可以使用二维数据

diminfo(4,2)'一共五个人,要储存的数据类型有3项

dimi,j

fori=0to4

forj=0to2

dimopt'定义一个变量用于存储数据项提示

selectcasej'判断应该输入的是什么数据

case0

opt="姓名"

case1

opt="国籍"

case2

opt="民族"

endselect

info(i,j)=inputbox("请输入第"&i+1&"个人的"&opt)

'输出太麻烦了,我懒得动,你知道那么回事就行了

这样就不需要定义3个一维数组了.

多位数组(三维以上)的定义和使用方法与二维数组一样,但不太好在欧几里德几

何空间里加以解释,幸好我们并不太常用那么多维的数组.定义一个三位数组:dima(1,2,3)

'一共24各数组元素.

今天因为要搬家(我喜欢Sengkang啊,可是MM嫌交通不便,谁不知道她只想去逛

街),而GF要去和她的同学去参加什么试验半夜才回家,所以下午我只能自己去押车搬家了,

5555~~好可怜,这次就请大家原谅我少写一点,我可是站在图书馆外写的啊,

现在腿都软了~~~本来还要讲"动态数组"的,但想了想还是放到"进阶部分"再说吧.

要点:

1)一维数组是"线",二维数组是"面",三维数组是"体"(多维数组就乱套)

2)数组的下标从0开始

3)for循环在数组的应用中起了很大作用,二维数组需要嵌套循环

作业:

上次出的"百鸡问题",大家喜欢吗?以后我们就做这种需要动脑的题目,那些简

单的实践,大家一定要多做!

1)定义一个数组,包含5个元素,都是随机整数(随便输入),要求把他们按照从大

范文范例指导参考

学习资料整理

到小的顺序排列起来

2)有两个二维数组a(4,4)和b(4,4)(元素值随便),交换两个数组(原来的a的所有元

素值变成b的,b的所有元素值变成a的)

---------------------------------------------------------------------------

-----

最后一篇：

今天我们学习基础篇的最后一个部分:自定义函数和过程.我们每天都在和函

数打交道,inputbox()是函数,msgbox()是函数,int()也是函数...这些函数都是系统

内建的,我们只能用不能改.今天,我就教大家怎样自己制作一个函数.

首先我们要了解,为什么要用函数,我们用"实例"说话,先看一个例子:给出两

个数,输出较大的那一个.

dima1,a2,b1,b2,c1,c2

a1=2:a2=4'":"可以让你把多个语句写在一行上

b1=32:b2=67

c1=12:c2=898

ifa1>a2then

msgbox(a1)

elseifa1

msgbox(a2)

endif

ifb1>b2then

msgbox(b1)

elseifb1

msgbox(b2)

endif

ifc1>c2then

msgbox(c1)

elseifc1

msgbox(c2)

endif

多么麻烦呀,我们把相同的比较过程复制了好几遍,早期语言没有结构化(没有过

程和函数)的时候,程序员们的确是这么干的,他们复制(Copy),那个年代也没有剪贴板这

一说,大家都是重新输入代码.后来工作简化了:

dima1,a2,b1,b2,c1,c2

范文范例指导参考

学习资料整理

a1=2:a2=4

b1=32:b2=67

c1=12:c2=898

msgbox(co(a1,a2))

msgbox(co(b1,b2))

msgbox(co(c1,c2))

functionco(t1,t2)'我们使用function定义了一个新的函数

ift1>t2then

co=t1'通过"函数名=表达式"这种方法返回结果

elseift2>t1then

co=t2

endif

endfunction

我们在这里是用了一个新的关键字:funciton,这个关键字表示一个新函数开始,格

式:

funciton函数名(参数1,参数2...参数n)'列表可以是空的,但括号不能省略,参

数之间用","分割

...

exitfunciton'结束函数,不是必需的

...

endfunction

函数是一个模块,只有你调用的时候才会运行,也就说,当你编写了一个函数,

然后在程序中并不调用它,那么这个函数永远不会运行.一般来说,我们编写程序是按照:

主程序

函数1

函数2

详细解释一下:函数中最重要的是参数和返回值.参数是在函数名后面的()里定

义的,用","分割,使用参数的时候我们也用","分割.说到这里我想起一件事,昨天有个

朋友给我发消息问我:

msgbox(name1,name2,name3)

这个错在哪里?为什么不能同时显示出三个变量?这就是因为你用了",",这个符

号表示你输入的三个量作为三个不同参数传递给msgbox()函数,msgbox()函数只会显示出

第一个参数,第二个参数的作用是出现在标题栏.所以你应该用"&"或者"+"把三个字符串

变量连接起来,作为第一个参数传递给msgbox()函数.程序员说参数的时候经常说到"形

参","实参"这样的"黑话",我来解释一下."形参"是"形式参数"的简称,"实参"是"实际参

数"的简称,实参是指你调用函数的时候传递给函数的量,可以使变量或者常量(直接量),

例如:co(12,24)中的12,24就是实参.形参是你在函数定义时定义的变量,这些变量用来"

范文范例指导参考

学习资料整理

接住"传递过来的量,例如functionco(t1,t2)t1,t2就是形参.

在VBScript中,参数传递是一种传值,而不是传址(听不明白不要紧,学了C语

言的指针你就明白了),所以我们进行的参数传递实际上是进行了一次变量赋值,例如我们

调用co(a1,a2),实际上程序会执行一步:t1=a1,t2=a2这样的操作.同样因为传值传址的

原因,VBScript只能返回一个值,我们先来看看什么叫"返回".当一个过程调用了另一个

过程的时候(比如主程序调用了函数),控制权就到了被调用过程那里,当这个过程执行完

毕以后,会回到调用它的地方继续执行,这个就叫做"返回",返回的时候可以带一个值叫

做"返回值"(这是"通俗"的理解).在vbs继承了basic的传统,返回的时候采用"函数名=

返回值"的办法,这个"返回值"是指一个表达式(在编程中,任何东西都是表达式,比如变量

a,常数0,"Hello",c=1+2等等这都是表达式).比如有一个函数是ht,则返回的方法

是:ht=你要返回的值.注意:返回以后,后面的语句将不再执行.

调用一个函数我就不用讲了吧:变量=函数名(参数)

有时候我们并不需要返回什么值,这个时候我们可以使用一种称之为"子程序"的

结构.子程序或称之为过程与函数的差别就在于:1)没有返回值,2)使用sub关键字定义,

3)通过Call调用.具个例子:

dimyname

name=inputbox("请输入你的名字:")

callwho(yname)

subwho(cname)

msgbox("你好"&cname)

msgbox("感谢你阅读我的课程")

msgbox("这是基础部分的最后一课")

endsub

你一定看明白了,很简单的.退出一个过程和退出一个函数一样:exitsub(函

数:exitfunction).

要注意,子程序(过程)是比较特殊的一个结构,C等语言是没有这个概念的,C语

言中的一切都是函数,没有返回值的函数在C语言中只要使用void修饰符定义就行了.

今天没有什么可讲的了,基础篇就这么结束了,目前你已经有了基本的编程概念

(面向过程的结构化编程),可以选择学习另外一种语言(比如C或Pascal),现在的基础会

有一定的帮助.你也可以去买本书继续学习vbs或通过它更详细的了解编程。

范文范例指导参考

学习资料整理

（本文完）

👁️ 阅读量：0

🔖 本文标签：

🔥 最新发布文章