vb实验E数组和自定义类型.docxVIP

试验E数组和自定义类型 一、 实验目的 掌握数组的声明、数组元素的引用。 掌握固定长度数组和动态数组的使用差别。 掌握数组常用的操作和常用算法。 掌握列表框和组合框的使用。 掌握自定义类型及数组的使用。 二、 实验内容 随机产生30-100 (包括(30、100)的10个正整数，求最大值、最小值、平均值，并显 示整个数组的值和结果。 |r ux ■ ▼ | |uxi ua Private Sub Form_ClickQ Dim x (1 To 10) As Integer Dim aver!, n%, i%, min%, max% aver = 0 max = 30 min = 100 For i = 1 To 10 x(i) = Int (Rnd * 71 + 30) aver = aver + x (i) I￡ x (i) = max Then max - x (i) I￡ x (i) = min Then min = x (i) Print x(i); Hgxt i aver = aver / 10 PrintPrint End Sub Print Print End Sub 虽大值:；max;摄小值:;min;平均值:;aver 已知6个学生的成绩，通过数组赋初值的方法，利用String函数，以每5分为一个“ ?” 显示，并显示学生的成绩。 Frivata Sub Form_Cli ck () Dim mark」i% mark = Array(56^ T8」98」88, T6丿 78) For i = LBound (mark) To IfBound(mark) Frin t Tab (3) ; St ring (mark (i) \ 5 丿mark (i) Hwct i End Sub Fors.113叵Pr i vat e Sub C omm and2_Cl i ck ()Dim b (5) As IntegerDim i As 工nteger Pi cture2.Cis Fors.1 13叵 Pr i vat e Sub C omm and2_Cl i ck ()Dim b (5) As Integer Dim i As 工nteger Pi cture2.Cis For i = 1 To 20 Select Case d (i ) Case 0 To 59 b(l) b(l) Case 60 To 69 b⑵ Case 70 To 79 b⑶ b(2) 53 77 6 60 47 30 63 65 27 28 83 83 59 99 92 23 70 99 25 54 0 ?59： 10 0 ?T9: 个 T0 ?89: 个 80 ?99: 个 90 ?100 :3个 Case 80 To 89 b⑷ 100 b⑸ b⑷= Case 90 To b⑸= End Select Next 产生并显示数据 统计分数段人数 Picture2? Print 0?59:J b(l); Picture2? Print 60?79:“ b(2); Pi cture2.Print 70?89: b⑶； 个 Pi cture2? Print 80?99：“ b⑷； Picture2.Prin t 90?100： \ b⑸； 随机产生20个学生的成绩，统计各分数段人数。即0~59、60飞9、70?79、80~89、90^100, 并显示结果。产生的数据在Picturel显示，统计结果在Picture2显示。 |—回X |Fon ▼| |Load 二1 Opti on Expli ci t Dim d(1 To 20) As Triteger Pri vate Sub Commandl_Cli ck () Dim i As Integer Pi uture1? Cis For i = 1 To 20 d(i) = Int (Rnd 0 * 100) + 1 Picturel. Print F ormat (d (i 0)； If i Mod 4 = 0 Then Picturel. Print Next End Sub End Sub Private Sub Form_Load () Commandl. Cap ti on二产生并显可^数据 Command2. Caption =统计分数段人数 End Sub 5.参照教材例5.3,Step -1Exit For在通用声明段声明两个数组，利用随机函数形成如下两个数组:52 5.参照教材例5.3, Step -1 Exit For 在通用声明段声明两个数组，利用随机函数形成如下两个数组: 52 50* 121 111 131 131 66 39 Q- 133 116 13Z 139