高中代数中谈到过，算术平方根Arithmetic square root化简，通俗地理解就是根号中嵌套根号，要求化简后仅剩一个根号，相信广大读者都经历过求解的麻烦，需要配方迭代试算等。在此，具体描述下如何在ACCESS中设计算术平方根化简的数据库，关键在于VBA代码编写平方和配方的求解算法。工具/原料moreACCESS中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 ThenFor Each ctl In Me.ControlsSelect Case TypeName(ctl)Case TextBoxctl.Value = 方法/步骤1/8分步阅读

如下是算术平方根化简的ACCESS主窗体视图，通项式√(a±b√c)=√(d±b√c+e)=√(f√c±g)2=|f√c±g|，文本框1,2,3中分别输入a,b,c的待化简式参数值，其他文本框则自动输出化简后的各个过程参数及结果，以及Calculate计算与Reset重置两个按钮图标；

2/8

在文本框1,2,3中分别输入3,2,2，表示化简根式√(3±2√2)，点击Calculate按钮图标，化简结果如下，√(3±2√2)=√(2±2√2+1)=√(√2±1)2=√2±1，可以快速验算出化简结果正确无误；

3/8

点击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，化简结果同样正确，如果使用手工配方算法，是有一定难度的；

4/8

点击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，化简结果依然正确，这里假如使用手工配方算法的话，运算工作量就显得相当大了；

5/8

相应VBA代码1st如下；

6/8

相应VBA代码2nd如下；

7/8

相应VBA代码3rd如下；

8/8

相应VBA代码4th如下；