如何按升序打印数字 visual basic

Question

我有一个程序应该在两个不同的线程中按升序和降序打印用户输入的数字。我有线程设置，但我是初学者，我不知道如何在各自的线程中按顺序打印数字。这是我目前所拥有的

Module Module1

  Sub Main()

    Dim A, B, C, D, E, F As String

    A = Console.ReadLine()

    B = Console.ReadLine()

    C = Console.ReadLine()

    D = Console.ReadLine()

    E = Console.ReadLine()

    F = Console.ReadLine()

    Dim Up As System.Threading.Thread = New Threading.Thread(AddressOf Ascending)

    'Setting Up as a thread

    Up.Start()

    Dim Down As System.Threading.Thread = New Threading.Thread(AddressOf Decending)

    Down.Start()

    Console.ReadKey()

End Sub
Sub Ascending()
    Dim A, B, C, D, E, F As Integer

End Sub
Sub Decending()
    Dim A, B, C, D, E, F As Integer

End Sub
End Module

如有任何帮助，我们将不胜感激。

Answer 1

首先，您最好将数字输入数组。然后就可以用Array.Sort方法升序排序然后用Array.Reverse方法对数组进行排序，然后重排。

Dim Numbers() as String

Numbers(0) = Console.ReadLine()
Numbers(1) = Console.ReadLine()
Numbers(2) = Console.ReadLine()
Numbers(3) = Console.ReadLine()
Numbers(4) = Console.ReadLine()
Numbers(5) = Console.ReadLine()
Numbers(6) = Console.ReadLine()

Dim Up As System.Threading.Thread = New Threading.Thread(AddressOf Ascending)

    'Setting Up as a thread

    Up.Start()

    Dim Down As System.Threading.Thread = New Threading.Thread(AddressOf Decending)

    Down.Start()

    Console.ReadKey()

Sub Ascending()
    Array.Sort(Numbers)
End Sub

Sub Decending()
    Array.Sort(Numbers)
    Array.Reverse(Numbers)
End Sub

如何按升序打印数字 visual basic

How to print numbers in ascending order visual basic

vb.net

multithreading

numbers