计算比如何写 求指导，谢谢！

az3368

出售价-来货价得出来的结果除以出售价 得出%
如和写 谢谢！

比如100来货价  出售价120
120-100=20  20除以120  =0.16666667x100=166667%

1173847128

  

子程序名	返回值类型	公开	备 注
_按钮1_被单击

变量名	类 型	静态	数组	备 注
来货价	双精度小数型
出售价	双精度小数型
结果	双精度小数型
百分比	双精度小数型

来货价 ＝ 到数值 (编辑框1.内容)
出售价 ＝ 到数值 (编辑框2.内容)
结果 ＝ 出售价 － 来货价  ' 20
结果 ＝ 结果 ÷ 出售价  ' 20÷100
百分比 ＝ 结果 × 100  ' 0.16666667x100
百分比 ＝ 四舍五入 (百分比, 2)
编辑框3.内容 ＝ 到文本 (百分比) ＋ “%”

.版本 2<br /> <br /> .子程序 _按钮1_被单击<br /> .局部变量 来货价, 双精度小数型<br /> .局部变量 出售价, 双精度小数型<br /> .局部变量 结果, 双精度小数型<br /> .局部变量 百分比, 双精度小数型<br /> <br /> 来货价 ＝ 到数值 (编辑框1.内容)<br /> 出售价 ＝ 到数值 (编辑框2.内容)<br /> 结果 ＝ 出售价 － 来货价  ' 20<br /> 结果 ＝ 结果 ÷ 出售价  ' 20÷100<br /> 百分比 ＝ 结果 × 100  ' 0.16666667x100<br /> 百分比 ＝ 四舍五入 (百分比, 2)<br /> 编辑框3.内容 ＝ 到文本 (百分比) ＋ “%”

ye0918

.版本 2  .程序集 程序集1  .子程序 _启动子程序, 整数型, , 本子程序在程序启动后最先执行 .局部变量 利润率, 小数型  利润率 ＝ 计算利润率 (100, 120)  信息框 (“利润率：” ＋ 到文本 (四舍五入 (利润率, 2)) ＋ “%”, 0, , )  返回 (0)  ' 可以根据您的需要返回任意数值  .子程序 计算利润率, 小数型 .参数 进货价, 小数型 .参数 售价, 小数型 .局部变量 利润, 小数型 .局部变量 利润率, 小数型  利润 ＝ 售价 － 进货价 利润率 ＝ 利润 ÷ 售价 × 100  返回 (利润率)

尛龍科技

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口

子程序名	返回值类型	公开	备 注
__启动窗口_创建完毕

变量名	类 型	静态	数组	备 注
来货价	双精度小数型
出售价	双精度小数型
利润额	双精度小数型
利润率	双精度小数型
显示文本	文本型

来货价 ＝ 100
出售价 ＝ 120
如果 (出售价 ≤ 0)
信息框 (“售价不能小于或等于0！”, 0, “错误”, )
返回 ()
利润额 ＝ 出售价 － 来货价
利润率 ＝ 利润额 ÷ 出售价 × 100
显示文本 ＝ “利润率：” ＋ 数值到格式文本 (利润率, 2, 假) ＋ “%”
调试输出 (显示文本)
调试输出 (“利润额=”, 利润额, “利润率=”, 利润率, “%”)

i支持库列表	支持库注释
spec	特殊功能支持库

.版本 2<br /> .支持库 spec<br /> <br /> .程序集 窗口程序集_启动窗口<br /> <br /> .子程序 __启动窗口_创建完毕<br /> .局部变量 来货价, 双精度小数型<br /> .局部变量 出售价, 双精度小数型<br /> .局部变量 利润额, 双精度小数型<br /> .局部变量 利润率, 双精度小数型<br /> .局部变量 显示文本, 文本型<br /> <br /> <br /> 来货价 ＝ 100<br /> 出售价 ＝ 120<br /> .如果 (出售价 ≤ 0)<br />     信息框 (“售价不能小于或等于0！”, 0, “错误”, )<br />     返回 ()<br /> .否则<br />     利润额 ＝ 出售价 － 来货价<br />     利润率 ＝ 利润额 ÷ 出售价 × 100<br />     显示文本 ＝ “利润率：” ＋ 数值到格式文本 (利润率, 2, 假) ＋ “%”<br />     调试输出 (显示文本)<br />     调试输出 (“利润额=”, 利润额, “利润率=”, 利润率, “%”)<br /> .如果结束

自己替换一下对应组件就行了
* “利润率：16.67%”
* “利润额=” | 20.000000 | “利润率=” | 16.666667 | “%”
被调试易程序运行完毕

丶TiGa

（到数值（出货价编辑框.内容） - 到数值（来货价编辑框.内容）） /  到数值（出货价编辑框.内容）

丶TiGa

丶TiGa 发表于 2025-7-2 20:37
（到数值（出货价编辑框.内容） - 到数值（来货价编辑框.内容）） /  到数值（出货价编辑框.内容） ...

得到结果 * 100 拼接一个%

补充内容 (2025-7-2 20:38):
结果 = （到数值（出货价编辑框.内容） - 到数值（来货价编辑框.内容）） /  到数值（出货价编辑框.内容）
调试输出（到文本（结果 * 100） + “%”）

汉族

你的回答就是答案啊！  后面只是你自己打错了吧

1173847128

一个问题能问3次离谱- -