ACCESS中Arithmetic square root算术平方根化简数据库
通项式√(a±b√c)=√(d±b√c+e)=√(f√c±g)2=|f√c±g|
If f * f * c = d And g * g = e And 2 * f * g = b Then
For Each ctl In Me.Controls
Select Case TypeName(ctl)
Case 'TextBox'
ctl.Value = ''
如下是算术平方根化简的ACCESS主窗体视图，通项式√(a±b√c)=√(d±b√c+e)=√(f√c±g)2=|f√c±g|，文本框1,2,3中分别输入a,b,c的待化简式参数值，其他文本框则自动输出化简后的各个过程参数及结果，以及Calculate计算与Reset重置两个按钮图标；
在文本框1,2,3中分别输入3,2,2，表示化简根式√(3±2√2)，点击Calculate按钮图标，化简结果如下，√(3±2√2)=√(2±2√2+1)=√(√2±1)2=√2±1，可以快速验算出化简结果正确无误；
点击Reset按钮图标重置，所有文本框清空，在文本框1,2,3中分别输入53,20,7，表示化简根式√(53±20√7)，点击Calculate按钮图标，化简结果如下，√(53±20√7)=√(28±20√7+25)=√(2√7±5)2=2√7±5，化简结果同样正确，如果使用手工配方算法，是有一定难度的；
点击Reset按钮图标重置，所有文本框清空，在文本框1,2,3中分别输入238,66,13，表示化简根式√(238±66√13)，点击Calculate按钮图标，化简结果如下，√(238±66√13)=√(117±66√13+121)=√(3√13±11)2=11±3√13，化简结果依然正确，这里假如使用手工配方算法的话，运算工作量就显得相当大了；
相应VBA代码1st如下；
相应VBA代码2nd如下；
相应VBA代码3rd如下；
相应VBA代码4th如下；