计算机

数据统计计算。

通过inputbox输入10个正整数，将这些正整数存放于一个数组内，求出数组中的最大值、最小值和平均值，并输出数组中的全部数据。

（1）界面设置

     画两个按钮

（2）属性设置

     Command1属性改为“输入数据”，command2改为“显示并统计”

(3) 编写代码

   1、在通用声明段中，声明模块级的变量

   Option Base1

   Dim a(10) As Integer

   2、在代码窗口中选择command1空间的click时间，编写事件过程代码如下：

    Private Sub Command_Click()

       For I = 1 to 10

     a(i) = InputBox

      Next i

End Sub

3、在代码窗口中选择command2控件的Click事件，编写事件过程代码如下：

Private Sub Command2_Click()

   Dim max As Integer

   Dim min As Integer

   Dim sum As Integer

   Max = a(1)

   Min = a(1)

   Sum = 0

Print “数组元素是：”；

For I = 1 to 10

   Print a(i)

   Sum = sum + a(i)

   If max < a(i) then max = a(i)

   If min > a(i) then min = a(i)

Next i

Print

Print”最大值是：” & max

Print”最小值是：” & min

Print”平均值是：” & sum/10

End Sub

(4) 调试与运行