ACCESS中Reduction of fractions通分运算数据库

耳熟能详，通分运算Reduction of fractions to a common denominator，即两个分数作加减，需要将两个分母转化为相同值，然后分子加减，最后约分成最简分数。在此，详细描述下如何在ACCESS中设计通分运算数据库，可作为一种教学工具而应用。

工具/原料

ACCESS中Reduction of fractions通分运算数据库设计

通分过程

化简约分

最小公倍数

最简分数

Me.Label05.Caption = b * denb

Select Case Me.List01.Value

If Abs(e) Mod h = 0 And Abs(f) Mod h = 0 Then

Dim ctl As Control

For Each ctl In Me.Controls

Select Case TypeName(ctl)

方法/步骤

如下是通分运算的ACCESS主窗体视图，两个分数输入文本框，中间通分过程，初次结果，化简约分，以及Calculate计算与Reset重置两个按钮图标；

分别输入1/4,5/6两个分数，加法运算，点击Calculate按钮图标，结果如下，VBA代码运算得到4和6的最小公倍数为12，则通分分母为12，结果为13/12，已是最简分数，无须约分；

先点击Reset按钮图标，重置计算，再分别输入7/10,8/15两个分数，减法运算，列表框选择减号后，后续的运算符也相应地变为减号了；

点击Calculate按钮图标，结果如下，VBA代码运算得到10和15的最小公倍数为30，则通分分母为30，结果为5/30，约分后得到最简分数1/6；

输入次序调整，先8/15，再7/10，继续减法运算，点击Calculate按钮图标，结果如下，为负数，最简分数-1/6；

相应VBA代码1st如下；

相应VBA代码2nd如下；

相应VBA代码3rd如下；

欧尼酱