visualbasic可视化程序的设计教程数组.pptVIP

2019/12/17 1 第 7 章 数 组 7.1 数组的概念 7.2 一维数组 7.3 二维数组 7.4 可调数组 7.5 控件数组 7.6 应用举例 2019/12/17 2 7.1 数组的概念 7.1.1 引例 例 7.1 若我们要求一个班 50 个学生的平均成绩，然后统 计高于平均分的人数。 用简单变量结合 For — Next 语句，求平均成绩的程序段 如下： P=0 for I=1 to 50 C=inputbox(“ 请输入第” I “ 位学生的成绩：” ) P=P+C next I P=P/50 但若要统计高于平均分的人数，则无法实现。 2019/12/17 3 用数组解决求 50 人的平均分和高于平均分的人数，完 整程序编写如下： Private Sub Command1-Click() Dim C(1 to 50) As Integer Dim P!,N%,I% P=0 For I=