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

[小允]

我想写一个简单的下注小程序
有四个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系列软件"
Else

For 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

[小允]

以上是我写的有问题的代码

[Tiger_Zhao]

你点击两次，但是每次点击都循环吧所有下注都扣一遍，不就产生重复计算了！

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