用VB编一段程序,要求能计算所给值的极差,方差,平均数,平均差

Dim A(1 To 个数) As Single

Dim MAX As Single,MIN As Single

Dim 极差,方差,平均数,平均差 As Single

MAX = A(1)

MIN = A(1)

For i = 1 To 数组个数

If A(i)>MAX Then MAX=A(i)

If A(i)<MIN Then MIN=A(i)

平均数 = 平均数 + A(i)

Next i

平均数 = 平均数/数组个数

极差 = MAX - MIN

For i = 1 To 数组个数

方差 = 方差+(A(i)-平均数)^2

平均差 = 平均差+Abs(A(i)-平均数)

Next i

方差=方差/数组个数

平均差=平均差/数组个数

public class sss {

public static void main(String[] args) {

// TODO Auto-generated method stub

     int[] s = {2,1,5,7,9}

     int a=s[0]

     int b=s[0]

     for(int i=1i<s.lengthi++)

     {

      if(a>s[i])

      {

      a=s[i]//确保a为当前最小

      }

      if(b<s[i])

      {

      b=s[i]//确保b为当前最大

      } 

     }

     System.out.println("数组中最小数为"+a+"。"+"最大数为"+b+"。"+"极差为"+(b-a))

}

}

excel计算极差的计算方法：

1、点击选中一个要输入公式的单元格,也就是要计算极差的单元格（第一行数据为要计算极差的数据）。

2、在B2单元格中输入公式=MAX（B1：G1）-MIN（B1：G1）。

3、点击回车键，在B2单元格中就可以看到极差计算的结果。

MicrosoftOffice是一套由微软公司开发的办公软件套装，可以在MicrosoftWindows、WindowsPhone、Mac系列、iOS和Android等系统上运行。与其他办公室应用程序一样，包括联合的服务器和基于互联网的服务。

---