一维数组应用实例.ppt

数组的定义方式: ◆Dim：用在窗体模块或标准模块及过程中，定义窗体或标准模块级数组； ◆ReDim：用来重新定义动态数组； ◆Static：用来说明该数组为静态数组； ◆Global(Public)：用在全局模块中(标准模块)中，说明数组为全局的； Visual Basic 程序设计 1、一维数组: 一个数组若只有一个下标就能确定一个数组元素的数组中的位置 定义形式： Dim 数组名([下标下界 To ]下标上界 ) As 类型名称 如：Dim a(1 to10) as integer Dim b(10) as integer Visual Basic 程序设计 例: Dim C(9) As Integer 一维整型数组；下界0，上界为9 元素：C(0) C(1) C(2) …… C(9) 例: Dim A(-4 TO 10) As Integer 一维整型数组；下界 -4，上界 10 元素 A(-4) A(-3) ... A(0) A(1) ... A(10) 例: DIM M(-3 TO 10) 一维可变类型数组 例: CONST Y1=10 CONST Y2=50 DIM ABC(Y1 TO Y2) AS INTEGER Visual Basic 程序设计 一维数组应用实例 Visual Basic 程序设计 例【7-1】利用一维数组统计一个班学生的成绩在0－9、10－19、20－29、…、90－99以及100各分数段的人数分布 解题思路：定义一个有11个元素的一维数组a( 0 to 10)， a(0)：0－9分的学生人数； a(1)：10－19分的学生人数； a(2)：20－29分的学生人数； … a(9)：90－99分的学生人数； a(10)：100分的学生人数； 根据学生成绩score，计算int（score/10），将其分类到相应的数组元素中。 Visual Basic 程序设计 实例一 分类统计 例【7-2】输入若干个学生的成绩，统计不及格人数和优秀人数。 设计界面： Visual Basic 程序设计 Text 1 Command 1 Picture 1 Visual Basic 程序设计 设运行时学生成绩直接输入到文本框Text1中，各成绩之间用逗号分隔。代码首先使用Split函数将文本框Text1中输入的成绩分离开，保存到数组A中。 引入计数变量—设两个计数变量num1和num2，分别用来保存不及格学生人数和优秀学生人数。将计数变量初始化为0， 统计过程—逐一取数组元素进行判断，如果数组元素的值小于60，则让num1累加1，如果数组元素的值大于或等于90，则让num2累加1。 分析： Private Sub Command1_Click() Dim A, N As Integer Dim num1 As Integer, num2 As Integer A = Split(Text1.Text, ,) N = UBound(A) num1 = 0: num2 = 0 For i = 0 To N Select Case Val(A(i)) Case Is 60 num1 = num1 + 1 Case Is = 90 num2 = num2 + 1 End Select Next i Visual Basic 程序设计 代码设计 显示统计结果 Picture1.Cls 定义打印位置 Picture1.CurrentX = 100 运行界面： Picture1.CurrentY = 100 Picture1.Print 不及格人数：; num1; _ Tab(18); 优秀人数：; num2 End Sub Visual Basic 程序设计 例【7-3】输入若干名学生的成绩，求平均分