请问为什么我计算不出答案呢是哪里出错了？

辅导费啊 · 发表于 2013-7-7 07:22:43

[e]
.版本 2

.程序集窗口程序集1

.子程序 _按钮1_被单击
.局部变量 N1, 整数型
.局部变量 C, 文本型
.局部变量 N结果, 双精度小数型
.局部变量 C当前数字, 文本型
.局部变量 C运算符, 文本型
.局部变量 N第1数, 双精度小数型
.局部变量 N第2数, 双精度小数型

编辑框2.内容＝取文本字符1到字符2 (编辑框1.内容, “问题: ”, “= ? ”)
N结果＝ 0
.计次循环首 (取文本长度 (编辑框2.内容), N1)
C ＝取文本中间 (编辑框2.内容, N1, 1)
.判断开始 (寻找文本 (“0123456789”, C, , 假) ＞ 0)
C当前数字＝ C当前数字＋ C

.默认
C运算符＝ C
N第1数＝到数值 (C当前数字)
C当前数字＝ “”
.判断结束

.计次循环尾 ()
N第2数＝到数值 (C当前数字)
.判断开始 (C运算符＝ “+”)
N结果＝ N第1数＋ N第2数
.判断 (C运算符＝ “-”)
N结果＝ N第1数－ N第2数
.判断 (C运算符＝ “X”) ' 这里要看看网页上用什么表示乘号
N结果＝ N第1数 × N第2数
.判断 (C运算符＝ “+”) ' 这里要看看网页上用什么表示除号
N结果＝ N第1数 ÷ N第2数
.默认

.判断结束
编辑框2.加入文本 (“=” ＋到文本 (N结果))

.子程序取文本字符1到字符2, 文本型, 公开
.参数文本, 文本型, , 被查找的文本
.参数前标志文本, 文本型, , 前面的一个标志文本
.参数后标志文本, 文本型, , 从前标志文本＋1位置起查找的标志文本
.参数起始寻找位置, 整数型, 可空, 前标志文本位置＋1位置
.参数是否区分大小写, 逻辑型, 可空, 默认为不区分大小写
.局部变量找到的位置1, 整数型
.局部变量找到的位置2, 整数型
.局部变量结果文本, 文本型

.如果真 (起始寻找位置 ≤ 0)
起始寻找位置＝ 1
.如果真结束
找到的位置1 ＝寻找文本 (文本, 前标志文本, 起始寻找位置, 是否区分大小写)
找到的位置2 ＝寻找文本 (文本, 后标志文本, 找到的位置1 ＋取文本长度 (前标志文本), 是否区分大小写)
' 输出调试文本 (找到的位置1, 找到的位置2)
.如果真 (找到的位置1 ＝ -1 或找到的位置2 ＝ -1)
返回 (“”)
.如果真结束
结果文本＝取文本中间 (文本, 找到的位置1 ＋取文本长度 (前标志文本), 找到的位置2 － (找到的位置1 ＋取文本长度 (前标志文本)))
返回 (结果文本)

[/e]