【已解决，是我理解有误】这是不是一个BUG？

achen1

现有如下一段代码：

Private Sub nobug()
Dim j, k As Integer

Sheet2.Select
j = Val(1)
If j = "" Or Sheet2.Cells(2, j) = 0 Then
MsgBox "程序没有找到数据"
End If
End Sub

该代码运行正常。
但是如果将上述代码中的dim j,k as integer 改成dim j as integer
则出现运行错误,提示if j=""这一句出错。

Private Sub bug()
Dim j As Integer
Sheet2.Select
j = Val(1)
If j = "" Or Sheet2.Cells(2, j) = 0 Then
MsgBox "程序没有找到数据"
End If
End Sub

请问大家，这是什么原因？

[ 本帖最后由 achen1 于 2010-6-21 14:54 编辑 ]

livewire

没错啊！ 不是BUG

achen1

是我的代码错了？
两个代码一个提示出错，一个运行正常啊
什么原因呢

livewire

代码1 的 J  是 variant
代码2 的 J  是 integer, 不能与字符串比较 需改为 cstr(j)=""

dsmch

Dim j, k As Integer
j 是变体变量

youliqi

声明变量的类型与实际应用不符

achen1

哦，谢谢，我明白了，是我对这一句的理解有误
我把
dim j,k as integer
理解成了
dim  j as integer ,  k as integer
正确的理解是
dim j as variant ,  k as integer

achen1

谢谢，不过我出错的原因不是这个，是7楼所说的原因，呵呵

xihabang

?? 不明白 ..呵呵