Question

哪位VB大神帮忙解决一下，谢谢了。为啥显示不了结果，没有报错呀

Option Explicit
Private Sub Numbers_Change(a, b)

Dim num1 As Integer
num1 = a: a = b: b = num1
End Sub
Private Sub Numbers_Sort(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(j) < arr(i) Then
Call Numbers_Change(arr(j), arr(i))
End If
Next j
Next i
For i = 0 To UBound(arr)
Debug.Print arr(i) '在立即窗口输出数据
Next i
End Sub

Private Sub Form_Load()
Dim myarr, i As Long
myarr = Array(45, 68, 120, 31, 78)
Call Numbers_Sort(myarr)
End Sub

Answer 1

显示结果在立即窗口内，可以在视图菜单里找到立即窗口打开就可以看到了。