有没有其它方法实现计算!
Private Sub Command1_Click()
Dim a
Debug.Print Now
a = Array(5, 64, 65, 719, 12, 36, 55, 412, 326, 435, 544, 233, 625, 514, 23, 14, 63, 56, 9, 51, 11)
For k0 = 0 To 22
For k1 = k0 + 1 To 13
b1 = a(k0) + a(k1)
For k2 = k1 + 1 To 14
b2 = b1 + a(k2)
For k3 = k2 + 1 To 15
b3 = b2 + a(k3)
For k4 = k3 + 1 To 16
b4 = b2 + a(k4)
For k5 = k4 + 1 To 17
b5 = b2 + a(k5)
For k6 = k5 + 1 To 18
b6 = b2 + a(k6)
For k7 = k6 + 1 To 19
b7 = b2 + a(k7)
For k8 = k7 + 1 To 20
b8 = b7 + a(k8)
DoEvents
i = i + 1
Next
Next
Next
Next
Next
Next
Next
Next
Next
Debug.Print i
Debug.Print Now
End Sub