.版本 2 .子程序 四则运算sql .参数 外部数据库, 外部数据库 .参数 表达式, 文本型 .参数 计算结果, 文本型, 参考 .局部变量 记录集2, 整数型 记录集2 ＝ 外部数据库.查询 (“select ” ＋ 表达式) 外部数据库.到首记录 (记录集2) 计算结果 ＝ 到文本 (外部数据库.读 (记录集2, 1)) 外部数据库.关闭记录集 (记录集2)