请教前辈们关于Combo控件组数据叠加的问题

Question

我想写一个简单的下注小程序
有四个combo1 组成一个控件组text1为总金币数
text2为下注数假设
第一栏我选择5
第二栏也选择5剩余金币正常来说应该是90
可是数据会叠加出现：100-5+5+5=85请教前辈们如何解决这一问题Private Sub Combo1_Click(Index As Integer)
If Val(Text1.Text) < Val(Combo1(i).Text) Then
MsgBox "您当前没有那么多的金币!", vbInformation, "Xy系列软件"
ElseFor i = 0 To 11
Text1.Text = Val(Text1.Text) - Val(Combo1(i).Text)
Text2.Text = Val(Text2.Text) + Val(Combo1(i).Text)
Next
End If
End Sub

Answer 1

你点击两次，但是每次点击都循环吧所有下注都扣一遍，不就产生重复计算了！
Private Sub Combo1_Click(Index As Integer)
    Dim lTotal As Long
    Dim lBet As Long
    
    lTotal = Val(Text1) + Val(Text2) '总金币'
    For i = 0 To 11
        lBet = lBet + Val(Combo1(i).Text) '下注合计'
    Next
    
    If lTotal < lBet Then
        MsgBox "您当前没有那么多的金币!", vbInformation, "Xy系列软件"
    Else
        Text1 = lTotal - lBet '剩余金币'
        Text2 = lBet
    End If
End Sub