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