VB实验E_数组和自定义类型.pdfVIP

实验E 数组和自定义类型 一、实验目的 1. 掌握数组的声明、数组元素的引用。 2. 掌握固定长度数组和动态数组的使用差别。 3. 掌握数组常用的操作和常用算法。 4. 掌握列表和组合框的使用。 5. 掌握自定义类型及数组的使用。 二、实验内容 1. 随机产生30～100 （包括30，100）的10个正整数，求最大值、最小值、 平均值，并显示整个数组的值和结果，如图E11所示。 代码： PrivateSubForm_Click() Dimi%,s%(1To10),max%,min%,avg! Fori= 1To10 s(i)=Int(Rnd*71+30) Nexti max=s(1) min=s(1) avg=s(1) Fori=2To10 Ifs(i)maxThenmax=s(i) Ifs(i)minThenmin=s(i) avg=avg+s(i) Nexti avg=avg/ 10 Fori= 1To10 Prints(i); Nexti Print Printmax=;max;min=;min;avg=;avg EndSub 2. 6 String 5 已知 个学生的成绩，通过对数组赋初值的方法，利用 函数，以每 E2 分为一个 “◆”显示，并显示学生的成绩，如图 所示。 代码： PrivateSubForm_Click() Dims%(1To6),n% Fori= 1To6 s(i)=Val(InputBox(请输入学生的成绩)) n=s(i)\5 PrintString(n, );s(i) ◆ Nexti EndSub 3. 20 0 59 60 69 70 随机产生 个学生的成绩，统计各分数段人数。即 ～ ， ～ ， ～ 79 80 89,90~100, picture1 ， ～ 并显示结果。产生的数据在 显示，统计结果 picture2 E3 在 显示，如图 所示。 代码： Dimmark%(19),i% PrivateSubCommand1_Click() Me.Picture1.Cl Fori=0To19 mark(i)=Int(Rnd*101) Me.Picture1.Printmark(i); If(i+ 1)Mod5=0ThenMe.Picture1.Print Nexti EndSub PrivateSubCommand2_Click() Me.Picture2.Cl Dims%(9) Fori=0To19 k=mark(i)\ 10 SelectCasek Case0To5 s(5)=s(5)+ 1 Case9To10 s(9)=s(9)+ 1 Case6To8 s(k)=s(k)+ 1 EndSelect Nexti Fork=5To9 Ifs(k)0Then Me.Picture2.Prints(;k;) ;s(k); 的人数有 个 EndIf Nextk EndSub 4. 10 2 随机产生 个 位数，按从大到小递减的顺序排列，并显示排序结果。 代码： PrivateSubForm_Click() Dims%(9) Print排序前, Fori=0To9 s(i)=Int(Rnd*90+ 10) Prints(i); Nexti Forn=0To8 nmax=n Form=n+ 1To9