1. 定义变量 a, b
2. 令 a = InputBox("输入加减法上限")
3. 令 b = InputBox("输入出题个数")
4. 令 q = InputBox("是2个数还是3个数相加减")
5. 令 a = cint(a)
6. 令 b = cint(b)
7. 令 q = cint(q)
8. 调用 启动程序或打开文件 "EXCEL.EXE"
9. 延时 3000 毫秒
10. 如果 q = 2 则
11.     调用 子程序1()
12. 条件结束
13. 调用 子程序2()
14. 子程序 子程序1()
15.     标记 开始(子程序 子程序1)
16.     Randomize
17.     令 x = int(Rnd * (a - 1 + 1)) + 1
18.     令 y = int(Rnd * (a - 1 + 1)) + 1
19.     令 f = int(Rnd * (1 - 0 + 1)) + 1
20.     如果 f = 1 则
21.         令 m = "-"
22.         如果 x - y < 0 则
23.             跳转到标记 开始(子程序 子程序1)
24.         条件结束
25.         跳转到标记 打印(子程序 子程序1)
26.     条件结束
27.     如果 f = 2 则
28.         令 m = "+"
29.     条件结束
30.     如果 x + y > a 则
31.         跳转到标记 开始(子程序 子程序1)
32.     条件结束
33.     跳转到标记 打印(子程序 子程序1)
34.     标记 打印(子程序 子程序1)
35.     输入文本 x
36.     输入文本 m
37.     输入文本 y
38.     输入文本 "="
39.     （键盘）按 Tab 键, 1次
40.     令 L = L + 1
41.     令 C = C + 1
42.     如果 L = 10 则
43.         （键盘）按 Enter 键, 1次
44.         令 L = 0
45.     条件结束
46.     如果 c = b 则
47.         脚本停止运行
48.     条件结束
49.     跳转到标记 开始(子程序 子程序1)
50. 子程序结束
51. 子程序 子程序2()
52.     标记 开始(子程序 子程序2)
53.     Randomize
54.     令 x = int(Rnd * (a - 1 + 1)) + 1
55.     令 y = int(Rnd * (a - 1 + 1)) + 1
56.     令 f = int(Rnd * (1 - 0 + 1)) + 1
57.     令 z = int(Rnd * (a - 1 + 1)) + 1
58.     令 g = int(Rnd * (1 - 0 + 1)) + 1
59.     如果 f = 1 则
60.         如果 x - y < 0 则
61.             跳转到标记 开始(子程序 子程序2)
62.         条件结束
63.         令 m = "-"
64.         如果 g = 1 则
65.             令 g = "-"
66.             如果 x - y - z < 0 则
67.                 跳转到标记 开始(子程序 子程序2)
68.             条件结束
69.             跳转到标记 打印(子程序 子程序2)
70.         条件结束
71.         如果 g = 2 则
72.             令 g = "+"
73.             如果 x - y + z > a 则
74.                 跳转到标记 开始(子程序 子程序2)
75.             条件结束
76.             跳转到标记 打印(子程序 子程序2)
77.         条件结束
78.     条件结束
79.     如果 f = 2 则
80.         令 m = "+"
81.     条件结束
82.     如果 x + y > a 则
83.         跳转到标记 开始(子程序 子程序2)
84.     条件结束
85.     如果 g = 1 则
86.         令 g = "-"
87.         如果 x + y - z < 0 则
88.             跳转到标记 开始(子程序 子程序2)
89.         条件结束
90.         跳转到标记 打印(子程序 子程序2)
91.     条件结束
92.     如果 g = 2 则
93.         令 g = "+"
94.         如果 x + y + z > a 则
95.             跳转到标记 开始(子程序 子程序2)
96.         条件结束
97.         跳转到标记 打印(子程序 子程序2)
98.     条件结束
99.     标记 打印(子程序 子程序2)
100.     输入文本 x