发现大部分黑白的朋友都不会编程(19)

主要是对编程初学者提供资料

种做法是不鼓励的, 甚至是不被接受的, 不要这么干, 这样的情况请定义独立的变量. 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)http://www.77cn.com.cn(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

百度搜索“77cn”或“免费范文网”即可找到本站免费阅读全部范文。收藏本站方便下次阅读，免费范文网，提供经典小说教育文库发现大部分黑白的朋友都不会编程(19)在线全文阅读。