Private Sub Form_Load()
Text2.Locked = False
Text3.Locked = False
End Sub
Private Sub Text1_KeyUp(KeyCode As Integer, Shift As Integer)
If KeyCode = 13 Then
Text2 = Val(Text2) + 1
Text3 = Val(Text3) + Val(Text1)
Text1.SelStart = 0
Text1.SelLength = Len(Text1)
If Val(Text1) > 0 Then Text1 = ""
End If
End Sub
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024