怎么用VB设计代码,响应键盘上的加减乘除,比如,按键盘上的“+”时,程序就可以吧两个数值相加 20
展开全部
界面:
代码:
Private Sub Text2_KeyPress(KeyAscii As Integer)
Text2.Text = ""
Select Case KeyAscii
Case Asc("+")
Text1(2).Text = Val(Text1(0).Text + Val(Text1(1).Text))
Case Asc("-")
Text1(2).Text = Val(Text1(0).Text - Val(Text1(1).Text))
Case Asc("*")
Text1(2).Text = Val(Text1(0).Text * Val(Text1(1).Text))
Case Asc("/")
Text1(2).Text = Val(Text1(0).Text / Val(Text1(1).Text))
End Select
End Sub
运行效果:
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询