VBS编程教程5.docVIP

VBS编程教程5 请允许我先描述一下我现在的环境:气温高达37摄氏度, 而我忘记了图书馆开门的时间, 还要在这里站上一个小时, 在热带植物的包裹下, 各种奇怪的小飞虫围着我转来转去. 不过令我欣慰的是, 终于写到五了, 还有两课我们的基础篇就要结束了. 今天我们来了解语言本身的最后一个论题:数组. 　　要理解数组, 这个概念我觉得另一种翻译对学习来说更加容易:阵列, 没错, 数组就是一个阵列, 一个数据的阵列. 最简单的例子是数据库系统, 假设你要储存20名学生的英语成绩, 如果不是用数组, 你则要创建20个不同的变量, 累死. 数组就是类型相同(重要!)的一组数据(或者n组), 用来储存相关的量, 最简单的数组是一维数组, 我们就先来学习它吧. 　　什么是一维数组呢? 在3维以下,你可以利用几何知识来理解维的概念,一维相当于一条线, 二维则是一个矩形, 三维是一个长方体. 我知道这么讲是很抽象的, 我们先举个一维数组的例子就比较容易了解了. dim a(9) for i=0 to 9从零开始 a(i)=i 填充每一个数组元素 msgbox(a(i)) 输出数组元素 next 　　我们可以看到, 定义一个数组的方法和定义一个变量没有什么不同, 同样是使用dim语句. 定义一维数组的方法如下: dim 数组名(元素数量), 这里大家要注意一点, 这里定义的元素数量总是比你要的要少一个, 因为一个数组的起点是0号数据而不是1, 所以大家一定要小心: 你需要10个数据, 就定义9, 需要100个就定义99, 依此类推. 数组的元素可以看成一个个独立的变量, 你可以像独立的变量那样使用他们. 数组元素的量可能是毫无关系的, 比如第一个数组元素储存你的年龄, 第二个储存今年西瓜的销售量, 但这种做法是不鼓励的, 甚至是不被接受的, 不要这么干, 这样的情况请定义独立的变量. for语句在数组中可算是大显身手, 还记得for吗? 它累加一个变量, 我们可以把这个变量应用在数组中正好用来读取或者填充按照顺序排列的数组元素, 上面就是这样一个例子. 数组其实是很简单的东西(再BASIC语言里面), 数组难的是怎么捣弄这些循环, 让他们按照你的要求运转. 这个等到二维数组再说, 我们先看看如何手工填充数组. 如果你这个都想不到的话, 那你真是白学了: dim name(7),str 一共八个学生, str变量是用来把他们储存成一个字符串以便输出 for i=0 to 7 name(i)=inputbox(请输入第 i+1 个学生的名字) str=str name(i) 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(请输入第 ctr+1 个学生的姓名) high(ctr)=inputbox(请输入第 ctr+1 个学生的身高) mark(ctr)=inputbox(请输入第 ctr+1 个学生的得分) 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(姓名: name(temp) 身高: high(temp) 得分: mark(temp)) 　　嘿嘿, 有意思吧, 其实在这个程序里面, 那个temp变量完全没有必要, 只是为了更清楚地说明问题. 因为当exit