VB中我想做一个比如说

来源：百度知道 编辑：UC知道 时间：2024/05/26 10:04:12
第一次text1的值大于text2的值text1对应的Labal1中的人胜率为1胜0负
Labal2中的人胜率为0胜1负并显示出来
第二次。。。以此类推，做一个胜率的统计怎么用VB做啊

Dim a As Integer
Dim b As Integer

Private Sub Command1_Click()
If Val(Text1.Text) > Val(Text2.Text) Then a = a + 1
If Val(Text1.Text) < Val(Text2.Text) Then b = b + 1
If Val(Text1.Text) = Val(Text2.Text) Then MsgBox "平局，重来"
Label1.Caption = "张三胜率为" & a & "胜" & b & "负"
Label2.Caption = "李四胜率为" & b & "胜" & a & "负"
End Sub

灌灌水,,他们2个都可以实现