1、TextBox的KeyUp事件
2、Val() 过滤字符
Private Sub TextBox6_KeyUp(sender As Object, e As KeyEventArgs) Handles TextBox6.KeyUp
If e.KeyCode = Keys.L Then
TextBox6.Text = Val(TextBox1.Text) + Val(TextBox2.Text) + Val(TextBox3.Text) + Val(TextBox4.Text) + Val(TextBox5.Text)
End If
End Sub