乘法计算

时　间:2014-03-17 17:59:11
作　者:张军军   ID：34951  城市：乌鲁木齐
摘　要:自制计算公式，求指教
正　文:

Option Compare Database
Private Sub 乘法_keypress(keyascii As Integer)
If keyascii < Asc("0") or keyascii > Asc("9") Then
keyascii = 0
   Val(乘数.Value) = 0
   End If
   End Sub

Private Sub 积_gotfocus()
积.Value = Val(乘数.Value) * Val(被乘数.Value)
End Sub
Private Sub 商_gotfocus()
商.Value = Val(Val(除数.Value) / Val(被除数.Value))
End Sub
Private Sub 积商和_gotfocus()
积商和.Value = Val(积.Value) + Val(商.Value)
End Sub
Private Sub 积商差_gotfocus()
积商差.Value = Val(积.Value) - Val(商.Value)
End Sub
Private Sub 积商积_gotfocus()
积商积.Value = Val(积.Value) * Val(商.Value)
End Sub
Private Sub 积商商_gotfocus()
积商商.Value = Val(积.Value) / Val(商.Value)
End Sub