編程去掉數

A. VBA編程輸入10個數.去掉最大數和最小數.然後求平均值

假設結果在B1，假設對A列中的10個數求平均。

=(SUM(A1:A10)-MAX(A1:A10)-MIN(A1:A10))/(COUNT(A1:A10)-2)
把這個公式化成VBA代碼就可以了。

Sub test()
Range("B1").Formula = "=(SUM(A1:A10)-MAX(A1:A10)-MIN(A1:A10))/(COUNT(A1:A10)-2)"
End Sub

滿意請採納。

B. 用最基礎的數組的C編程，輸入10個整數，去掉兩個最大的數，然後求平均值

解題思路：

1、定義最基礎的數組，輸入10個整數；

2、根據題意，要去掉兩個最大的數，所以進行冒泡排序；

3、最後在剩下的8個數中求平均值，即在num[0]~num[7]中求平均值。

源程序如下：

程序運行結果