用vb设计计算器的时候怎么让键盘上的数字键和回车，删除键起作用啊？？？？？

Question

还有像2/4，在文本框里只显示.4，很郁闷，谢谢了！
还有像2/4，在文本框里只显示 .5(刚写错了，呵呵。。。)，前面每0，很郁闷，谢谢了！在线等/////

Answer 1

Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer)
Select Case KeyCode
Case 48 To 57
'按了数字键
Case 96 To 105
'按了小键盘数字键
Case 13
'按了回车键
Case 46
'按了删除键
End Select
End Sub

Private Sub Form_Load()
Me.KeyPreview = True
End Sub

.5的问题可以这样：

n=0.5
text1.text=format(n,"0.########")

Answer 2

怎么？你的文本框有问题？

显示.5的问题才简单。

先把结果存在一个变量里，如dblAns，然后判断其是否小于0，如果小于，就用字符串连接一下就好了。
参考代码:
Dim dblAns as Double
Dim strAns as String
dblAns=相除代码
If dblAns<0 then
strAns="0" & dblAns
end if
TxtAns.Text=strAns 就是将结果赋值给显示文本框

Answer 3

看你的样子很可能是重病毒了，跟硬件没什么关系了。你可以试试看看能不能从安全模式进去了。然后在用杀毒软件重新杀一次毒了。如果不行的话；如果你电脑里面之前有备份过系统的话；那就只有还原系统了。没有只好光盘重装系统了； 重装一下驱动 快捷键驱动 触摸驱动等
HP的就是驱动烦的很
不会的话下载个驱动精灵，自动搜索驱动
迅雷里面你下载一个专门的键盘检测软件，我上次键盘坏了就是用它来检测的
建议你装了系统后到惠普官网下驱动安装：地址：http://welcome.hp.com/country/cn/zh/welcome.html

Answer 4

用textbox_keyup事件
e.keycode