ivor

For A=0 To B'输入元素值
ReDim Arr(A)
复制代码

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

第二行要声明数组的大小

Dim Arr(5)
复制代码

ivor

回复 1# 793150834

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

Option Explicit
Dim Arr(5) '必须声明数组大小
Dim A,B,C
Dim j

B=InputBox("Now,Please writing B")' 元素数不能大于声明最大值

For A=0 To B'输入元素值
	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 ubound(Arr)'	结果
	C=C&" "&Arr(j)	'链接数组每个元素
Next 
WScript.Echo "Arr数组:" & C

Function B1
Dim i,n

'***********************************
'不用第三个变量交换
For i = 0 To ubound(Arr)'从大到小排序
	For n = i To ubound(Arr)
		If Arr(i) < Arr(n) Then
			Arr(i) = Arr(i) + Arr(n)
			Arr(n) = Arr(i) - Arr(n)
			Arr(i) = Arr(i) - Arr(n)
		End If
	Next 
Next
End Function
复制代码