.程序集 窗ロ程序集1

.子程序 分析公式不出结果, , , 处理公式不出结果

.参数 公式不出结果, 文本型

.参数 加工后公式不出结果, 文本型

.参数 最终公式不出结果, 文本型, 数组

.参数 变量名, 文本型, 数组

.参数 常数文本集, 文本型, 数组

.参数 加, 整数型, 数组

.参数 减, 整数型, 数组

.参数 乘, 整数型, 数组

.参数 除, 整数型, 数组

.参数 乘方, 整数型, 数组

.局部变量 计数, 整数型

.局部变量 计次, 整数型

.局部变量 a, 整数型

.局部变量 b, 整数型

.局部变量 运算符位置, 整数型

.局部变量 起始位置, 整数型

.局部变量 目前位置, 整数型

.局部变量 替换长度, 整数型

.局部变量 试文本, 文本型

.循环判断首 () ' 这个把所有运算符和变量替换成“a”

试文本 ＝ 取文夲中间 (加工后公式不出结果, 起始位置, 1)

.判断开始 (试文本 ＝ “+”)

加工后公式不出结果 ＝ 文本替换 (加工后公式不出结果, 起始位置, 1, “a”)

.判断 (试文本 ＝ “-”)

加工后公式不出结果 ＝ 文本替换 (加工后公式不出结果, 起始位置, 1, “a”)

.判断 (试文本 ＝ “*”)

加工后公式不出结果 ＝ 文本替换 (加工后公式不絀结果, 起始位置, 1, “a”)

.判断 (试文本 ＝ “/”)

加工后公式不出结果 ＝ 文本替换 (加工后公式不出结果, 起始位置, 1, “a”)

.判断 (试文本 ＝ “^”)

加工后公式不絀结果 ＝ 文本替换 (加工后公式不出结果, 起始位置, 1, “a”)

.计次循环首 (取数组成员数 (变量名), 计数)

.判断开始 (试文本 ＝ 变量名 [计数])

加工后公式不出结果 ＝ 文本替换 (加工后公式不出结果, 起始位置, 1, “a”)

起始位置 ＝ 起始位置 ＋ 1

.循环判断尾 (起始位置 ≤ 取文本长度 (加工后公式不出结果))

常数文本集 ＝ 分割文本 (加工后公式不出结果, “a”, ) ' 这里用a分割文本

.计次循环首 (取数组成员数 (常数文本集), 计数) ' 这里删除空文本，提取出常数文本

.判断开始 (瑺数文本集 [计数 － a] ＝ “”)

删除成员 (常数文本集, 计数 － a, )

.循环判断首 () ' 这里把公式不出结果里所有常数都换成“b”并记录在加工后公式不出结果

試文本 ＝ 取文本中间 (加工后公式不出结果, 目前位置, 1)

.判断循环首 (试文本 ＝ “0” 或 试文本 ＝ “1” 或 试文本 ＝ “2” 或 试文本 ＝ “3” 或 试文本 ＝ “4” 或 试文本 ＝ “5” 或 试文本 ＝ “6” 或 试文本 ＝ “7” 或 试文本 ＝ “8” 或 试文本 ＝ “9” 或 试文本 ＝ “.”)

替换长度 ＝ 替换长度 ＋ 1

目前位置 ＝ 目前位置 ＋ 1

试文本 ＝ 取文本中间 (加工后公式不出结果, 目前位置, 1)

.判断开始 (替换长度 ≠ 0)

加工后公式不出结果 ＝ 文本替换 (加工后公式不出结果, 起始位置, 替换长度, “b”)

目前位置 ＝ 目前位置 ＋ 1

起始位置 ＝ 目前位置

.循环判断尾 (起始位置 ≤ 取文本长度 (加工后公式不出结果))

重定义数组 (最终公式不絀结果, 假, 取文本长度 (加工后公式不出结果)) ' 定义最终公式不出结果的成员数并清除其数据

.循环判断首 () ' 计算乘方个数并记录位置

运算符位置 ＝ 尋找文本 (加工后公式不出结果, “^”, 起始位置, 假)

.判断开始 (运算符位置 ≠ -1)

加入成员 (乘方, 运算符位置)

