VB程序设计,将一个TEXT文本框内的数据从小到大排列!

我有一组数据,在文本框中的数据排列方式为

250X700
300X700
600X700
400X900
400X700
400X1100
400X1150
400X800
300X600
200X400
700X900
700X700
400X750
250X1100
250X800
400X900
400X1000
300X750
200X500
200X600
200X300
200X750
400X1200
400X1300”
现在我想让“X”号左右的数据相乘,对比结果,最后让以上的数据按大小重新排列。
我再做工程的方案,这里其实是梁截面参数的统计及归类,求助,怎么按大小顺序进行排列呢?

文本框内的数据是什么格式的,如12,3,4,23,543,345
思路:用split函数将字符串转变为独立的数字,如a=split(text1.text,",")
编写一个数字排序的函数
将结果重新组合为字符串,并返回给text1.text
难点是数字排序函数,这里面有不同的算法。

如果不考虑编程的方法,可以通过电子表格来实现:
将你上面的数字复制到记事本中,然后用替换功能将所有的x替换为“,”(英文的逗号,不包括双引号)。然后保存,默认的扩展名名是“txt”,改为“csv”。然后打开,应该变为电子表格了。电子表格的A列,B列应该是你上面的数据,现在在第一行的C列输入公式:“=A*B”回车,通过鼠标拖拽功能,把第一行的C列的值复制到下面所有数据,这样就计算出来乘积了,然后选中C列,在单元格设置中将单元格选为数值,然后还是选中C列,用电子表格的排序功能排序,完成。
200 300 60000
200 400 80000
200 500 100000
200 600 120000
200 750 150000
250 700 175000
300 600 180000
250 800 200000
300 700 210000
300 750 225000
250 1100 275000
400 700 280000
400 750 300000
400 800 320000
400 900 360000
400 900 360000
400 1000 400000
600 700 420000
400 1100 440000
400 1150 460000
400 1200 480000
700 700 490000
400 1300 520000
700 900 630000追问

我已经写了在上面了, 我无法上传图片 ,text文本框的multiline属性为true,

温馨提示:答案为网友推荐,仅供参考
相似回答