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

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编辑过]

newguyer

如果a成立，b成立 2个OK如果a成立，b不成立或者相反，2个OK如果a，b都不成立，1个OK不要笑话我，not(a and b)我有点晕

LucasLynn

其他人的看法呢？

海狸先生

当然可以

wuaza

不可以，反证法。

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

Not (a And b)=false

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



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

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

海狸先生

不要局限于　true 和 false

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

LucasLynn

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

gaoqiwen

看总版主的代码，主要a,b为True或非零的数都可以输出3个ok!因为IF...THEN...END把非零的数都看作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编辑过]