数组比大小问题，老师请进。

woaiping · 发表于 2020-9-13 01:37:46

前面没有描述清楚，是我个人问题，但我也爽快结贴啦，在这里先感谢热的朋友帮忙，现在重新开贴，会的朋友谢帮忙谢谢啦。
问题是这样的，有一个分割后的文本数组如下：
08,36,43,35,27,30,31
04,37,42,39,30,03,32
05,28,16,40,13,41,02
09,23,06,40,36,08,19
10,38,47,04,32,35,49
27,14,38,07,19,28,46
20,44,09,14,18,07,29
我要计次取分割[2]进行大小对比

对比后的结果是这样的
36<37>28>23<38>14<44

会的朋友帮帮忙，感谢帮助的朋友谢谢。

a小墨 · 发表于 2020-9-13 01:55:35

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

变量名	类型	静态	数组	备注
L_Arr	文本型		0
L_Arr2	文本型		0
L_Arr3	文本型		0
L_01	整数型
L_左边	整数型
L_右边	整数型
L_结果	文本型
n	整数型

L_Arr ＝分割文本 (编辑框1.内容, #换行符, )

计次循环首 (取数组成员数 (L_Arr), n)

L_Arr2 ＝分割文本 (L_Arr [n], “,”, )

加入成员 (L_Arr3, L_Arr2 [2])

计次循环尾 ()
L_结果＝到文本 (L_Arr3 [1])

计次循环首 (取数组成员数 (L_Arr3) － 1, L_01)

L_左边＝到整数 (L_Arr3 [L_01])

L_右边＝到整数 (L_Arr3 [L_01 ＋ 1])

L_结果＝ L_结果＋ S_比大小 (L_左边, L_右边) ＋到文本 (L_右边)

计次循环尾 ()
调试输出 (L_结果)

子程序名	返回值类型	公开	备注
S_比大小	文本型		> < =
参数名	类型	参考	可空	数组	备注
C_左边	整数型
C_右边	整数型

如果真 (C_左边＝ C_右边)

返回 (“=”)

如果真 (C_左边＞ C_右边)

返回 (“>”)

如果真 (C_左边＜ C_右边)

返回 (“<”)
返回 (“”)

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

借鉴上个帖子源码修改的，达到了你要的效果

53770zhang · 发表于 2020-9-13 01:59:44

不要用JB悬赏还不如普通的

a小墨 · 发表于 2020-9-13 02:00:51

53770zhang 发表于 2020-9-13 01:59
不要用JB悬赏还不如普通的

混点荣誉值

mrzcpo · 发表于 2020-9-13 02:08:44

ddemo.e (4.14 KB, 下载次数: 5)

woaiping · 发表于 2020-9-13 10:36:59

mrzcpo 发表于 2020-9-13 02:08

你这改的不太易用，我还要去算数组有几行.......有可能数组是几百行，还要一行一行的加数组成员，大哥，能不能易用点呢？

		自动登录	找回密码
密码			注册

[精币悬赏] 数组比大小问题，老师请进。