Visual Basic

Dim i As Long<br />
i = saHashArray(0)<br />
' or i = saHashArray(x), where x = 0,...,nNumHashCodes-1<br />
' or i = saHashArray(x), where x = LBound(saHashArray),...,UBound(saHashArray)

Dim arr() As Long<br />
arr = saHashArray

Private Sub Form_Load()

Dim MyArray(10) As Double
<code>Call</code> Some(MyArray)

End Sub


Sub Some(ByRef SomeArray() As Double)
    MsgBox "Hello"
End Sub

Sub Func(ByRef i As Long)<br />
  i = 12<br />
End Sub<br />
<br />
Private Sub Form_Load()<br />
  Dim j As Long<br />
  j = 33<br />
  Call Func(j) ' ByRef<br />
  Debug.Print "j="; j ' the output will be: j= 12<br />
  <br />
  j = 33<br />
  Call Func((j)) ' ByVal<br />
  Debug.Print "j="; j ' the output will be: j= 33<br />
  <br />
  j = 33<br />
  Func (j) ' ByVal. Note that there is the <font color=blue>space</font> between function name and argument<br />
  Debug.Print "j="; j ' the output will be: j= 33<br />
  Unload Me<br />
End Sub