全国计算机考试数组.docVIP

数 组 完 善 程 序 填 空 参 考 1.编写一个程序，随机产生10个两位正整 数，并从中找出一个最大数和一个最小数。 Option Base 1 Private Sub Form_Click() Dim compare(12) As Integer, i As Integer Dim max As Integer, min As Integer FontSize = 30 Randomize For i = 1 To 10 compare(i) =________________ 10--99 Print compare(i); Next i Print max = compare(1): min = compare(1) For i = 2 To 10 ？ max = compare(i) ? min = ? End If Next i Print 最大数是：; max Print 最小数是：; min End Sub 2. 产生20个0~1000的随机整数，放入一个数组中，然后输出这20个整数的平均值。 Private Sub Command1_Click() Dim a(1 To 20) As Integer, i As Integer, sum As Integer, count As Integer, p As Integer