使用整数或大小为1的整数数组更好吗？

中田谷线

我正在研究一位同事编写的代码。他尝试使用for循环遍历某些值，为此他使用大小为1的整数数组。

Private Sub CommandButton1_Click()
   Call test
End Sub

Sub test()
'my approach
    Dim x As Integer
    For x = 1 To 6
       ActiveSheet.Cells(12, x).Value = x
    Next x

'my colleagues approach
    Dim iRCCnt(0) As Integer
    For iRCCnt(0) = 1 To 6
       ActiveSheet.Cells(12, iRCCnt(0)).Value = iRCCnt(0)
   Next iRCCnt(0)
End Sub

我认为它们是相同的。是我的方法更好还是其一贯呢？

布拉克斯

出于好奇，我对每个迭代进行了一百万次定时测试，并且它们都花费了相同的时间。因此，这实际上只是一个偏好问题。

您的方法对于将来的程序员来说不那么混乱，这是当今重要的考虑因素，因为当程序员以后必须互相修改彼此的代码并且代码的创建者不在身边时。

我还使用Long代替进行了测试Integer，在这种情况下，它也没有任何区别。我只测量到第二个学期。也许如果将时间缩短到毫秒，那会更快...这是我使用的代码：

Sub test()
  Dim lTmr As Long
  Dim lCol As Long
  Dim dt As Date

  dt = Now

  For lTmr = 1 To 1000000
    For lCol = 1 To 6
       ActiveSheet.Cells(12, lCol).Value = lCol
    Next
  Next

  Debug.Print DateDiff("s", dt, Now)

End Sub

注意：我将变量名更改为更有意义的名称，这对于将来的可读性也是一个好习惯。

本文收集自互联网，转载请注明来源。

如有侵权，请联系 [email protected] 删除。