请问怎么取一个未知数的个十百千位

jackey

请问怎么分别取一个未知数的个十百千位，求大哥们给个源码参考下

浪子小刀

TX辰凌

给你参考，以下代码。版本 2.支持库 spec.局部变量 数字, 整数型.局部变量 文本, 文本型.局部变量 数组, 文本型, , "0".局部变量 m, 整数型.局部变量 i, 整数型置随机数种子 (取启动时间 ())数字 ＝ 取随机数 (0, 10000)数组 ＝ { “个”, “十”, “百”, “千”, “万” }m ＝ 取文本长度 (到文本 (数字)).计次循环首 (m, i)    .如果真 (i ＞ 1)        文本 ＝ “, ” ＋ 文本    .如果真结束    文本 ＝ 数组 [i] ＋ “位：” ＋ 取文本中间 (到文本 (数字), m － i ＋ 1, 1) ＋ 文本.计次循环尾 ()调试输出 (数字, 文本)

洃铯‰感伤

  

窗口程序集名	保 留	保 留	备 注
窗口程序集1

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

变量名	类 型	静态	数组	备 注
数字文本	文本型
i	整数型

数字文本 ＝ “654321”
计次循环首 (4, i)
' 取文本中间 (数字文本, 取文本长度 (数字文本) － i ＋ 1, 1)
输出调试文本 (取文本中间 (数字文本, 取文本长度 (数字文本) － i ＋ 1, 1))
' 个十百千位
计次循环尾 ()

.版本 2<br /> <br /> .程序集 窗口程序集1<br /> <br /> .子程序 _按钮1_被单击<br /> .局部变量 数字文本, 文本型<br /> .局部变量 i, 整数型<br /> <br /> 数字文本 ＝ “654321”<br /> .计次循环首 (4, i)<br />     ' 取文本中间 (数字文本, 取文本长度 (数字文本) － i ＋ 1, 1)<br />     输出调试文本 (取文本中间 (数字文本, 取文本长度 (数字文本) － i ＋ 1, 1))<br />     ' 个十百千位<br /> .计次循环尾 ()

林佳楠

编辑框1.内容 ＝ 到文本 (取随机数 (1000, 9999))

jackey

非常感谢各位的热心帮忙