VB程序设计实验要求及报告5

1、二海立信会计学院本科实验报告班级:学号:姓名:指导教师:系部:专业:实验时间:实验5 数组实验目的1. 掌握数组的声明、数组元素的引用2. 掌握固定长度数组和动态数组的使用差别二、实验要求1 .在下建立子文件夹“ VB实验5 ”，按照题目要求，在该文件夹下为各题保存相应的文件，如本实验中的第一题， 需保存的文件有： 工程文件（51.vbP）、窗体文件（51.frm）及 可执行文件（51.exe）,本实验中的第二题，需保存的文件有：工程文件（52.vbp）、窗体文件（52.frm）及可执行文件（52.exe）,其余实验依此类推。2.撰写实验过程中出现了哪些问题、错误，你是如何解决的，做一个小结。

2、实验内容:1. 随机产生30100 （包括30、100）的10个正整数，存放于数组中，显示该数组的值， 并求出最大值、最小值和平均值，如图5-1所示。要求：窗体显示字体默认、大小为小三，通过单击窗体触发程序运行。图5-1P rivate Sub Form_Click()Dim a(9) As Integer, max%, min%, ave!Randomizemax = 30: min = 100: ave = 0For i = 0 To 9a(i) = lnt(Rnd * 71 + 30) P rint a(i);ave = ave + a(i)If a(i) > max Then m

3、ax = a(i)If a(i) < min Then min = a(i)Next iave = ave / 10P rintP rint "Max=" max, "Min=" min, "Ave=" Format(ave, "0.0")End Sub2. 已知6个学生的成绩，通过Array函数对数组赋初值，利用String函数，以每5分用个“”符号显示，随后显示学生的成绩。要求：窗体中所有控件字体默认、大小为小 四，计算结果在程序启动时立即在窗体中显示。效果如图5-2所示。 78 9S 76 78图5-2

4、Private Sub Form_Load()Dim Mark As Variant, i%Forml.ShowMark = Array(56, 78, 98, 88, 76, 78)For i = LBound(Mark) T o UBound(Mark)P rint String(Mark(i) 5, " ”)； Mark(i)P rintNext iEnd Sub3. 随机产生20个学生的成绩(整数)，统计各分数段人数。即059、6069、7079、8089、90100,并显示结果，效果如图5-3所示。要求：(1 )单击按钮“产生并显示数据” 按钮时，产生的数据在 Pictur

5、el显示，单击“统 计分数段人数”时，统计的结果在Picture2显示。(2) 学生成绩和统计结果分别放在两个不同的数组中。(3) 所有控件字体默认、大小为小四。4 M 374 10 4 4有有有有有 人人人人人个个个个个产生并显示数据统计分数段人数图5-3Dim mark(1 T o 20) As Integer Private Sub Command1_Click() Picturel.CIsDim i%, j%RandomizeFor i = 1 To 20 mark(i) = Int(Rnd * 101) j = j + 1P icture1. Print T ab(j - 1) *

6、6); mark(i);If j Mod 4 = 0 Then j = 0: P icture1. Print Next iEnd SubPrivate Sub Command2_Click() Picture2.ClsDim s(5 T o 9) As Integer, i%, k%For i = 1 To 20k = mark(i) 10 Select Case kCase 0 To 5s(5) = s(5) + 1Case 9 To 10s(9) = s(9) + 1 Case 6 To 8s(k) = s(k) + 1 End SelectNext iFor i = 5 To 9If

7、s(i) <> 0 ThenPicture2.Print "s(" i;")"" 的人数有"s(i);"个”End IfNext iEnd Sub4. 通过单击相应按钮， 产生原始数据和升降序排列这批数据，对应显示在标签框中， 要求:原始数据为随机产生 10个2位数，用选择法升序排列这些数据，用冒泡法降序排列这 些数据，窗体中字体默认、大小为小四。效果如图5-4所示。舄实验阴回®产生原始数据选择法升序排列1 819223574050652557862540575?60658186921 92858155

8、505757402523.I. .IIIILJIlllUJIlILUIIILUIIII. .IllI冒泡法降序排列I图5-4Op tion Base 1Dim a%(10)P rivate Sub Command1_Click() Dim i%RandomizeLabel1.Ca ption =""For i = 1 To 10a(i) = Int(Rnd * 90 + 10)Label1.Ca ption = Label1.Ca ption & ” & a(i)Next iEnd SubP rivate Sub Command2_Click()Dim i%

9、, j%, t%, Min%Label2.Ca ption =""For i = 1 To 9Min = iFor j = i + 1 To 10 If a(j) < a(Min) Then Min = jNext jt = a(i)a(i) = a(Min)a(Min) = tNext iFor i = 1 To 10"& a(i)Label2.Ca ption = Label2.Ca ption & ”Next iEnd SubP rivate Sub Command3_Click()Dim i%, j%, t%Label3.Ca pti

10、on =""For i = 1 To 9For j = i + 1 To 10 If a(j) > a(i) Then t = a(i) a(i) = a(j) a(j) = tEnd IfNext jNext i"& a(i)For i = 1 To 10 Label3.Ca ption = Label3.Ca ption & ”Next iEnd Sub5. 参照教材例5.3，在通用声明阶段声明两个数组，利用随机函数形成两个数组（A中元素范围在3070 （包括30、70）, B中元素范围在 100140 （包括100、140）,如产 生下

11、列数组：5842516153304161(1351 2 11 021 381 0263593146要求：L65先产生A、B显示A数组主对角线元素之和及6245691 341 33A数组，B数组副对角线元素之和。点击相应的按钮结果在相应的图片框中显示，所有控件字体默认、大小为小四。数组，然后以下三角形式显示以上三角形式显示 B数组。效果如图5-5所示。x_2 12 10 3 111 1 1 15 19 03 2 11IX 1± 1X116 94 6 4 63 0 155 33 48 23 55 4 6 6产生两个数组中角线元和为=219痛线元索知为=43353135 10213S114

12、.42 6l1311021246359 3l12512665624569133显示下三角显示上二角图5-5Op tion Base 1Dim a(4, 4) As Integer, b(4, 4) As Integer P rivate Sub Command1_click() Picture3.ClsDim i%, j%For i = 1 T o 4For j = 1 T o iP icture3 .P rint a(i, j); Sp c(1);Next jP icture3. PrintNext iEnd SubP rivate Sub Command2_click() Picture4

13、.ClsDim i%, j%For i = 1 T o 4For j = i To 4 P icture4. Print T ab(6 * (j - 1); b(i, j);Next jPicture4. PrintNext iEnd SubP rivate Sub Command3_Click() Picture5.ClsDim sa%, sb%sa = 0: sb = 0For i = 1 To 4 sa = sa + a(i, i)Next i" sa" sbPicture5.Print "A 数组主对角线元素和为： For i = 1 To 4j = 5 - i sb = sb + b(i, j)Next iPicture5.Print "B 数组副对角线元素和为： End SubPrivate Sub Command4_Click()Dim i%, j%Picture1.ClsFor i = 1 To 4For j = 1 To 4 a(i, j) = Int(Rnd * 41 + 30) Pictu