VB求连接数字串

显示全部楼层 · 2010-7-17 13:47:30

设有n个正整数(n<=20)，要求编程将它们连接成一排，组成一个最大的多位数。
【样例】
输入：n=3，三个正整数13、312、343
输出：连接成的最大数为：34331213。
又输入：n=4，四个正整数7、13、4、246
输出：连接成的最大数为：7424613。

千问 · 2010-7-17 13:47:30

'Dim c(2) As String '// 3代表N
'c(0) = "13"
'c(1) = "312"
'c(2) = "343"
Dim c(3) As String
c(0) = "7"
c(1) = "13"
c(2) = "4"
c(3) = "246"
For d = LBound(c) To UBound(c)
For e = LBound(c) To UBound(c)
If c(e) < c(d) Then
'这里进行的是字符串比较！

VB求 连接数字串

VB求连接数字串