能否通过循环简化统计输入文本框数量的VB代码？

你现在的写法每个文本框都要写一遍判断逻辑，不仅冗余，要是以后要加更多txtRoomX文本框，修改起来也很麻烦。这里给你几种更简洁的实现方式：

方法1：手动创建文本框数组遍历 #

把需要检查的文本框放到一个数组里，然后循环遍历统计，逻辑清晰还容易维护：

Dim TotalRooms As Integer = 0
' 将所有要统计的文本框加入数组，后续加新框直接在这里补充就行
Dim roomTextBoxes() As TextBox = {txtRoom1, txtRoom2, txtRoom3}

For Each txtBox As TextBox In roomTextBoxes
    ' 只要文本框内容非空，就计数+1
    If Not String.IsNullOrEmpty(txtBox.Text) Then
        TotalRooms += 1
    End If
Next

' 弹出统计结果
MessageBox.Show($"有输入内容的文本框总数：{TotalRooms}")

方法2：用LINQ一行完成统计（VB.NET 3.5+适用） #

如果你的项目支持LINQ，可以用更简洁的写法，直接统计符合条件的文本框数量：

Dim roomTextBoxes() As TextBox = {txtRoom1, txtRoom2, txtRoom3}
' 直接通过Count方法筛选非空文本框
Dim TotalRooms As Integer = roomTextBoxes.Count(Function(txt) Not String.IsNullOrEmpty(txt.Text))

MessageBox.Show($"有输入内容的文本框总数：{TotalRooms}")

方法3：自动遍历容器内的目标文本框 #

如果这些txtRoomX文本框都放在同一个容器（比如Panel、GroupBox）里，还可以不用手动写数组，直接遍历容器控件来筛选统计：

Dim TotalRooms As Integer = 0
' 假设文本框都在名为pnlRoomContainer的Panel控件中
For Each ctrl As Control In pnlRoomContainer.Controls
    ' 尝试将控件转为TextBox类型
    Dim txtBox As TextBox = TryCast(ctrl, TextBox)
    ' 只处理名称以"txtRoom"开头的文本框
    If txtBox IsNot Nothing AndAlso txtBox.Name.StartsWith("txtRoom") Then
        If Not String.IsNullOrEmpty(txtBox.Text) Then
            TotalRooms += 1
        End If
    End If
Next

MessageBox.Show($"有输入内容的文本框总数：{TotalRooms}")

这几种方法都能帮你摆脱重复的If判断，代码更简洁也更易扩展～

内容的提问来源于stack exchange，提问作者N.Fos