我懂你现在的困扰——逐个判断10个Label的状态，还要用额外控件存0/1再计算，不仅写起来麻烦，要是以后Label数量变动，维护起来也头疼。下面给你两个简洁高效的优化方案：

问题分析 #

你当前的代码思路是对每个Label单独做判断，把结果存在num1这类控件里再转数值，但这种重复写法冗余度高，容错性差，完全可以通过批量处理来简化。

优化方案1：按规律名称循环遍历 #

如果你的10个Label是按规律命名的（比如Label100到Label109），直接用循环遍历控件即可：

' 初始化统计计数器
Dim enabledCount As Integer = 0

' 遍历10个目标Label（名称从Label100到Label109）
For i As Integer = 100 To 109
    ' 根据名称找到对应的Label控件
    Dim targetLabel As Label = DirectCast(Me.Controls($"Label{i}"), Label)
    ' 判断文本是否为"Enabled"，是则计数器+1
    If targetLabel.Text = "Enabled" Then
        enabledCount += 1
    End If
Next

' 在目标控件中显示结果（比如7/10这种格式）
resultDisplay.Text = $"{enabledCount}/10"

优化方案2：用集合统一管理Label #

如果Label命名没有规律，或者未来可能增减数量，建议先把所有目标Label放进集合，再统一统计：

' 创建包含所有目标Label的集合
Dim statusLabels As New List(Of Label) From {
    Label100, Label101, Label102, Label103, Label104,
    Label105, Label106, Label107, Label108, Label109
}

' 一行代码统计"Enabled"的数量
Dim enabledCount As Integer = statusLabels.Count(Function(lbl) lbl.Text = "Enabled")

' 显示统计结果
resultDisplay.Text = $"{enabledCount}/{statusLabels.Count}"

为什么这两个方案更好？ #

• 简洁性：不用重复写10次判断逻辑，代码量直接缩减一半以上
• 扩展性：以后要增减Label，只需要调整循环范围或集合内容即可
• 可读性：逻辑一目了然，后续维护自己或他人都能快速理解

内容的提问来源于stack exchange，提问作者John Evenetcha