- 定义变量 a, b, i, n, x
- 令 a = InputBox("请输入起始色号","提示","")
- 令 i = InputBox("请输入终止色号","提示","")
- 令 n = i - a + 1
- 循环 n 次
- 输入文本 a
- (键盘)按 "Enter" 键, 1次
- (键盘)按下 Ctrl 键
- (键盘)按 C 键, 1次
- (键盘)弹起 Ctrl 键
- 令 x = Sys.GetCLB()
- 令 b = cstr(a)
- 如果 b <> x 则
- 脚本停止运行
- 条件结束
- (键盘)按 "Enter" 键, 4次
- 令 a = a + 1
- 循环结束