'Text1输入,Text2结果
Private Sub Text1_KeyPress(KeyAscii As Integer)
Static int1 As Integer
Debug.Print KeyAscii '45-,43+
If KeyAscii = 45 Or KeyAscii = 43 Then
'+,-
If int1 = 0 Then
Text2.Text = Val(Text1.Text)
Else
Text2.Text = Val(Text2.Text) + int1 * Val(Text1.Text)
End If
Text1.Text = ""
int1 = (44 - KeyAscii)
KeyAscii = 0
ElseIf (KeyAscii < 48 Or KeyAscii > 57) Then
KeyAscii = 0 '取消输入
Else
End If
End Sub老师，小数点的功能和回车的功能还没有实现呢！再请教一下，谢谢了！退格键的功能也没有实现。
我想设计一个vb计算器程序,只能用小键盘输入,只有两个文本框,一个是当前输入数,一个是累计数,
我想设计一个vb计算器程序,只能用小键盘输入,只有两个文本框,一个是当前输入数,一个是累计数,
按“+”号键就确认一笔数,当前输入的文本框就为空,累计框就加计为新的累计数,当按回车键后也与“+”号键一样,但还要多一项功能就是结束本组数字的计算,再输入的数字即为新的数字了.不要有乘、除法,只要加减法,即键盘上只认0~9,小数点、+、－、回车、退格键.其他的键一律不认.
现在的问题是,我按+号当成了数字输入,不确认为加号.
Private Sub Command1_Click()
Text2.Enabled = False
Text2.Text = Val(Text1.Text) + Val(Text2.Text)
Text1.Text = ""
End Sub
按“+”号键就确认一笔数,当前输入的文本框就为空,累计框就加计为新的累计数,当按回车键后也与“+”号键一样,但还要多一项功能就是结束本组数字的计算,再输入的数字即为新的数字了.不要有乘、除法,只要加减法,即键盘上只认0~9,小数点、+、－、回车、退格键.其他的键一律不认.
现在的问题是,我按+号当成了数字输入,不确认为加号.
Private Sub Command1_Click()
Text2.Enabled = False
Text2.Text = Val(Text1.Text) + Val(Text2.Text)
Text1.Text = ""
End Sub
其他人气：147 ℃时间：2020-06-26 00:04:58
优质解答
我来回答
类似推荐