Private Sub ns(arr As Variant)
  Dim l As Long, i As Long, j As Long
  For i = 0 To UBound(arr)
   For j = i + 1 To UBound(arr)
    If a(i) < a(j) Then
     Call nc(a(i), a(j))
     End If
    Next j
  Next i
  
For l = 0 To UBound(arr)
 Debug.Print arr(l)
 Next l
End Sub


Private Sub nc(a, b)
 Dim num As Integer
 num = a
 a = b
 b = num
End Sub


Private Sub Command1_Click()
Dim myarr As Variant
 myarr = Array(45, 68, 120, 31)
 Call ns(myarr)
End Sub

   If a(i) < a(j) Then
     Call nc(a(i), a(j))

这个a是从哪里冒出来的？

Private Sub ns(arr As Variant)
  Dim l As Long, i As Long, j As Long
  For i = 0 To UBound(arr)
   For j = i + 1 To UBound(arr)
    If arr(i) < arr(j) Then
     Call nc(arr(i), arr(j))
     End If
    Next j
  Next i
  
For l = 0 To UBound(arr)
 Debug.Print arr(l)
 Next l
End Sub


Private Sub nc(a, b)
 Dim num As Integer
 num = a
 a = b
 b = num
End Sub


Private Sub Command1_Click()
Dim myarr As Variant
 myarr = Array(45, 68, 120, 31)
 Call ns(myarr)
End Sub

Dim myarr As Integer    '定义为整型数据更加合理，并且只能在通用部分定义

Private Sub ns(arr As Integer)
  Dim l As Long, i As Long, j As Long
  For i = 0 To UBound(myarr) - 1     'For i = 0 To UBound(arr)  数组 myarr 在其他过程调用，不能使用过程变量 arr
   For j = i + 1 To UBound(myarr)    'For j = i + 1 To UBound(arr)   同上
    If myarr(i) < myarr(j) Then      'If a(i) < a(j) Then    a(i) 与 a(j) 数组没有定义，不能使用
     Call nc(myarr(i), myarr(j))     'Call nc(a(i), a(j))    同上   '
     End If
    Next j
  Next i
  Me.Show
For l = 0 To UBound(arr)

 Debug.Print arr(l)

 Next l
End Sub

Private Sub nc(a, b)   '这个过程实际就是排序，将 myarr(i) 与 myarr(j) 分别传递给 a 与 b
 Dim num As Integer

 num = a

 a = b

 b = num
End Sub

Private Sub Command1_Click()

 myarr = Array(45, 68, 120, 31)   '为 myarr 数组赋值
 Call ns(myarr)    '调用 ns 过程
End Sub

收到的鲜花

• for_vb 于 2017-03-15 11:40 送鲜花  1朵   附言：好文章