做以下判断
C=100
J=10
IF J-C> 0 then
t=J-C
Else
T=0
end if
T=IIF(J-C>0,J-C,0)
这。。
IF居然比IIF快6倍。。。

更吐血的是
加Else比不加Else会快。。。。
这。。。这是怎么回事？

你怎么知道快六 倍？

我们对 If 和 IIf 进行了循环 Counts 次的测试
测试比较结果如下
Counts　　　If　　　IIf
10000　　　0 ms　　　0 ms
100000　　 1 ms　　　3 ms
1000000　　10 ms 　　32 ms
10000000 　101 ms　　326 ms
If 确实比 IIf 快

专家来了!
IIf函数比If语句快,是当然的,
If只是几个判断和跳转指令,而IIf需要调用vb库函数,还要转换条件句类型(尽管你的类型完全匹配),然后判断,再取结果句,再转换类型
加Else比不加Else会快:
这个只是特例,你的代码编译之后,运行流程是这样的:
有else的
赋 t为0
判断 j - c > 0(成立)
如果 不成立,跳到lp1
赋 t为-90(也就是10-100)
lp1:继续
可以看出,"如果"到lp1的那一段并没有执行
没else的
赋 t为-90
判断 j - c > 0(成立)
如果 不成立,跳到lp1
赋 t为0(也就是10-100)
lp1:继续
可以看出,"如果"到lp1的那一段执行了
事实上,可执行文件只是多执行了一条机器代码,很不明显,当然,在VB_IDE里就会扩大无数倍

函数当然要比If语句慢。

5楼(我自己)
头一句打错字了,是慢,不是快

最快的是用逻辑位运算取代条件分支。

回复 @Zatans 这是测试结果。。
以前做绘图时测试过，在And每次四个字节做运算时，CopyMemory不如AND当大于120个字节(也就是A(29)as long)时AND就不如CopyMemory快了。。。


这个例子说明，越是写起来简单的代码就说明速度会比按常规方法写出来的代码要慢。。。。

Option Explicit
Private Declare Function GetTickCount Lib "kernel32" () As Long
Private Sub Form_Load()
Dim J As Long, I As Long, T1 As Long, T2 As Long, C As Long, A As Long
J = 100
C = 10
T1 = GetTickCount
For I = 0 To 100000000
If J - C > 0 Then
A = J - C
Else
A = 0
End If
Next I
T1 = GetTickCount - T1
T2 = GetTickCount
For I = 0 To 100000000
'A = (J - C > 0) And (J - C)
A = J - C
A = A > 0 And A
Next I
T2 = GetTickCount - T2
MsgBox "T1 - " & T1 & vbCrLf & "T2 - " & T2
End Sub
编译成EXE再运行.
2比1快1/3.

要我说,If才是最好的,位运算设计起来比较难,而且位运算只能实现用于赋值的If,局限性太大
当然,不要用IIf

知道快慢以后就专门用IF呗。

觉得测试这个没多大意义，平时编程能有100000000……这么大的运算量吗？
既然这么追求效率为什么还要用VB？为了安全性而损失效率是VB的特性之一。

突然想到个问题，但是现在不能yomg

用电脑，所以哪位帮忙测试下，自己编写iif函数快还是vb的快

用电脑，所以哪位帮忙测试下，自己编写iif函数快还是vb的快

就是自己写一个类似iif的函数，与vb的iif函数对比数独度

手机打错字不要介意

怎么没人理我