Question

2.4.6.8这4个数字可以组成多少个不同的三位数,那么这些三位数的平均数是多少？

Answer 1

4*4*4=64种

Sub t()

Dim i%, j%, k%, l%

s = 0: m = 1

arr = Array(2, 4, 6, 8)

For i = 0 To 3

    For j = 0 To 3

        For k = 0 To 3

                Cells(m, 1) = Int(arr(i) & arr(j) & arr(k))

                s = s + Int(arr(i) & arr(j) & arr(k))

'                Debug.Print Str(arr(i)) & Str(arr(j)) & Str(arr(k)) & Str(arr(l))

            m = m + 1

            Next

        Next

Next

Debug.Print s / 64

End Sub

Answer 2

组成不重复不同的三位数：
4×3×2=24（个）
这些三位数的平均数是：
(200+400+600+800+20+40+60+80+2+4+6+8)÷4=555