起始位置 ＝ 运算符位置 ＋ 1

.循环判断尾 (运算符位置 ≠ -1)

.循环判断首 () ' 计算乘个数并记录位置

运算符位置 ＝ 寻找文本 (加工后公式不出结果, “*”, 起始位置, 假)

.判断开始 (运算符位置 ≠ -1)

加入成员 (乘, 运算符位置)

起始位置 ＝ 运算符位置 ＋ 1

.循环判断尾 (运算符位置 ≠ -1)

.循环判断首 () ' 计算除个数并记录位置

运算符位置 ＝ 寻找文本 (加工后公式不出结果, “/”, 起始位置, 假)

.判断开始 (运算符位置 ≠ -1)

加入成员 (除, 运算符位置)

起始位置 ＝ 运算符位置 ＋ 1

.循环判断尾 (运算符位置 ≠ -1)

.循环判断首 () ' 计算加个数并記录位置

运算符位置 ＝ 寻找文本 (加工后公式不出结果, “+”, 起始位置, 假)

.判断开始 (运算符位置 ≠ -1)

加入成员 (加, 运算符位置)

起始位置 ＝ 运算符位置 ＋ 1

.循环判断尾 (运算符位置 ≠ -1)

.循环判断首 () ' 计算减个数并记录位置

运算符位置 ＝ 寻找文本 (加工后公式不出结果, “-”, 起始位置, 假)

.判断开始 (运算符位置 ≠ -1)

加入成员 (减, 运算符位置)

起始位置 ＝ 运算符位置 ＋ 1

.循环判断尾 (运算符位置 ≠ -1)

.计次循环首 (取文本长度 (加工后公式不出结果), 计数) ' 这里把分恏的变量、运算符、常数都按公式不出结果顺序排序入最终公式不出结果

试文本 ＝ 取文本中间 (加工后公式不出结果, 计数, 1)

.判断开始 (试文本 ＝ “+”)

最终公式不出结果 [计数] ＝ 试文本

.判断 (试文本 ＝ “-”)

最终公式不出结果 [计数] ＝ 试文本

.判断 (试文本 ＝ “*”)

最终公式不出结果 [计数] ＝ 试文本

.判断 (试文本 ＝ “/”)

最终公式不出结果 [计数] ＝ 试文本

.判断 (试文本 ＝ “^”)

最终公式不出结果 [计数] ＝ 试文本

.判断 (试文本 ＝ “b”)

最终公式不出结果 [計数] ＝ 常数文本集 [b]

.计次循环首 (取数组成员数 (变量名), 计次)

.判断开始 (试文本 ＝ 变量名 [计次])

最终公式不出结果 [计数] ＝ 变量名 [计次]

.子程序 运算, , , 计算公式不出结果

.参数 运算类型, 整数型, 数组

.参数 运算结果, 双精度小数型, 数组

.参数 变量, 双精度小数型, 数组

.参数 变量名, 文本型, 数组

.参数 过渡公式不絀结果, 文本型

.参数 最终公式不出结果, 文本型, 数组

.参数 运算法则, 文本型

.局部变量 计数, 整数型

.局部变量 计次, 整数型

.局部变量 判断变量与否, 逻辑型

.局部变量 左, 双精度小数型

.局部变量 右, 双精度小数型

重定义数组 (运算结果, 假, 取数组成员数 (运算类型))

.计次循环首 (取数组成员数 (运算结果), 计数)

.計次循环首 (取数组成员数 (变量名), 计次)

左 ＝ 变量 [计次]

.如果真 (判断变量与否 ＝ 假)

.计次循环首 (取数组成员数 (变量名), 计次)

右 ＝ 变量 [计次]

.如果真 (判断變量与否 ＝ 假)

.判断开始 (运算法则 ＝ “乘方”)

运算结果 [计数] ＝ 求次方 (左, 右)

.判断 (运算法则 ＝ “乘”)

运算结果 [计数] ＝ 左 × 右

.判断 (运算法则 ＝ “除”)

运算结果 [计数] ＝ 左 ÷ 右

.判断 (运算法则 ＝ “加”)

运算结果 [计数] ＝ 左 ＋ 右

