0504デフォルトの名無しさん
2018/02/22(木) 22:12:30.09ID:XPN6kdE8複数行出てもいいならこんな感じでいいんじゃないのかな
Const Cdt = 5
Dim Tm,T1
If MsgBox("カウントダウンを開始します。",vbOKCancel+vbInformation) <> vbOK Then WScript.Quit
Tm = Timer
Do
T1 = Cdt - (Timer - Tm)
WScript.Echo Round(T1,1)
If T1 <= 0 Then Exit Do
WScript.Sleep 50
Loop