有没有其它方法实现计算!

Question

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

Answer 1

northwolves(狼行天下) 的方法不错
或者来点简单的，干脆一个空循环次数大些，1000000等就行

Answer 2

Public Function hh()
  Print Time
  
   Dim i As Double
    Do Until i > 1E+300
      i = i + 1
    Loop
  Print Time
  
End Function