- 帖子
- 185
- 主題
- 48
- 精華
- 0
- 積分
- 227
- 點名
- 0
- 作業系統
- WIN 7
- 軟體版本
- 旗舰版
- 閱讀權限
- 20
- 性別
- 男
- 註冊時間
- 2010-9-14
- 最後登錄
- 2025-1-27
|
本帖最後由 cdkee 於 2010-11-5 02:34 編輯
回復 1# ms2001
不知是否大大想要的，是小輩以往找到的，但忘了出處...
Sub 開始測速()
x = Timer
cs = [B1]
For y = 1 To cs
Z = Z + 1
Next y
[B2] = Application.Text(Timer - x, "0.00000") & "秒"
[B3] = "每秒 " & Application.Text(Z / (Timer - x), "0") & " 次"
End Sub |
|
發表於 2010-11-5 02:32
| 