Vb.net Visual Basic-写入比前面的数字大的数字

Vb.net Visual Basic-写入比前面的数字大的数字,vb.net,basic,Vb.net,Basic,我是一名Visual Basic新手,我有一些任务长期困扰着我。我不知道有谁可以向我请教,所以我希望这里会有一些好的人给我一些解决这个问题的线索 请注意,我是个新手,请不要对我粗暴。我需要一些“写的数字比前面的数字大”的例子。 我的英语不是很熟练,所以我不能很好地解释或寻找例子 关键是我有6个值,我需要测试并将其写入listbox,值witch大于它之前的所有值(不是它之后的值,而是尽可能多的值) 这将返回您要查找的结果 Private Sub Button1_Click(sender As O

我是一名Visual Basic新手,我有一些任务长期困扰着我。我不知道有谁可以向我请教,所以我希望这里会有一些好的人给我一些解决这个问题的线索

请注意,我是个新手,请不要对我粗暴。我需要一些“写的数字比前面的数字大”的例子。 我的英语不是很熟练,所以我不能很好地解释或寻找例子

关键是我有6个值,我需要测试并将其写入listbox,值witch大于它之前的所有值(不是它之后的值,而是尽可能多的值)


这将返回您要查找的结果

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

    Dim strClasses(5) As Integer
    strClasses(0) = 1
    strClasses(1) = 2
    strClasses(2) = 1
    strClasses(3) = 5
    strClasses(4) = 6

    Debug.Print(maxOutArray(strClasses))

    strClasses(0) = 10
    strClasses(1) = 5
    strClasses(2) = 6
    strClasses(3) = 9
    strClasses(4) = 11

    Debug.Print(maxOutArray(strClasses))

End Sub

Private Function maxOutArray(values() As Integer) As String
    Dim currentHightest As Integer

    Dim returnVal As String = String.Empty

    For Each parseInt As Integer In values
        If parseInt > currentHightest Then
            currentHightest = parseInt
            returnVal = String.Concat(returnVal, " ", currentHightest)
        End If
    Next
    Return returnVal

End Function

那么,说得清楚一点,你是说你有一组用户输入的数字,你想对它们进行排序并按升序显示吗?不是对它们进行排序,只是为了显示比它前面的所有数字都大的数字。例:如果我输入1 2 1 5 6程序应该显示1 2 5 6如果我输入10 5 6 9 11程序应该显示10 11我希望你能理解我。而不是你的回答:)听起来你想在运行你所有的值时保持最高的值。类似的。但是我在网上找不到任何关于我的语言的有用信息,我也不知道如何用英语输入:(哦哦哦哦哦天哪,我刚刚注意到我所有的值都设置为strClass(0)。现在我明白为什么它不起作用了。
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

    Dim strClasses(5) As Integer
    strClasses(0) = 1
    strClasses(1) = 2
    strClasses(2) = 1
    strClasses(3) = 5
    strClasses(4) = 6

    Debug.Print(maxOutArray(strClasses))

    strClasses(0) = 10
    strClasses(1) = 5
    strClasses(2) = 6
    strClasses(3) = 9
    strClasses(4) = 11

    Debug.Print(maxOutArray(strClasses))

End Sub

Private Function maxOutArray(values() As Integer) As String
    Dim currentHightest As Integer

    Dim returnVal As String = String.Empty

    For Each parseInt As Integer In values
        If parseInt > currentHightest Then
            currentHightest = parseInt
            returnVal = String.Concat(returnVal, " ", currentHightest)
        End If
    Next
    Return returnVal

End Function