(VB5~6章实验题.docxVIP

vb实验5~6及答案 考试用 5-1 随机产生30～100（包括30、100）的10个正整数，存放于数组中，显示该数组的值，并求出最大值、最小值和平均值，如图5-1所示。要求：窗体显示字体默认、大小为小三，通过单击窗体触发程序运行。? 图5-1Private Sub Form_Click()Dim a(9) As Integer, max%, min%, ave!Randomizemax = 30: min = 100: ave = 0For i = 0 To 9 a(i) = Int(Rnd * 71 + 30) Print a(i); ave = ave + a(i) If a(i) max Then max = a(i) If a(i) min Then min = a(i)Next iave = ave / 10PrintPrint Max=; max, Min=; min, Ave=; Format(ave, 0.0)End Sub??5-2 已知6个学生的成绩，通过Array函数对数组赋初值，利用String函数，以每5分用一个“◆”符号显示，随后显示学生的成绩。要求：窗体中所有控件字体默认、大小为小四，计算结果在程序启动时立即在窗体中显示。效果如图5-2所示。? 图5-2?Private Sub Form_Load()Dim Mark As Variant, i%Form1.ShowMark = Array(56, 78, 98, 88, 76, 78)For i = LBound(Mark) To UBound(Mark) Print String(Mark(i) \ 5, ◆); Mark(i) PrintNext iEnd Sub?5-3 随机产生20个学生的成绩（整数），统计各分数段人数。即0～59、60～69、70～79、80～89、90～100，并显示结果，效果如图5-3所示。要求：（1）单击按钮“产生并显示数据”按钮时，产生的数据在Picture1显示，单击“统计分数段人数”时，统计的结果在Picture2显示。（2）学生成绩和统计结果分别放在两个不同的数组中。（3）所有控件字体默认、大小为小四。??图5-3?Dim mark(1 To 20) As IntegerPrivate Sub Command1_Click()Picture1.ClsDim i%, j%RandomizeFor i = 1 To 20 mark(i) = Int(Rnd * 101) j = j + 1 Picture1.Print Tab((j - 1) * 6); mark(i); If j Mod 4 = 0 Then j = 0: Picture1.PrintNext iEnd SubPrivate Sub Command2_Click()Picture2.ClsDim s(5 To 9) As Integer, i%, k%For i = 1 To 20 k = mark(i) \ 10 Select Case k Case 0 To 5 s(5) = s(5) + 1 Case 9 To 10 s(9) = s(9) + 1 Case 6 To 8 s(k) = s(k) + 1 End SelectNext iFor i = 5 To 9 If s(i) 0 Then Picture2.Print s(; i; ); 的人数有; s(i); 个 End IfNext iEnd Sub?5-4 通过单击相应按钮，产生原始数据和升降序排列这批数据，对应显示在标签框中，要求：原始数据为随机产生10个2位数，用选择法升序排列这些数据，用冒泡法降序排列这些数据，窗体中字体默认、大小为小四。效果如图5-4所示。? 图5-4Option Base 1Dim a%(10)Private Sub Command1_Click() Dim i% Randomize Label1.Caption = For i = 1 To 10 a(i) = Int(Rnd * 90 + 10) Label1.Caption = Label1.Caption ? a(i) Next iEnd SubPrivate Sub Command2_Click() Dim i%, j%, t%, Min% Label2.Caption = For i = 1 To 9 Min = i For j = i + 1 To 10 If a(j) a(Min) Then Min = j Next j t = a(i) a(i) = a(Min) a(Min) = t Next i For i = 1 To 10 Label2.Caption =