.判断 (运算法则 ＝ “减”)

运算结果 [计数] ＝ 左 － 右

最终公式不出结果 [运算类型 [计数] － 2 × (计数 － 1) － 1] ＝ 到文本 (运算结果 [计数]) ' 这里把已算过的部分压缩成运算结果

.计次循环首 (取数组成员数 (最终公式不出结果), 计数) ' 这里偅新排布压缩后的公式不出结果

过渡公式不出结果 ＝ 过渡公式不出结果 ＋ 最终公式不出结果 [计数]

.子程序 变量公式不出结果运算, 双精度小数型, , 不支持括号运算符有：+、-、*、/、^

.参数 公式不出结果, 文本型, , 变量请按A，BC……，Z顺序写不要例如：A+C+D

.参数 变量组, 双精度小数型, 数组, 按顺序分别为A，BC……，Z

.局部变量 加工后公式不出结果, 文本型

.局部变量 过渡公式不出结果, 文本型

.局部变量 变量, 双精度小数型, , "0"

.局部变量 计数, 整数型

.局部变量 同变量第一个位置, 整数型

.局部变量 常数文本集, 文本型, , "0"

.局部变量 乘方结果, 双精度小数型, , "0"

.局部变量 乘结果, 双精度小数型, , "0"

.局部变量 除結果, 双精度小数型, , "0"

.局部变量 加结果, 双精度小数型, , "0"

.局部变量 减结果, 双精度小数型, , "0"

.局部变量 结果, 双精度小数型

.计次循环首 (26, 计数) ' 这里计算有多少種变量并记录变量名

同变量第一个位置 ＝ 寻找文本 (公式不出结果, 字符 (64 ＋ 计数), , 假)

.判断开始 (同变量第一个位置 ≠ -1)

重定义数组 (变量, 假, 取数组成员數 (变量名)) ' 输入变量数据

.计次循环首 (取数组成员数 (变量), 计数)

变量 [计数] ＝ 变量组 [计数]

分析公式不出结果 (公式不出结果, 加工后公式不出结果, 最终公式不出结果, 变量名, 常数文本集, 加, 减, 乘, 除, 乘方) ' 这里进行复杂的多则运算

运算 (乘方, 乘方结果, 变量, 变量名, 过渡公式不出结果, 最终公式不出结果, “乘方”)

分析公式不出结果 (过渡公式不出结果, 加工后公式不出结果, 最终公式不出结果, 变量名, 常数文本集, 加, 减, 乘, 除, 乘方)

运算 (乘, 乘结果, 变量, 变量名, 过渡公式不出结果, 最终公式不出结果, “乘”)

分析公式不出结果 (过渡公式不出结果, 加工后公式不出结果, 最终公式不出结果, 变量名, 常数文夲集, 加, 减, 乘, 除, 乘方)

运算 (除, 除结果, 变量, 变量名, 过渡公式不出结果, 最终公式不出结果, “除”)

分析公式不出结果 (过渡公式不出结果, 加工后公式不絀结果, 最终公式不出结果, 变量名, 常数文本集, 加, 减, 乘, 除, 乘方)

运算 (加, 加结果, 变量, 变量名, 过渡公式不出结果, 最终公式不出结果, “加”)

分析公式不絀结果 (过渡公式不出结果, 加工后公式不出结果, 最终公式不出结果, 变量名, 常数文本集, 加, 减, 乘, 除, 乘方)

运算 (减, 减结果, 变量, 变量名, 过渡公式不出结果, 最终公式不出结果, “减”)

结果 ＝ 到数值 (最终公式不出结果 [1])

把以上内容全部复制粘贴到易语言里就行了你要使用此函数（变量公式不出結果运算）就把它当成命令，注意看看子程序中参数的类型还有，参数变量组的成员数必须跟公式不出结果中变量的种类数相同否则運行会出错，例如：

.子程序 _按钮1_被单击

.局部变量 变量组, 双精度小数型, , "2"

变量组 [1] ＝ 到数值 (编辑框2.内容)

变量组 [2] ＝ 到数值 (编辑框3.内容)

编辑框1.内容 ＝ 箌文本 (变量公式不出结果运算 (编辑框1.内容, 变量组))