(
课件网) 【案例5】竞赛作品评定 案例效果 涵盖知识 操作步骤 案例小结 实训练习 涵盖知识 随机函数 每次调用随机函数Rnd，将返回一个0~1之间的单精度随机数，其调用格式如下： Rnd[(x)] 其中x作为随机函数参数，可以是任何单精度常数或有效的数值表达式。若x<0，则每次都使用x作为随机数的种子得到的相同结果；若x>0，则以上一个随机数作为种子，产生序列中的下一个随机数；若x=0，则返回与最近生成的随机数相同的随机数。 涵盖知识 2. 数组 1) 数组的概念 数组和数组元素。 数组名是用于标识数组的名字，其命名规则与简单变量的命名规则相同，如可以定义存放学生成绩的数组变量命名为StScore。 存储在数组中的每一个数据称为一个元素，即数组元素。命名了一个数组，则数组中每一个数组元素都拥有相同的名字，即数组名。同一个数组的每个元素都具有相同的名字：数组名。 涵盖知识 1) 数组的概念 (2) 数组下标与维数。 数组的下标即数组的索引，它规定了数组中元素的个数和位置，其下标值唯一地标识一个数组元素。根据需要，可以给数组定义一个下标，也可以定义多个下标。 涵盖知识 2) 数组的定义 固定大小(静态)数组的定义 Dim|Private|Public|Static <数组名> (<下标列表>) [As 数据类型][,……] Dim：用于在过程（Procedure）、窗体模块（Form）或标准模块（Module）中建立一个数组变量。 Private：用于在窗体模块、标准模块的通用声明中建立一个模块级的私有数组变量 Public：用于在标准模块中建立一个全局数组变量 Static：用于在过程中建立一个静态数组变量 涵盖知识 2) 数组的定义 (2) 可变大小(动态)数组的定义。 第一步，在模块的通用声明段声明一个不指定下标的数组，格式如下。 Dim|Private|Public|Static <数组名> () [As 数据类型][,……] 如： Dim MyArry() As Integer 第二步，在过程中重新定义该数组，指定数组的下标，格式如下。 ReDim [Preserve] <数组名> (下标列表) [As 数据类型][,……] Preserve：可选，当使用Preserve时，将保留重定义前数组中数组元素的值，否则系统将对数组重新初始化 涵盖知识 3) 常用数组函数和语句 格式：LBound(数组名 [,指定的维数]) UBound(数组名 [,指定的维数]) 若缺省指定维数，默认为1。 前者返回指定数组可用的最小下标，后者得到的是最大下标。 涵盖知识 3. 循环的嵌套 包含另一个循环结构的循环为外层循环；包含在一个循环结构中的循环称为内层循环；只有一层循环结构时称为单层循环，当有循环的嵌套时称为多层循环。 操作步骤 启动Visual Basic，设计程序界面 设置对象属性 对象名 对象属性名 属性值 Form1 Name Form1 Caption 竞赛作品评定 Command1 Name Command1 Caption 模拟生成竞赛成绩 Font 宋体、五号 Command2 Name Command2 Caption 成绩排名 Font 宋体、五号 Text1/Text2 Name Text1/Text2 Font 宋体、五号 Multiline True Scrollbars 1-Horizontal 操作步骤 3) 写代码 操作步骤 4) 保存程序，并生成可执行文件 将本题保存为一个名为“竞赛作品评定.frm”的窗体文件和一个名为“竞赛作品评定.vbp”的工程文件，并生成一个名为“竞赛作品评定.exe”的可执行文件。 案例小结 本案例主要介绍了数组的概念、数组的定义、数组在实际编程中的应用、循环嵌套的使用。重点是利用数组进行合理的数据编程。 实训练习 (1) 用数组编程生成斐波那契数列的前20项。 斐波那契数列的第一项为0，第二项为1，第三项后的各项均为其前两项之和。如0，1，1，2，3，5，8，13，… (2) 编写一个应用程序，针对一个整型数组具有以下功能，每个功能由一个过程来实现。 ① 读入一个由n个元素组成的整型 ... ...
