.版本 2
.子程序 _按钮1_被单击
.局部变量 文本, 文本型
.局部变量 内容, 文本型
.局部变量 次数, 整数型
.局部变量 长度, 整数型
.局部变量 次方, 整数型
.局部变量 小数点, 整数型
.局部变量 数值, 双精度小数型
.局部变量 绝对值, 双精度小数型
内容 ＝ 编辑框1.内容
绝对值 ＝ 取绝对值 (到数值 (内容))
.如果真 (绝对值 ＞ 1000 或 绝对值 ＜ 0.001)
.如果 (绝对值 ＞ 1)
.如果 (到数值 (内容) ＜ 1)
长度 ＝ 取文本长度 (内容) － 1
.否则
长度 ＝ 取文本长度 (内容)
.如果结束
文本 ＝ 取文本右边 (内容, 长度)
.否则
小数点 ＝ 寻找文本 (内容, “.”, , 假)
.如果真 (小数点 ＝ -1)
小数点 ＝ 0
.如果真结束
长度 ＝ 取文本长度 (内容) － 小数点
文本 ＝ 取文本右边 (内容, 长度)
.计次循环首 (取文本长度 (文本), 次数)
.如果真 (到数值 (取文本中间 (文本, 次数, 1)) ≠ 0)
跳出循环 ()
.如果真结束
.计次循环尾 ()
次方 ＝ －次数
文本 ＝ 取文本右边 (文本, 取文本长度 (文本) － 次数 ＋ 1)
.如果结束
数值 ＝ 到数值 (文本)
.计次循环首 (取文本长度 (文本), 次数)
.如果真 (数值 ＜ 10)
跳出循环 ()
.如果真结束
数值 ＝ 数值 ÷ 10
.计次循环尾 ()
.如果真 (次方 ＝ 0)
次方 ＝ 次数 － 1
.如果真结束
.如果真 (取符号 (到数值 (内容)) ＝ -1)
数值 ＝ －数值
.如果真结束
数值 ＝ 四舍五入 (数值, 3)
编辑框2.内容 ＝ 到文本 (数值) ＋ “×10^” ＋ 到文本 (次方)
返回 ()
.如果真结束
数值 ＝ 四舍五入 (到数值 (内容), 3)
编辑框2.内容 ＝ 到文本 (数值)