Vb.net 如何在文本框中计算数字

我有以下数字字符串：

Textbox1.text / or Textbox1.Line= 1,2,3,19,29,78,48,39,40,51,53,54,69,70,71,73
Textbox2.text= / or Textbox2.Line=  1,9,3,31,29,78,45,39,40,51,59,54,69,70,71,73
textbox3.text= / or TextBox3.Line= 11,4,3,31,29,78,45,39,40,53,59,54,6974,75,76
    and Others ...

---

如何计算文本框中有多少从1到10的数字，有多少从11到20的数字，有多少从31到40的数字，依此类推。示例：在第1行-我们将有3个从1到10（1,2,3）的小数字。

您可以轻松地将包含逗号分隔整数列表的字符串转换为如下字符串数组

Dim s = "1,2,3,19,29,78,48,39,40,51,53,54,69,70,71,73"
Dim parts = s.Split(","c)

 Dim arr1 As New List (Of String)
 arr1.AddRange(Split (TextBox1.Text, ","))
 Dim final As String
 Dim count As Integer = 0
 For Each item As String In arr1
    If CInt(item) >= 1 And  CInt(item) <= 10 Then
           count+=1
      'replace 10 with the maximum number you want and 1 with the minimum number. 
           final&=item & " "
      End If
 Next
 Msgbox("There are " & count & "numbers" & final)

然后将字符串数组转换为整数列表

Dim numbers = New List(Of Integer)
For Each p As String In parts
    Dim i As Integer
    If Integer.TryParse(p, i) Then
        numbers.Add(i)
    End If
Next

现在是计数部分。有了LINQ，你就可以写作了

Dim tens = From n In numbers
            Group n By Key = (n - 1) \ 10 Into Group
            Order By Key
            Select Text = $"{ 10 * Key + 1} - {10 * Key + 10}", Count = Group.Count()

这个

印刷品

1 - 10 --> 3
11 - 20 --> 1
21 - 30 --> 1
31 - 40 --> 2
41 - 50 --> 1
51 - 60 --> 3
61 - 70 --> 2
71 - 80 --> 3

---

您可以轻松地将包含逗号分隔整数列表的字符串转换为如下所示的字符串数组

Dim s = "1,2,3,19,29,78,48,39,40,51,53,54,69,70,71,73"
Dim parts = s.Split(","c)

 Dim arr1 As New List (Of String)
 arr1.AddRange(Split (TextBox1.Text, ","))
 Dim final As String
 Dim count As Integer = 0
 For Each item As String In arr1
    If CInt(item) >= 1 And  CInt(item) <= 10 Then
           count+=1
      'replace 10 with the maximum number you want and 1 with the minimum number. 
           final&=item & " "
      End If
 Next
 Msgbox("There are " & count & "numbers" & final)

然后将字符串数组转换为整数列表

Dim numbers = New List(Of Integer)
For Each p As String In parts
    Dim i As Integer
    If Integer.TryParse(p, i) Then
        numbers.Add(i)
    End If
Next

现在是计数部分。有了LINQ，你就可以写作了

Dim tens = From n In numbers
            Group n By Key = (n - 1) \ 10 Into Group
            Order By Key
            Select Text = $"{ 10 * Key + 1} - {10 * Key + 10}", Count = Group.Count()

这个

印刷品

1 - 10 --> 3
11 - 20 --> 1
21 - 30 --> 1
31 - 40 --> 2
41 - 50 --> 1
51 - 60 --> 3
61 - 70 --> 2
71 - 80 --> 3

---

为此，必须将字符串拆分为数组或列表，然后将数组或列表中的值与所需的数字进行比较。像这样

Dim s = "1,2,3,19,29,78,48,39,40,51,53,54,69,70,71,73"
Dim parts = s.Split(","c)

 Dim arr1 As New List (Of String)
 arr1.AddRange(Split (TextBox1.Text, ","))
 Dim final As String
 Dim count As Integer = 0
 For Each item As String In arr1
    If CInt(item) >= 1 And  CInt(item) <= 10 Then
           count+=1
      'replace 10 with the maximum number you want and 1 with the minimum number. 
           final&=item & " "
      End If
 Next
 Msgbox("There are " & count & "numbers" & final)

Dim arr1作为新列表（字符串）
arr1.AddRange（拆分（TextBox1.Text，“，”））
模糊的最后一个字符串
Dim计数为整数=0
对于arr1中的字符串形式的每个项目
如果CInt（item）>=1且CInt（item）要执行此操作，必须将字符串拆分为数组或列表，然后将数组或列表中的值与所需的数字进行比较。像这样

Dim s = "1,2,3,19,29,78,48,39,40,51,53,54,69,70,71,73"
Dim parts = s.Split(","c)

 Dim arr1 As New List (Of String)
 arr1.AddRange(Split (TextBox1.Text, ","))
 Dim final As String
 Dim count As Integer = 0
 For Each item As String In arr1
    If CInt(item) >= 1 And  CInt(item) <= 10 Then
           count+=1
      'replace 10 with the maximum number you want and 1 with the minimum number. 
           final&=item & " "
      End If
 Next
 Msgbox("There are " & count & "numbers" & final)

Dim arr1作为新列表（字符串）
arr1.AddRange（拆分（TextBox1.Text，“，”））
模糊的最后一个字符串
Dim计数为整数=0
对于arr1中的字符串形式的每个项目
如果CInt（item）>=1且CInt（item）查看字符串。拆分函数您提供的不是有效的VBA语法。请查看字符串。拆分函数您提供的不是有效的VBA语法。谢谢！工作！谢谢工作！