今天再测试了一下，在我的电脑上 lowxiong 的代码比我的代码快 7 毫秒左右。
测试方法：
去掉 显示部分，然后其它不变，循环调用 100次，然后看最后的计时。

Dim t1 As Long, t2 As Long
Dim t3 As Long, t4 As Long
Dim i As Long

t1 = timeGetTime
For i = 1 To 100
Cls
Call Command1_Click
Next i
t2 = timeGetTime
For i = 1 To 100
DoEvents
Next i

t3 = timeGetTime
For i = 1 To 100
Cls
Call Command2_Click
Next i
t4 = timeGetTime

For i = 1 To 100
DoEvents
Next i

Cls
Print "1"; t1; t2, t2 - t1
Print "2"; t3; t4, t4 - t3

就我等新手看，lowxion版主最初的代码最好理解易懂。真佩服几位版主对VB的熟练掌握，同时也对他们精益求精的精神表示敬佩！

看到wp版的“大家晒一晒自己的代码啊”和小z版的“两位数乘三位数等于四位数并且这九个数都不重复”
就是“123456789”9个数，取2个组成一个两位数，取3个组成一个三位数，这两个数的积就是剩下的那四位数。

貌似着俩不等价啊 怪不得你们的答案组数少啊 没有0。。。。

顺便膜拜各位的VB水平 虽然我不大喜欢VB。。。

请问怎么才能测到毫秒级？我分别在程序开始和结束位置用了t = timeGetTime、 MsgBox timeGetTime - t ，可还是显示0秒啊，难道是我的电脑太快？

你申明了 timeGetTime 这个函数吗？？？

如果你没申明的话，也不想申明的话，那么你就用
timer 这个函数吧。
timer 函数，返回的是 秒，但会带二位小数，也就是精度是 10毫秒。
timeGetTime API函数，返回的是 毫秒，不带小数，精度是 1毫秒。

t=timer
msgbox timer-t

结果带小数，乘以1000，就是 毫秒了，但精度只有 10毫秒。

[ 本帖最后由 风吹过b 于 2013-4-18 10:05 编辑 ]

哦，我还当timeGetTime 是VB内部函数呢，谢谢指教。

学习中...
    顺便飘过...

高手

看了前面几位的代码都感觉有点复杂,可读性不强
为什么不用简单点的呢：
Private Sub Command1_Click()
    For i = 12 To 98
        For j = 123 To 987
            If i * j < 10000 Then
                n = i & j & i * j
                For k = 1 To 9
                    If InStr(n, k) = 0 Then Exit For
                Next k
                If k > 9 Then Print i & "*" & j & "=" & i * j
            End If
        Next j
    Next i
End Sub