我想设计一个vb计算器程序,只能用小键盘输入,只有两个文本框,一个是当前输入数,一个是累计数,
按“+”号键就确认一笔数,当前输入的文本框就为空,累计框就加计为新的累计数,当按回车键后也与“+”号键一样,但还要多一项功能就是结束本组数字的计算,再输入的数字即为新的数字了.不要有乘、除法,只要加减法,即键盘上只认0~9,小数点、+、-、回车、退格键.其他的键一律不认.
现在的问题是,我按+号当成了数字输入,不确认为加号.
Private Sub Command1_Click()
Text2.Enabled = False
Text2.Text = Val(Text1.Text) + Val(Text2.Text)
Text1.Text = ""
End Sub
人气:174 ℃ 时间:2020-06-26 00:04:58
解答
'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老师,小数点的功能和回车的功能还没有实现呢!再请教一下,谢谢了!退格键的功能也没有实现。
推荐
- 把正确的答案填在(1)一根木料长6米,每次锯下4分之1米,锯4次后剩下原的(),0米,4分之1,6分之5.
- 摇粒绒面料克重260g,175cm/幅宽,面料价格65元/kg,请问1.2米等于多少元
- [x+y/2=z+x/3=y+z/4,x+y+z=27]要有过程
- we wonder when we will have our class meeting.同义句 we wonder __ __ __ our class meeting.
- [周报1期T13] Duty is an act or a course of action that people _______ you to take by social
- perhaps there is enough food_____a monster.a.for feed b.to feeding c.feed d.to feed
- 《明日歌》(钱鹤滩)中“世人苦被明日累”还是“世人若被明日累”?
- 1乘1,2乘2,3乘3,4乘4,5乘5,99乘99……!有什么简单的方法!
猜你喜欢