Question

请教各位一个VB.NET的问题 找出两个最大数字

输入一段话 例如:i am a boy
输出是：1 没有数字被输入
2 空白
3 不是数字的是 i am a boy

输入一段对话 例如:i 12 am 28 a 29 99 man
输出是：1 4个数字被输入
2 第一大的数字是99 第二大的数字是29
3 i am a man

输入一段对话 例如：许多空格 许多回车 39
输出是: 1 一个数字被输入
2 最大的数字是39
3 空白

输入一段对话 例如：许多空各许多回车 39 许多空格或者回车 98 许多空格或者回车 32
输出是：1 3个数字被输入
2 最大数字是98 第二大数字是39
3 空白

补充: 1 2 3分别是3个lebel文本

Answer 1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim numList As New List(Of Integer), str As String = ""
Dim strArr() As String = TextBox1.Text.Split(New Char() {" "c, ","c, "."c, Chr(13)}, StringSplitOptions.RemoveEmptyEntries)
For Each unitStr As String In strArr
If IsNumeric(unitStr) Then
numList.Add(CInt(unitStr))
Else
str &= unitStr & " "
End If
Next
numList.Sort()
Label1.Text = numList.Count & "个数字被输入"
Label2.Text = "最大的数字是" & numList(numList.Count - 1)
If numList.Count > 1 Then Label2.Text &= ",第二大数字是" & numList(numList.Count - 2)
Label3.Text = str
End Sub