[已解决]求n大数

mmc998

Bookn大数.zip (56.39 KB, 下载次数: 6)

2015-1-7 21:34 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

ppp710715

2015-1-7 22:13

1. Sub ttt()
   
2.   Dim arr, brr, rw&, tem, i&, k&
   
3.   arr = [a4].CurrentRegion
   
4.   For i = 1 To UBound(arr)
   
5.     brr = Application.Index(arr, i, 0)
   
6.     For x = 1 To UBound(brr)
   
7.        For y = x + 1 To UBound(brr)
   
8.           If brr(x) < brr(y) Then
   
9.            temp = brr(x)
   
10.            brr(x) = brr(y)
    
11.            brr(y) = temp
    
12.           End If
    
13.        Next y
    
14.      Next x
    
15.      Cells(i + 3, "h").Resize(1, 6) = brr
    
16.    Next
    
17. End Sub

复制代码

跳转到最佳答案楼层

ppp710715

其实就是每行排序，由大到小，冒泡排序可也！

mmc998

ppp710715 发表于 2015-1-7 21:54
其实就是每行排序，由大到小，冒泡排序可也！

怎么做呀

ppp710715

1. Sub ttt()
   
2.   Dim arr, brr, rw&, tem, i&, k&
   
3.   arr = [a4].CurrentRegion
   
4.   For i = 1 To UBound(arr)
   
5.     brr = Application.Index(arr, i, 0)
   
6.     For x = 1 To UBound(brr)
   
7.        For y = x + 1 To UBound(brr)
   
8.           If brr(x) < brr(y) Then
   
9.            temp = brr(x)
   
10.            brr(x) = brr(y)
    
11.            brr(y) = temp
    
12.           End If
    
13.        Next y
    
14.      Next x
    
15.      Cells(i + 3, "h").Resize(1, 6) = brr
    
16.    Next
    
17. End Sub

复制代码

ppp710715

请看附件》 N大数排序.rar (38.12 KB, 下载次数: 8)

2015-1-7 22:18 上传

点击文件名下载附件