1、如下是算术平方根化简的ACCESS主窗体视图,通项式√(a±b√c)=√(d±b√c+e)=√(f√c±爿讥旌护g)2=|f√c±g|,文本框1,2,3中分别输入a,b,c的待化简式参数值,其他文本框则自动输出化简后的各个过程参数及结果,以及Calculate计算与Reset重置两个按钮图标;
2、在文本框1,2,3中分别输入3,2,2,表示化简根式√(3±2√2),点击Calculate按钮图标,化简结果如下,√(3±2√2)=√(2±2√2+1)=√(√2±1)2=√2±1,可以快速验算出化简结果正确无误;
3、点击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、点击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、相应VBA代码1st如下;
6、相应VBA代码2nd如下;
7、相应VBA代码3rd如下;
8、相应VBA代码4th如下;