VB6中ByRef 参数类型不正确的处理方法

当VB中如此定义变量时，将会出现以上错误信息的出现。

　　 Private Sub Command1_Click()
　　 Dim i , j As Integer
　　 i = 3
　　 j = 4
　　 Call get1(i, j)
　　 Text1.Text = i
　　 End Sub

　 Private Sub get1(ByRef para1 As Integer, para2 As Integer)
　　 para1 = para1 + para2
　　 End Sub
　　 ‘如果将 Dim i , j As Integer 改为 
　　 Dim i As Integer 
　　 Dim i As Integer

　 

程序执行正常。也就是说，第一种方法的变量定义，只是对 J 做了定义，并未对前面的 I 进行定义。
一般在过程和函数中定义参数时采用ByRef，则要求参数声明的类型和实际参数的类型完全相同，否则VB就会报告错误。

所以建议在定义变量时，并且此变量用于传递参数时，将此变量单独定义，则调用不会出错，否则很可能出现ByRef 参数类型不正确的提示！