本帖最后由 ivor 于 2016-2-22 18:47 编辑
回复 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
复制代码
|