★英語力向上に役立つソフトウェア★

>>170-171
しょぼしょぼだが作ってみた。XP専用。
----以下をメモ帳に貼り付けて、拡張子をvbsにして保存---------------
Randomize
Set SP = CreateObject ("SAPI.SpVoice")
Do While MsgBox(mes, 1) = 1
answern = CStr (Int (Rnd * 1000) )
startt = Timer
SP.Speak (answern)
usern = InputBox ("What number?")
spendt = Timer - startt
If usern = answern Then mes = "Correct! time = " + CStr (spendt) Else mes = "Wrong"
Loop