以下代码改为按键精灵代码：Dim numsReDim numsUBoundarrFor i = 1 To UBoundarr将每个元素中的数值提取出来并存储到一个新的数组中 numsi = CIntLeftarri InStrarri - 1NextFor i = UBoundnums - 1 To 1 Step -1对数值数组进行冒泡排序从大到小 For j = 0 To i -

Dim nums() ReDim nums(UBound(arr)) For i = 1 To UBound(arr) nums(i) = CInt(Left(arr(i), InStr(arr(i), ")") - 1)) Next For i = UBound(nums) - 1 To 1 Step -1 For j = 0 To i - 1 If nums(j) < nums(j + 1) Then temp = nums(j) nums(j) = nums(j + 1) nums(j + 1) = temp tempStr = arr(j + 1) arr(j + 1) = arr(j + 2) arr(j + 2) = tempStr End If Next Next newStr = "" For i = UBound(arr) To 1 Step -1 newStr = newStr & "(" & arr(i) Next

'改为按键精灵代码： Dim nums() Dim i, j, temp, tempStr Dim arr arr = Split("1)hello(2)world(3)how(4)are(5)you", "(") ReDim nums(UBound(arr)) For i = 1 To UBound(arr) nums(i) = CInt(Left(arr(i), InStr(arr(i), ")") - 1)) Next For i = UBound(nums) - 1 To 1 Step -1 For j = 0 To i - 1 If nums(j) < nums(j + 1) Then temp = nums(j) nums(j) = nums(j + 1) nums(j + 1) = temp tempStr = arr(j + 1) arr(j + 1) = arr(j + 2) arr(j + 2) = tempStr End If Next Next newStr = "" For i = UBound(arr) To 1 Step -1 newStr = newStr & "(" & arr(i) Nex