关于Public Sub AddPoint的问题 求解释带******号部分

Question

Private Sub Form_Load()
    ComboUnit.addItem ("公斤")
    ComboUnit.addItem ("吨")
    ComboUnit.Text = "公斤"
    m_UnitType = 1           '*******************************什么意思，放这里有什么用
    
End SubPublic Sub AddPoint(vChNum As Integer, vChData() As Long, vTrainCode As String)
    Dim I As Integer
    
    SumOfWeight = 0  '**********************************哪来的 SumOfWeight？
    
    For I = 0 To vChNum    '********************************vChNum 什么意思？
        SumOfValue = SumOfValue + vChData(I) '*******************
    Next I
    
    '净重码值=码值-零点值
    TxtOrgVal.Text = SumOfValue
    SumOfNetVal = SumOfValue - Val(TxtRefVal.Text)
    TxtNetValue.Text = str(SumOfNetVal)
    
    RealSum = SumOfNetVal
    RealSum = RealSum / Val(TxtCoeff.Text)     '比例系数
    
    If ComboUnit.Text = "公斤" Then
        RealSum = RealSum * 1000
        TxtWeight.Text = Format(RealSum, "000")
    ElseIf ComboUnit.Text = "吨" Then
        TxtWeight.Text = Format(RealSum, "0.000")
    End If
    
End Sub

Answer 1

m_UnitType 应该是模块级的变量。
SumOfWeight 应该应该也是模块级或全局的一个变量。
vChNum 参数，函数的第一个参数
最后那个是累加。