进位计算，是否还还有牛逼写法

KD飞飞

大佬看看我写的，能不能省省，感觉我在脱裤子放屁的那种
虽然能用，但是不优雅
难过

  

子程序名	返回值类型	公开	备 注
序号计算子程序

变量名	类 型	静态	数组	备 注
局_当前数a	整数型
输出内容	文本型
局_表9索引	整数型

计次循环首 (1100, 局_当前数a)
处理事件 ()
如果真 (局_当前数a ＜ 10)
输出内容 ＝ “000” ＋ 到文本 (局_当前数a)
如果真 (局_当前数a ≥ 10 且 局_当前数a ＜ 100)
输出内容 ＝ “00” ＋ 到文本 (局_当前数a)
如果真 (局_当前数a ≥ 100 且 局_当前数a ＜ 1000)
输出内容 ＝ “0” ＋ 到文本 (局_当前数a)
如果真 (局_当前数a ≥ 1000)
输出内容 ＝ 到文本 (局_当前数a)
局_表9索引 ＝ 超级列表框9.插入表项 (, , , , , )
超级列表框9.置标题 (局_表9索引, 0, 输出内容)
计次循环尾 ()

i支持库列表	支持库注释
iext	扩展界面支持库一

.版本 2<br /> .支持库 iext<br /> <br /> .子程序 序号计算子程序<br /> .局部变量 局_当前数a, 整数型<br /> .局部变量 输出内容, 文本型<br /> .局部变量 局_表9索引, 整数型<br /> <br /> .计次循环首 (1100, 局_当前数a)<br />     处理事件 ()<br />     .如果真 (局_当前数a ＜ 10)<br />         输出内容 ＝ “000” ＋ 到文本 (局_当前数a)<br />     .如果真结束<br />     .如果真 (局_当前数a ≥ 10 且 局_当前数a ＜ 100)<br />         输出内容 ＝ “00” ＋ 到文本 (局_当前数a)<br />     .如果真结束<br />     .如果真 (局_当前数a ≥ 100 且 局_当前数a ＜ 1000)<br />         输出内容 ＝ “0” ＋ 到文本 (局_当前数a)<br />     .如果真结束<br />     .如果真 (局_当前数a ≥ 1000)<br />         输出内容 ＝ 到文本 (局_当前数a)<br />     .如果真结束<br />     局_表9索引 ＝ 超级列表框9.插入表项 (, , , , , )<br />     超级列表框9.置标题 (局_表9索引, 0, 输出内容)<br /> .计次循环尾 ()

花间一壶酒

以前写的  哈哈哈哈哈哈

花间一壶酒

我也这么写的  哈哈哈哈哈

qq977352880

来赚个积分，感谢分享。

KD飞飞

小小鱿鱼 发表于 2025-1-10 13:36
我叫gpt给你优化的 哈哈

我试了，牛到批爆，确实能用
海德世人工智能啊~！

黑咖啡

不是精易这个吗

小小鱿鱼

KD飞飞 发表于 2025-1-10 13:03
楼主一辈子没见过这种东西

我叫gpt给你优化的 哈哈

冯古屋

取文本右边(“0000”+到文本(a),4)

KD飞飞

小小鱿鱼 发表于 2025-1-10 12:25
格式化文本 (“%04d”, 局_当前数a)

楼主一辈子没见过这种东西