Question

看图片进行编写VB用指针方法

看图片进行编写VB用指针方法

Answer 1

Sub main()
    Dim n1%, n2%, n3%
    n1 = InputBox("n1=")
    n2 = InputBox("n2=")
    n3 = InputBox("n3=")
    If n1 > n2 Then swap n1, n2
    If n1 > n3 Then swap n1, n3
    If n2 > n3 Then swap n2, n3
    Debug.Print n1; n2; n3
End Sub
Sub swap(p1%, p2%)
    Dim p%
    p = p1
    p1 = p2
    p2 = p
End Sub