【讨论】 考考新手，老鸟勿进！

LucasLynn

如下代码：（a,b值未知）

If a Then Debug.Print "ok"

If b Then Debug.Print "ok"

If Not (a And b) Then Debug.Print "ok"

运行结果可能输出三行"ok"吗？

[此贴子已经被作者于2005-10-8 0:10:01编辑过]

gaoqiwen

“均为True不可以”

已试验！[em04]

[此贴子已经被作者于2005-10-8 12:23:31编辑过]

LucasLynn

以下是引用gaoqiwen在2005-10-8 12:13:00的发言：



看总版主的代码，主要a,b为True或非零的数都可以输出3个ok!

因为IF...THEN...END把非零的数都看作TRUE。

均为True不可以

gaoqiwen

以下是引用wuaza在2005-10-8 10:17:00的发言：

不可以，反证法。

如果可以输出三个“ok”，那么a=true,b=true.

Not (a And b)=false

第三行就不可能输出“ok”了，所以假设不成立。

难道a，b值在debug之间会变化？我也讲不清楚了。

已试验！

[此贴子已经被作者于2005-10-8 12:24:10编辑过]

gaoqiwen

看总版主的代码，主要a,b为True或非零的数都可以输出3个ok!因为IF...THEN...END把非零的数都看作TRUE。

LucasLynn

答案是可以。VB和C不同，C中有独立的逻辑运算符和位运算符，而VB中却合并在了一起，这样的做法确实有其优点，但是弊端也是很明显的，那就是你在使用的时候要非常非常注意。这道题目就是提醒大家要注意这一点。我们经常喜欢这样写：If bolCondition Then但是实际上这样的写法很不安全，如果bolCondition是Boolean类型，那么这样写法没问题，但是如果是其他类型，那么这样的写法就很有问题了，比较安全的写法是：If bolCondition<>False Then

binuochao

可以！a,b的数据类型不同即可！看例

Function c()

Dim a As Double

Dim b As Integer

a = True

b = 1

If a Then Debug.Print "1ok"

If b Then Debug.Print "2ok"

If Not (a And b) Then Debug.Print "3ok"End Function

海狸先生

不要局限于　true 和 false

wuaza

不可以，反证法。

如果可以输出三个“ok”，那么a=true,b=true.

Not (a And b)=false

第三行就不可能输出“ok”了，所以假设不成立。



难道a，b值在debug之间会变化？我也讲不清楚了。

[此贴子已经被作者于2005-10-8 10:30:45编辑过]

海狸先生

当然可以