[求助]积分累加出现错误
本人初学vb,刚做了一个简单的加法测试系统，随机出现2个1-100的数字，在text里输入加法的结果，对了+10分，错了扣5分，但是为什么每次分数的结果答对就是10，答错就是-5，不会进行分数累加，请大侠们帮我看下我错在哪里~~谢谢！
Private Sub Command1_Click()
If Val(Text1) = Val(Label1) + Val(Label2) Then
mark = mark + 10
Else: mark = mark - 5
End If
Label5.Caption =mark
Randomize
Label1.Caption = Int(Rnd * 99 + 1)
Label2.Caption = Int(Rnd * 99 + 1)
End Sub
