1位选手参加了歌唱比赛，评委们的评分如下: 2 3 4 5 6 7 8 9 10 成绩 70 75 90 80 85 78 68 72 95 一批同一类型、相同性质
学号 001 002 003 004 005 姓名 丁一 王诗 苏冕 陈以诺 林森林 一批同一类型、相同性质
数组
数组 定义：相同数据类型的元素按一定顺序排列的集合。 就是把有限个类型相同的变量用一个名字命名，然后用编号区分他们的变量的集合，这个名字称为数组名，编号称为下标。
数组的定义方式 第一种形式： dim a(1 to 3) as integer a(1)=21 : a(2)=23: a(3)=15 第二种形式： dim b(3) as string ‘ (有四个元素)，下标从0到3 b(0)=“01” : b(1)=“02” : b(2)=“03” : b(3)=“04”
复习：随机数 Rnd: [0,1)，产生一个大于等于0且小于1的随机数。 在用Rnd之前请添加这个语句： Randmize
产生[n,m]之间的随机数 通式：int(Rnd*(m-n+1))+n
复习：过程（局部）变量与窗体变量 过程变量 窗体变量 作用范围 过程内 整个窗体 定义位置 过程内部 过程外部，窗体上方 例子 Sub command1_click() Dim a As integer a=a+1 End Sub Sub command2_click() a=a+2 连续2次单击Command1 A的值为1 A的值为2 单击一次Command1 再单击一次Command2 A的值为3
成绩统计 模拟成绩统计，求平均分。 要求平均分保留1位小数。
Dim a(1 to 40 ) as integer ‘将存放成绩的数组定义成整数型的窗体变量 窗体加载随机产生40个成绩，并在list1中显示 计算平均分并显示 Private Sub Form_Load() Dim i As Integer Randomize For i = 1 To 40 a(i) = Int(Rnd * 100) List1.AddItem Str(a(i)) Next End Sub Private Sub Command1_Click() Dim ave As Single Dim s As Integer s= s+ a(i) ave= s / 40 Text1.Text = Str(ave)
学生任务 1、窗体一加载，随机产生55个50-100之间的整数成绩，并显示在list1列表框中。 2、在text1中输入一个要查找的数字，点击“查找”按钮开始在List1中查找，如果找到，在Label3中显示是第几个（记录第一次找到该数的下标）；如果找不到，显示“找不到”。 3、求出所有成绩的平均分，保留2位小数。 4、求出高于平均分的人数。（提高任务）
保留n位小数 对变量a的值保留n位小数 Int(a*10^n+0.5)/10^n