【原创 / 文章】Dim的陷阱

LucasLynn

代码一：

Dim x(100),y(100) As Byte

Call ReadBytes(x)



Public Sub ReadBytes(ByRef z() As Byte)

    'Do Nothing

End Sub

对以上代码进行编译，你会发现编译并不能通过。

代码二：

Dim x(100) As Byte,y(100) As Byte

Call ReadBytes(x)



Public Sub ReadBytes(ByRef z() As Byte)

    'Do Nothing

End Sub

调试以上代码，通过。

从C语言或其他语言转过来的程序员，很容易犯代码一的错误，因为在VB中：

Dim x(100),y(100) As Byte

等效于：

Dim x(100)

Dim y(100) As Byte

而不是：

Dim x(100) As Byte

Dim y(100) As Byte

而如果不作类型说明，那么VB就会给你使用默认的类型Variant。

这个错误非常隐蔽，而且并不常见在编程新手身上，而是有过很长时间其他语言编程经验的老程序员身上，希望这篇文章能够使你避免犯这样的错误。

[此贴子已经被作者于2005-9-21 23:04:03编辑过]

pxsj

谢谢

sun2465

谢谢提醒！

红寺

谢谢,总算明白了

28795277

谢谢

qlm

一定要顶!

古老的龙

顶！！！！！！！！！

chaojianan

谢谢提醒。