请问VBS如何用插入排序法给动态数组排序？

793150834

我自己写了个代码，要么只显示一个值，要么什么都不显示，我知道这代码逻辑不对，但是我真的尽力了才来问别人，百度知道没人理，VBS吧歧视新人，思必达要钱，果壳虽然有一个人来但是一个人需要花N多天。声明常量:我不是伸手党，代码如下。
Option Explicit
Dim Arr()
Dim A,B,C
Dim j

B=InputBox("Now,Please writing B")'元素数

For A=0 To B'输入元素值
ReDim Arr(A)
Arr(A)= InputBox("Now,Please writing A as well")
Arr(A)= Int(Arr(A))
If IsNumeric(Arr(A))=True then'处理意外
Else
WScript.Quit  
End If
Next

B1'调用

For j=0 To B'结果
C=C&" "&Arr(B)
Next
WScript.Echo C
Function B1
Dim i,n,t

For i = 0 To B-1'排序
For n = i To B
If Arr(i) < Arr(n) Then
t = Arr(i)
Arr(i) = Arr(n)
Arr(n) = t
End If
Next
Next
End Function

ivor

1. For A=0 To B'输入元素值
   
2. ReDim Arr(A)

复制代码

ReDim Arr(A)去掉，你犯了低级错误，Arr变成局部变量了

第二行要声明数组的大小

1. Dim Arr(5)

复制代码

ivor

回复 1# 793150834

差点没把我看吐了，错误的太多，我修改了一下，我VB不熟悉，凑活看吧

1. 
   
2. Option Explicit
   
3. Dim Arr(5) '必须声明数组大小
   
4. Dim A,B,C
   
5. Dim j
   
6. 
   
7. B=InputBox("Now,Please writing B")' 元素数不能大于声明最大值
   
8. 
   
9. For A=0 To B'输入元素值
   
10.         Arr(A)= InputBox("Now,Please writing A as well")
    
11.         Arr(A)= Int(Arr(A))
    
12.         If IsNumeric(Arr(A))=True then'处理意外
    
13.         Else
    
14.         WScript.Quit  
    
15.         End If
    
16. Next
    
17. 
    
18. B1'调用
    
19. 
    
20. For j=0 To ubound(Arr)'        结果
    
21.         C=C&" "&Arr(j)        '链接数组每个元素
    
22. Next
    
23. WScript.Echo "Arr数组:" & C
    
24. 
    
25. Function B1
    
26. Dim i,n
    
27. 
    
28. '***********************************
    
29. '不用第三个变量交换
    
30. For i = 0 To ubound(Arr)'从大到小排序
    
31.         For n = i To ubound(Arr)
    
32.                 If Arr(i) < Arr(n) Then
    
33.                         Arr(i) = Arr(i) + Arr(n)
    
34.                         Arr(n) = Arr(i) - Arr(n)
    
35.                         Arr(i) = Arr(i) - Arr(n)
    
36.                 End If
    
37.         Next
    
38. Next
    
39. End Function

复制代码

CrLf

思必达是垃圾站，那都是水军发的贴

CrLf

回复 2# ivor


    Dim Arr() 声明的是动态数组


------------------------------------------------------------


仔细看了下楼主的代码，有几个问题
Option Explicit
Dim Arr()
Dim A,B,C
Dim j

B=InputBox("Now,Please writing B")'元素数

For A=0 To B-1'输入元素值
        ReDim Preserve Arr(A+1)
        Arr(A)= InputBox("Now,Please writing A as well")
        Arr(A)= Int(Arr(A))
        If IsNumeric(Arr(A))=True then'处理意外
        Else
                WScript.Quit  
        End If
Next

B1'调用

For j=0 To B-1'结果
        C=C&" "&Arr(j)
Next

WScript.Echo C

Function B1
        Dim i,n,t
       
        For i = 0 To B-1'排序
                For n = i To B
                        If Arr(i) < Arr(n) Then
                                t = Arr(i)
                                Arr(i) = Arr(n)
                                Arr(n) = t
                        End If
                Next
        Next
End Function