1秒間の繰り返し数のメッセージ

 以前、下記の記事を見ました。

コンピュータが1秒間でプログラムを何回くらい実行できるのかをクイズ形式で確かめられるサービス「One second code」 – GIGAZINE

 この記事では「One second code」というサイトで1秒間に何回繰り返されるかというのをクイズするサイトです。

 このサイトを見ていて「自分のパソコン上では1秒間に何回ループするのだろうか?」という素朴な疑問を持ちました。そこで、1秒間に自パソコンで何回ループするのかを確認するVBScript(VBS)を作ったので、せっかくだから下記に公開しておきます。

 VBSで1秒間に何回繰り返すかを確認するプログラムは以下の通りです。

Dim dblStart, dblOneSec, lngCnt 

dblStart = CDbl(Timer())
dblOneSec = dblStart + 1

lngCnt = 0
Do Until dblOneSec <= CDbl(Timer())
    lngCnt = lngCnt + 1
Loop

MsgBox "1秒間に繰り返した回数は " & FormatNumber(lngCnt, 0) & "回 でした", _
vbInformation + vbOKOnly, "結果"

 私のパソコンはIntel Core i7-4770 3.40GHzのCPUを搭載したパソコンですが、実行した結果、4,50万回~480万回ぐらいのようです。こんなことを知ってもなんの役にも立たないと思うのですが、こんなにループするとは思いませんでした。(本当に合っているのかな?(笑))