Warning: file_get_contents(/data/phpspider/zhask/data//catemap/5/spring-mvc/2.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181
Vb.net 如何按升序打印数字visual basic_Vb.net_Multithreading_Numbers - Fatal编程技术网

Vb.net 如何按升序打印数字visual basic

Vb.net 如何按升序打印数字visual basic,vb.net,multithreading,numbers,Vb.net,Multithreading,Numbers,我有一个程序,它应该在两个不同的线程中按升序和降序打印用户输入的数字。我有线程设置,但是我是一个初学者,我不知道如何在各自的线程中按顺序打印数字。这就是我目前所拥有的 Module Module1 Sub Main() Dim A, B, C, D, E, F As String A = Console.ReadLine() B = Console.ReadLine() C = Console.ReadLine() D = Console.

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

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

任何帮助都将不胜感激。

首先,您最好将数字输入到数组中。然后可以使用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

无论是谁否决了这个问题,这个问题都是完全合法的,问得很好。仅仅因为这是一个基本问题并不能证明投反对票是正确的。谢谢你的帮助。如果这回答了你的问题,请点击答案左侧的勾号,将其标记为已回答-干杯