VB二十道常见编程期末操作题.docVIP

1.求随机10个整数的最大值、最小值、平均值以及和；Dim a(1 To 10) Private Sub Command1_Click() Randomize Picture1.Print 产生的随机数为： For i = 1 To 10 a(i) = Int(Rnd * 99 + 1) ‘(1~100随机 Picture1.Print a(i); Next i Picture1.Print End Sub Private Sub Command2_Click() Dim max, min, ave max = a(1) min = a(1) ave = 0.1 * a(1) For i = 2 To 10 If a(i) max Then max = a(i) If a(i) min Then min = a(i) ave = ave + 0.1 * a(i) Next i Picture1.Print 最大数为：; max Picture1.Print 最小数为：; min Picture1.Print 平均数为：; ave End Sub 2.求水仙