c=0:d=0
        For 3
            If IsNumeric(thetime(c))=True Then
                //< IsNumeric 函数：返回布尔值指明表达式的值是否为数字>
                sj(d)=cint(thetime(c))
                /< CInt 函数：返回已被转换为整形子类型的变体的表达式>
            Else
                Goto QMScript_End
            End if
            c=c+1:d=d+1
            Delay 10
        Next
    End Sub
    //-----------------------------------------------------------------------
    //-------------------------------------------------------- [脚本停止标记]
    //-----------------------------------------------------------------------
    Rem QMScript_End
    MessageBox 输入错误 脚本停止运行
EndScript
End Sub