'按钮0~9PrivateSub Button1_Click(ByVal sender AsSystem.Object,ByVal e AsSystem.EventArgs)Handles Button1.Click
If stat =1Then
TextBox1.Text=0
stat =0EndIfIf TextBox1.Text="0"Then
TextBox1.
vb.net简单的计算器实现效果图1首先我们需要把控件都摆好.2处理0~9按钮事件 '按钮0~9 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click If stat = 1 Then TextBox1.Text = 0 stat = 0 End If