问答题
打开考生文件夹下的DB数据库,完成如下简单应用：
问答题
编写一个名为FOUR．PRG的程序,根据表TABA中所有记录的a,b,c三个字段的值,计算各记录的一元二次方程的两个根x1和x2,并将两个根x1和x2写到对应的字段x1和x2中,如果无实数解,在note字段中写入“无实数解”。提示：平方根函数为SQRT( )；程序编写完成后,运行该程序计算一元二次方程的两个根。注意：一元二次方程公式如下：
【正确答案】新建程序four，并输入以下命令：
*******〝four〞程序文件中的代码*******
CLOSAll
USETABA
SCAN
IFA<>0ANDB*B-4*A*C>=0
REPLxlWITH(一B+SQRT(B*B-4*A*C))／(2*
A)，x2WITH(一B-SQRT(B*B-4*A*C))／(2*A)
ELSE
REPLNOTEWITH”无实数解”
ENDIF
ENDSCAN
*************************************
最后保存运行程序。
【答案解析】
问答题
打开名为testA的表单,其中有两个命令按钮,界面要求如下：
①设置两个按钮的高度均为30,宽度均为80,“退出”按钮与“查询”按钮顶边对齐。
②“查询”按钮的功能是在该按钮的Click事件中使用SQL的SELECT命令从表TABA中查询“无实数解”的记录并存储到表TABD中。
③“退出”按钮的功能是关闭并释放表单。
请按要求完成表单的设计,表单设计完成后,运行该表单,并单击“查询”按钮进行查询。
【正确答案】步骤1：打开表单“testA”。
步骤2：按Shift的同时选中“查询”和“退出”两个按钮，然后在属性窗口设定它们的Height属性为30，Width属性为80，在系统菜单中选择“格式”一“对齐”一“顶边对齐”。
步骤3：在“查询”按钮的Click事件中输入下列代码。
*******〝three〞程序文件中的代码*******
SELECT*；
FROMTABA；
WHERETABA.note=”无实数解”；
INTOTABLETABD.dbf
*************************************
步骤4：在“退出”命令按钮的Click事件中输入“This-Form.Release”。保存并运行表单。
【答案解析】