1. 定义变量 a, b, i, n, x
2. 令 a = InputBox("请输入起始色号","提示","")
3. 令 i = InputBox("请输入终止色号","提示","")
4. 令 n = i - a + 1
5. 循环 n 次
6.     输入文本 a
7.     （键盘）按 "Enter" 键, 1次
8.     （键盘）按下 Ctrl 键
9.     （键盘）按 C 键, 1次
10.     （键盘）弹起 Ctrl 键
11.     令 x = Sys.GetCLB()
12.     令 b = cstr(a)
13.     如果 b <> x 则
14.         脚本停止运行
15.     条件结束
16.     （键盘）按 "Enter" 键, 4次
17.     令 a = a + 1
18. 循环结束