1.         如果 IsNumeric(thetime(c)) = True 则
  2.             注释：< IsNumeric 函数：返回布尔值指明表达式的值是否为数字>
  3.             令 sj(d) = cint(thetime(c))
  4.             注释：< CInt 函数：返回已被转换为整形子类型的变体的表达式>
  5.         否则
  6.             调用 结束()
  7.         条件结束
  8.         令 c = c + 1
  9.         令 d = d + 1
  10.         延时 10 毫秒
  11.     循环结束
  12. 子程序结束
  13. 注释：-----------------------------------------------------------------------
  14. 注释：-------------------------------------------------------- [脚本停止标记]
  15. 注释：-----------------------------------------------------------------------
  16. 子程序 结束()
  17.     弹出窗口 "输入错误 脚本停止运行"
  18.     脚本停止运行
  19. 子程序结束