乘法计算-张军军
Access软件网QQ交流学习群(群号码198465573),欢迎您的加入!
首页 >技术文章> Access数据库-模块/函数/VBA


乘法计算

发表时间:2014/3/17 17:59:11 评论(0) 浏览(7540)  评论 | 加入收藏 | 复制
   
摘 要:自制计算公式,求指教
正 文:

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


Access软件网交流QQ群(群号:198465573)
 
 相关文章
[示例]大数乘法  【Alex  2009/7/3】
自动数学运算的文本框\工资统计小助手  【韩志  2012/7/19】
九九乘法表代码(供初学者参考)  【心态哥  2012/8/9】
Access style--加减乘除计算的示例,相加结果为四舍五入...  【麥田  2012/12/9】
 
 访客评论
总记录:0篇  页次:0/0 9 1 :
 
 发表评论
评论内容 (必填)

常见问答
技术分类
相关资源
文章搜索
关于作者

张军军

文章分类

文章存档

友情链接