1、如下是韦达定理求根公式的ACCESS主窗体视图，a,b,c三个基本参数自定义输入，结果为x1,x2，以及Calculate计算与Reset重置两个按钮图标；
2、对于求根公式，想必都清楚一个注意点，即delta=b2-4ac，不得小于0。假如令a=1,b=1,c=1，则delta=b2-4ac=1*1-4*1*1=-3，小于0了，点击Calculate按钮图标，弹出错误信息提示框“Please be notified delta is less than zero!”，终止计算，重新输入参数；
3、令a=1,b=6,c=1，则delta=b2-4ac=6*6-4*1*1=32，大于0了，是可以计算根值的。点击Calculate按钮图标，结果为x1=(-6+4_/2)/2*1,x2=(-6-4_/2)/2*1，注意这里的值，并没有直接使用ACCESS的求平方根函数sqr得出无理数的几位小数值，而是保留了根号，与手工计算一致，这是通过VBA代码编程实现的；
4、再令a=2,b=8,c=2，则delta=b2-4ac=8*8-4*2*2=48，大于0了，同样是可以计算根值的。点击Ca造婷用痃lculate按钮图标，结果为x1=(-6+4_/2)/2*1,x2=(-6-4_/2)/2*1，保留了根号；
5、相应VBA代码1st如下；
6、相应VBA代码2nd如下；
7、相应VBA代码3rd如下；
