vb 设计做选择题 做对一题 加200分 错不加分 怎么编？

Dim sum As Long
Private Sub Label3_Click()
Dim m As Integer
Dim n As Integer
m = Me.Text4.Text
n = Me.Text5.Text
If m = n Then
sum = sum + 200
Me.Label3.Caption = sum
Else
Me.Label3.Caption = sum - 200
End If
End Sub
为什么不对、text4存放选择 text5存放标准答案

[email protected] 谢谢各位大神、小弟刚学vb
做一个vb与sql server 的连接程序

Dim sum As Long
Private Sub Label3_Click()
Dim m As Integer
Dim n As Integer

m = val(Me.Text4.Text)
n = val(Me.Text5.Text)
If m = n Then
sum = sum + 200
end if
Me.Label3.Caption = sum

end sub

30 1. 当l=1时 l=1+1=2 s=2 此时next l 即再次进入if循环时l=3 2. l=3 l=3+1=4 s=6 3. l=5 l=5+1=6 s=12 4. l=7 l=7+1=8 s=20 5. l=9 l=9+1=10 s=30 6. l=11退出循环