大的for执行一次, 小的要执行9次), 所以一共执行了九九八十一次. 在大的for里可以不仅仅是一个小的for, 也可以加上另外的语句. 我们来修改一下源程序: dim i,j for i=1 to 9 for j=1 to 9
str=str & i * j & \
next '每个next对应一个for
str=str & vbCrlf 'vbCrlf相当于键盘上的回车键,因为你不能在键盘上输入,所以系统定义了一个默认的常量 next msgbox str
这次运行完成以后, 输出结果按照乘数进行了分割, 每小for运行完一次, 就换一行(通过vbcrlf).
这次的内容对菜鸟可能比较难懂, 掌握的办法只有一个:多实践. 另外, 我在论坛看到很多人还问:\要用什么工具编?\我就很气愤, 我在第一篇里面已经说明:用记事本编辑源代码, 然后保存为以.vbs为扩展名的程序就可以了, 请大家不要用其他工具编写,否则很容易引起错误.
另外, 国产的一种垃圾软件\超级X霸\抢占了vbs这个扩展名, 请把那个垃圾卸载掉. 我们来总结一下:
要点:
1) do..loop和exit do的用法
2) while当表达式true的时候执行循环体,until反之 3) for...next是计数循环, 每次执行计数器递加 4) 嵌套循环的作用和写法 4.5) &用于连接字符串
5) vbCrLf相当于键盘上的回车键 作业:
1) 在我国的数学经典著作\九章算术\中有这样一道题:百钱买百鸡, 公鸡5钱一只, 母鸡3钱一只, 小鸡1钱3只)求得是能有多少种办法买这些鸡. 如果看不懂的话我用大白话说说:有人要去买鸡, 用100块钱正好买了100只鸡, 价格如下:公:5$, 母:3$, 小:1$ for 3, 让你求一共多少种卖法(公母小怎么搭配). 请用循环解决这个问题. 第五篇（共六篇）
今天我们来了解语言本身的最后一个论题:数组.
要理解\数组\这个概念我觉得另一种翻译对学习来说更加容易:\阵列\没错, 数组就是一个阵列, 一个数据的阵列. 最简单的例子是数据库系统, 假设你要储存20名学生的英语成绩, 如果不是用数组, 你则要创建20个不同的变量, 累死. 数组就是类型相同(重要!)的一组数据(或者n组), 用来储存相关的量, 最简单的数组是一维数组, 我们就先来学习它吧.
什么是一维数组呢? 在3维以下,你可以利用几何知识来理解\维\的概念,一维相当于一条线, 二维则是一个矩形, 三维是一个长方体. 我知道这么讲是很抽象的, 我们先举个一维数组的例子就比较容易了解了. dim a(9) '从零开始
for i=0 to 9
a(i)=i '填充每一个数组元素 msgbox a(i) '输出数组元素 next
我们可以看到, 定义一个数组的方法和定义一个变量没有什么不同, 同样是使用dim语句. 定义一维数组的方法如下:
dim 数组名(元素数量), 这里大家要注意一点, 这里定义的元素数量总是比你要的要少一个, 因为一个数组的起点是0号数据而不是1, 所以大家一定要小心: 你需要10个数据, 就定义\需要100个就定义99, 依此类推. 数组的元素可以看成一个个独立的变量, 你可以像独立的变量那样使用他们. 数组元素的量可能是毫无关系的, 比如第一个数组元素储存你的年龄, 第二个储存今年西瓜的销售量, 但这种做法是不鼓励的, 甚至是不被接受的, 不要这么干, 这样的情况请定义独立的变量. for语句在数组中可算是大显身手, 还记得for吗? 它累加一个变量, 我们可以把这个变量应用在数组中正好用来读取或者填充按照顺序排列的数组元素, 上面就是这样一个例子. 数组其实是很简单的东西(再BASIC语言里面), 数组难的是怎么捣弄这些循环, 让他们按照你的要求运转. 这个等到二维数组再
说, 我们先看看如何手工填充数组.
如果你这个都想不到的话, 那你真是白学了:
dim name(7),str '一共八个学生, str变量是用来把他们储存成一个字符串以便输出 for i=0 to 7
name(i)=inputbox(\请输入第\个学生的名字\ str=str & \ next
msgbox str
这样我们就有了一个小小的数据库, 它们的数据排列可以看成这样: name(0),name(1),name(2).....name(7)
看到了吧, 所以我说我们可以把它看成是\一条线\等到我们学到了文件操作, 就可以把他们输出到文件中去了. 一维数组有很多用处, 我们来看一下一个复杂的例子. 我们要储存3各学生的名字, 身高, 成绩这三种数据, 由于名字是字符串, 而身高可能是浮点数(带小数点的数), 成绩则可能是整数, 所以我们不能把他们储存在一个数组里面(不要忘记, 数组织只能存储同类的数据), 所以我们要建3个数组, 以下是例程: dim name(2), high(2), mark(2) '定义三个数组分别储存3个人的名字, 身高和得分 dim ctr '计数器
for ctr=0 to 2
name(ctr)=inputbox(\请输入第\个学生的姓名\ high(ctr)=inputbox(\请输入第\个学生的身高\ mark(ctr)=inputbox(\请输入第\个学生的得分\ next
OK, 我们已经填充好了数据, 现在我们的小小数据库只能按顺序输入, 我们要让它看起来像点样子, 我们来给他设计查询功能: '接着上面的程序
dim cname, temp '要查询的名字, 和一个临时变量, 用来储存数据的位置 cname=inputbox(\请输入你要查询的名字:\
for ctr=0 to 2 '遍历所有name数组的成员, 寻找要查询的名字 if name(ctr)=cname then temp=ctr '记录数据位置
exit for '退出循环, 和exit do的用法一样 end if '不要忘了end if
next
msgbox \姓名:\身高:\得分:\
嘿嘿, 有意思吧, 其实在这个程序里面, 那个temp变量完全没有必要, 只是为了更清楚地说明问题. 因为当exit for以后ctr变量的值就不会改变, 储存的正好是对应数据在数组中的位置, 写这个temp变量是为了照顾到以后要学C++的朋友(C++可以在for语句里声明新变量, 只在这个for结构中有效, 所以到了外部就不能访问了). 也就是说可以简化成如下: dim cname
cname=inputbox(\请输入你要查询的名字:\ for ctr=0 to 2
if name(ctr)=cname then exit for '因为只有exit for就不需要块if了 next
msgbox \姓名:\身高:\得分:\
这是最直接的路子. 好好重读一下上面所有的源代码, 然后自己写几个程序, 完全搞清楚一维数组及其应用以后再看后面的二位数组. 二维数组好像是一个一维数组的集合, 就好像\线积成面\一样, 由n各一维数组组成二维数组, 这是初学者比较好理解的办法(比较精确的是用\编号\的概念去理解, 因为4维以上的数组就比较难以用欧几里德几何概念去解释了). 二维数组是很好解释的, 我们来看一下: dim a(2,2) '从零开始, 一共有3 X 3 = 9 个数据 dim i,j '需要两个计数器
for i=0 to 2
for j=0 to 2 '使用嵌套循环 a(i,j)=\ next
next
我们创建了一个这样的二维数组(那些\是我用来分割元素的,并不存在), 了解二维数组的了吗? 不清楚我们再讲一下 编号 0 1 2 0 X,X,X 1 X,X,X 2 X,X,X
二维数组的看起来是不是就是一个矩形呢?(你在内存中看不到这样的矩形, 只是便于你理解), 每个数据都有编号, 由两个数来定位, 这个很像(非常像)你在国际象棋棋盘上寻找一个格, 我们用类似\这样的\垂直坐标\进行定位, 对, \垂直坐标\很确切. 我们要使用一个二维数组元素的时候可以和普通变量一样使用, 只要指定数组元素的\定位点\就可以了, 例如a(0)(1)=1, b(2)(1)=\你好\诸如此类. 要注意的是二维数组也只能储存类型相同的元素, 而且上标(起点)也从0开始. 计算一个二维数组的元素个数只要把两个下标+1(以得到实际的值)再乘起来就可以了, 非常类似于求一个矩形的面积.
假如需要储存的都是同一类型的数据, 我们就可以用二维数组, 比如要储存5个人的姓名,国籍,民族, 就可以使用二维数据
dim info(4,2) '一共五个人, 要储存的数据类型有3项 dim i,j for i=0 to 4
for j=0 to 2
dim opt '定义一个变量用于存储数据项提示 select case j '判断应该输入的是什么数据 case 0
opt=\姓名\ case 1
opt=\国籍\ case 2
opt=\民族\
end select
info(i,j)=inputbox(\请输入第\个人的\ next
next
'输出太麻烦了, 我懒得动, 你知道那么回事就行了
这样就不需要定义3个一维数组了.
多位数组(三维以上)的定义和使用方法与二维数组一样, 但不太好在欧几里德几何空间里加以解释, 幸好我们并不太常用那么多维的数组.定义一个三位数组:dim a(1,2,3) '一共24各数组元素. 要点:
1) 一维数组是\线\二维数组是\面\三维数组是\体\多维数组就乱套) 2) 数组的下标从0开始
3) for循环在数组的应用中起了很大作用, 二维数组需要嵌套循环 作业:
上次出的\百鸡问题\大家喜欢吗? 以后我们就做这种需要动脑的题目, 那些简单的实践, 大家一定要多做! 1) 定义一个数组, 包含5个元素, 都是随机整数(随便输入), 要求把他们按照从大到小的顺序排列起来
2) 有两个二维数组a(4,4)和b(4,4) (元素值随便), 交换两个数组(原来的a的所有元素值变成b的, b的所有元素值变成a的) 最后一篇：
今天我们学习基础篇的最后一个部分：自定义函数和过程. 我们每天都在和函数打交道, inputbox()是函数, msgbox )是函数, int(也是函数...这些函数都是系统内建的, 我们只能用不能改. 今天, 我就教大家怎样自己制作一个函数.
首先我们要了解, 为什么要用函数, 我们用\实例\说话, 先看一个例子: 给出两个数, 输出较大的那一个. dim a1,a2,b1,b2,c1,c2
a1=2:a2=4 '\可以让你把多个语句写在一行上 b1=32:b2=67 c1=12:c2=898 if a1>a2 then msgbox a1 elseif a1
if b1>b2 then msgbox b1 elseif b1 if c1>c2 then msgbox c1 elseif c1 end if 多么麻烦呀, 我们把相同的比较过程复制了好几遍, 早期语言没有结构化(没有过程和函数)的时候, 程序员们的确是这么干的, 那个年代也没有剪贴板这一说, 大家都是重新输入代码. 后来工作简化了: dim a1,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) function co(t1,t2) '我们使用function定义了一个新的函数 if t1>t2 then co=t1 '通过\函数名=表达式\这种方法返回结果 elseif t2>t1 then co=t2 end if end function 我们在这里是用了一个新的关键字:funciton, 这个关键字表示一个新函数开始, 格式: function 函数名(参数1, 参数2...参数n) '列表可以是空的, 但括号不能省略, 参数之间用\分割 ... exit function '结束函数, 不是必需的 ... end function 函数是一个模块, 只有你调用的时候才会运行, 也就说, 当你编写了一个函数, 然后在程序中并不调用它, 那么这个函数永远不会运行. 一般来说, 我们编写程序是按照: 主程序 ...... ...... ...... 函数1 ...... ...... 函数2 ...... ...... 详细解释一下: 函数中最重要的是参数和返回值. 参数是在函数名后面的()里定义的, 用\分割, 使用参数的时候我们也用\分割. 说到这里我想起一件事, 昨天有个朋友给我发消息问我: msgbox name1,name2,name3 这个错在哪里? 为什么不能同时显示出三个变量? 这就是因为你用了\这个符号表示你输入的三个量作为三个不同参数传递给msgbox )函数, msgbox()函数只会显示出第一个参数, 第二个参数的作用是出现在标题栏. 所以你应该用\或者\把三个字符串变量连接起来, 作为第一个参数传递给msgbox()函数. 程序员说参数的时候经常说到\形参\实参\这样的\黑话\我来解释一下. \形参\是\形式参数\的简称, \实参\是\实际参数\的简称, 实参是指你调用函数的时候传递给函数的量, 可以使变量或者常量(直接量), 例如:co(12,24)中的12,24就是实参. 形参是你在函数定义时定义的变量, 这些变量用来\接住\传递过来的量, 例如function co(t1,t2t1,t2就是形参. 在VBScript中, 参数传递是一种传值, 而不是传址(听不明白不要紧, 学了C语言的指针你就明白了), 所以我们进行的参数传递实际上是进行了一次变量赋值, 例如我们调用co(a1,a2), 实际上程序会执行一步:t1=a1,t2=a2这样的操作. 同样因为传值传址的原因, VBScript只能返回一个值, 我们先来看看什么叫\返回\当一个过程调用了另一个过程的时候(比如主程序调用了函数), 控制权就到了被调用过程那里, 当这个过程执行完毕以后, 会回到调用它的地方继续执行, 这个就叫做\返回\返回的时候可以带一个值叫做\返回值\这是\通俗\的理解). 在vbs继承了basic的传统, 返回的时候采用\函数名=返回值\的办法, 这个\返回值\是指一个表达式(在编程中, 任何东西都是表达式, 比如变量a, 常数0, \等等这都是表达式). 比如 有一个函数是ht, 则返回的方法是:ht=你要返回的值. 注意:返回以后, 后面的语句将不再执行. 调用一个函数我就不用讲了吧:变量=函数名(参数) 有时候我们并不需要返回什么值, 这个时候我们可以使用一种称之为\子程序\的结构. 子程序或称之为过程与函数的差别 就在于:1) 没有返回值, 2) 使用sub关键字定义, 3) 通过Call调用.举个例子: dim yname yname=inputbox(\请输入你的名字:\ call who(yname) sub who(cname) msgbox \你好\ msgbox \感谢你阅读我的课程\ msgbox \这是基础部分的最后一课\ end sub 你一定看明白了, 很简单的. 退出一个过程和退出一个函数一样:exit sub(函数:exit function). 要注意, 子程序(过程)是比较特殊的一个结构, C等语言是没有这个概念的, C语言中的一切都是函数, 没有返回值的函数 在C语言中只要使用void修饰符定义就行了. 今天没有什么可讲的了, 基础篇就这么结束了, 目前你已经有了基本的编程概念(面向过程的结构化编程), 可以选择学习另外一种语言(比如C或Pascal), 现在的基础会有一定的帮助. 如果你想要继续学习vbs或通过它更详细的了解编程在转型可以跟我继续学习, 但因为我的假期结束所以更新的时间可能会比较慢, 请大家原谅．初步计划如下: 进阶篇: 变量的深入讨论 ┣ 变量类型 ┣ 变量的有效范围