VB使用For…Next循环实现14-23整数计数与求和的问题

解决方法 #

你只需要额外新增一个计数变量，在循环中每遍历一个数就累加计数即可，修改后的完整代码如下：

Public Class frmMain
    Private Sub btnShow_Click(sender As Object, e As EventArgs) Handles btnShow.Click
        Dim intSum As Integer
        ' 新增计数变量，初始值为0
        Dim intCount As Integer = 0
        For intNum As Integer = 14 To 23
            lblShow.Text = lblShow.Text & intNum.ToString & "     "
            intSum += intNum
            ' 每遍历一个数，计数加1
            intCount += 1
        Next
        ' 循环结束后统一赋值，避免循环内重复更新UI
        lblSum.Text = intSum.ToString
        ' 给展示数量的标签赋值，如果你用来显示数量的标签名不是lblCount，替换成你实际的控件名即可
        lblCount.Text = intCount.ToString
    End Sub
End Class

说明 #

• 14到23总共遍历10次，intCount最终就会累加为10，符合题目要求的输出
• 把标签赋值操作移到循环外可以减少不必要的UI刷新，程序运行效率更高

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