.版本 2
.子程序 __启动窗口_创建完毕
信息框 (求阶乘 (10), 0, )
结束 ()
.子程序 求阶乘, 整数型
.参数 数值, 整数型
.如果真 (数值 = 1)
返回 (1)
.如果真结束
返回 (数值 × 求阶乘 (数值 - 1))
.版本 2
.支持库 spec
.局部变量 局部_结果, 整数型
.局部变量 局部_目标, 整数型
.局部变量 局部_计次, 整数型
局部_结果 = 1
局部_目标 = 6
.计次循环首 (局部_目标, 局部_计次)
局部_结果 = 局部_计次 × 局部_结果
.计次循环尾 ()
调试输出 (局部_结果)
.版本 2
.局部变量 输入, 整数型
.局部变量 i, 整数型
.局部变量 s, 长整数型
输入框 (“输入正整数n”, , “1”, 输入, #输入整数)
s = 1
.计次循环首 (输入, i)
s = s × i
.计次循环尾 ()
信息框 (到文本 (输入) + “!=” + 到文本 (s), 0, )