实验五分析.doc

上海立信会计学院本科实验报告 班级： 学号： 姓名： 指导教师： 系部： 专业： 实验时间： 实验5 数组 实验目的 掌握数组的声明、数组元素的引用 掌握固定长度数组和动态数组的使用差别 二、实验要求 在C:\下建立子文件夹“VB实验5”，按照题目要求，在该文件夹下为各题保存相应的文件，如本实验中的第一题，需保存的文件有：工程文件(51.vbp)、窗体文件(51.frm) 及可执行文件（51.exe），本实验中的第二题，需保存的文件有：工程文件(52.vbp)、窗体文件(52.frm) 及可执行文件（52.exe），其余实验依此类推。 撰写实验过程中出现了哪些问题、错误，你是如何解决的，做一个小结。 实验内容： 随机产生30～100（包括30、100）的10个正整数，存放于数组中，显示该数组的值，并求出最大值、最小值和平均值，如图5-1所示。要求：窗体显示字体默认、大小为小三，通过单击窗体触发程序运行。 图5-1 分析： 1、随机产生30～100（包括30、100）的10个正整数，存放于数组中 设定一个10个元素的数组，来存放随机生成的10个正整数，程序如下： Dim a(9) as integer randomize For i=0 to 9 A(i)=int(rnd*71+30) Next i 2、求出最大值(max)、最小值(min)和平均值(ave) 求最大值： 先设最大值max为数组中第一个元素，那么可以先设定max=a(0) 将max和数组中其余9个元素一个一个对比，如果max小于数组中元素a(i)，则max等于数组中元素a(i)，这样可以保证最终的max是最大的，对比程序如下： Max=a(0) For i=1 to 9 If maxa(i) then max=a(i) Next i 求最小值： 参照求最大值，设最小值min为数组中第一个元素，然后和数组中元素一个个比较，如果min大于数组中元素a(i)，则将a(i)的值给最小值，即min=a(i)，程序如下： Min=a(i) For i=1 to 9 If mina(i) then min=a(i) Next i 求平均值： 要求平均值，肯定要先求数组中元素的总值，再根据总值除以元素个数就可以求出平均值，程序如下： Ave=0 For i=0 to 9 Ave=ave+a(i) Next i Ave=ave/10 已知6个学生的成绩，通过Array函数对数组赋初值，利用String函数，以每5分用一个“◆”符号显示，随后显示学生的成绩。要求：窗体中所有控件字体默认、大小为小四，计算结果在程序启动时立即在窗体中显示。效果如图5-2所示。 图5-2 分析： 1、已知6个学生的成绩，通过Array函数对数组赋初值 根据要求，声明一个数组mark用来存放6个学生的成绩，用array函数来对数组赋初值，则程序如下： Dim mark Mark=array(56,78,98,88,76,78) 2、利用String函数，以每5分用一个“◆”符号显示，随后显示学生的成绩 利用string函数来显示“◆”，要打印出个数，则根据成绩来确定，如98分，则打印98\5（即成绩是5的多少倍）个“◆”，用for循环将每个数组中的成绩打印出来 For i = 0 To UBound(mark) ‘ubound(mark)取得数组mark的上界 Print String(mark(i) \ 5, ◆); mark(i) Print Next i 3、计算结果在程序启动时立即在窗体中显示 注：根据题义，事件是form_load事件，别忘记了设置autoredraw为true 随机产生20个学生的成绩（整数），统计各分数段人数。即0～59、60～69、70～79、80～89、90～100，并显示结果，效果如图5-3所示。 要求：（1）单击按钮“产生并显示数据”按钮时，产生的数据在Picture1显示，单击“统计分数段人数”时，统计的结果在Picture2显示。 （2）学生成绩和统计结果分别放在两个不同的数组中。 （3）所有控件字体默认、大小为小四。 图5-3 分析：看题目要求，要声明两个数组，mark(1 to 20)用来放20个学生的成绩，s(5 to 9)用来放统计结果,这边注意，因为装成绩的数组在两个按钮的单击事件中都要调用到，所以mark数组的声明要在两个事件的外面 （1）单击按钮“产生并显示数据”按钮时，产生的数据在Picture1显示