[分享]关于VBA编程的一点建议

zfbj

以前大家在写VBA程序时大多喜欢这么定义一个作为点的变量（不会就我一个人这么做吧？呵呵）： dim ptStart(0 to 2) as Double ptStart(0) = 1 : ptStart(1) = 1 : ptStart(2) = 0 然后直接将ptStart作为点参数输入。 实际上，觉得用下面的这种方法能方便一些： Dim startTan As Variant utilObj.CreateTypedArray startTan, vbDouble, 0.5, 0.5, 0 跟以前的方法相比，到底如何，就是仁者见仁，智者见智的问题了。一般程序规模不大的情况下，这样做性能上不会有太大的影响，就是写起来方便一点。

雪山飞狐_lzh

还是有点麻烦，我是这样的 Function CreateArray(TypeName As VbVarType, ParamArray ValArray())
Dim i, mArray
Dim nCount As Integer

nCount = UBound(ValArray)

Select Case TypeName
Case vbDouble
Dim dArray() As Double
ReDim dArray(nCount)
mArray = dArray
Case vbInteger
Dim nArray() As Integer
ReDim nArray(nCount)
mArray = nArray
Case vbString
Dim sArray() As String
ReDim sArray(nCount)
mArray = sArray
Case vbVariant
Dim vArray()
ReDim vArray(nCount)
mArray = vArray
End Select

For i = 0 To nCount
mArray(i) = ValArray(i)
Next i

CreateArray = mArray
End Function