程序设计题电子版 (事件)单击事件。 (响应)生成一个一维数组(10个数组元素依次为15、32、72、43、96、18、3、177、 88、17),写程序求出这个数组的最大值、最小值和平均值,并输出在窗体上。将最大 值、最小值、平均值分别存入变量Max、Min、Aver中。 答案: Dim a(9) As Integer Dim i, s As Integer a(0) = 15 a(1) = 32 a(2) = 72 a(3) = 43 a(4) = 96 a(5) = 18 a(6) = 3 a(7) = 177 a(8) = 88 a(9) = 17 Max = a(0) Min = a(0) s = 0 For i = 0 To 9 If a(i) > Max Then Max = a(i) End If If a(i) < Min Then Min = a(i) End If s = s + a(i) Next aver = Int(s / 10) Print (CStr(Max)) Print (CStr(Min)) Print (CStr(aver)) (事件)单击按钮"
2022-06-20 18:04:44
40KB
文档资料