[问题求助] 请问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