打开考生文件夹下的DB数据库,完成如下简单应用: 1.编写一个名为FOUR.PRG的程序,根据表TABA中所有记录的a,b,c三个字段的值,计算各记录的一元二次方程的两个根x1和x2,并将两个根x1和x2写到对应的字段x1和x2中,如果无实数解,在

admin2013-11-12  24

问题 打开考生文件夹下的DB数据库,完成如下简单应用:
    1.编写一个名为FOUR.PRG的程序,根据表TABA中所有记录的a,b,c三个字段的值,计算各记录的一元二次方程的两个根x1和x2,并将两个根x1和x2写到对应的字段x1和x2中,如果无实数解,在note字段中写入“无实数解”。提示:平方根函数为SQRT();程序编写完成后,运行该程序计算一元二次方程的两个根。注意:一元二次方程公式如下:

    2.打开名为testA的表单,其中有两个命令按钮,界面要求如下:
    (1)设置两个按钮的高度均为30,宽度均为80,“退出”按钮与“查询”按钮顶边对齐。
    (2)“查询”按钮的功能是在该按钮的Click事件中使用SQL的SELECT命令从表TABA中查询“无实数解”的记录并存储到表TABD中。   
    (3)“退出”按钮的功能是关闭并释放表单。
请按要求完成表单的设计,表单设计完成后,运行该表单,并单击“查询”按钮进行查询。

选项

答案(1)操作步骤 新建程序four,并输入以下命令: *******“four”程序文件中的代码****** CLOS ALL USE TABA SCAN IF A<>0 AND B*B-4*A*C>=0 REPLxl WITH(-B+SQRT(B*B-4*A*C))/(2*A),x2 WITH(-B-SQRT(B*B-4*A*C))/(2*A) ELSE REPL NOTE WITH“无实数解” ENDIF ENDSCAN *************************************** 最后保存运行程序。 (2)操作步骤 步骤1:打开表单“testA”。 步骤2:按Shift的同时选中“查询”和“退出”两个按钮,然后在属性窗口设定它们的Height属性为30,Width属性为80,在系统菜单中选择“格式”→“对齐”→“顶边对齐”。 步骤3:在“查询”按钮的Click事件中输入下列代码。 ******“three”程序文件中的代码********* SELECT*: FROM TABA; WHERE TABA.note=“无实数解”; INTO TABLE TABD.dbf **************************************** 步骤4:在“退出”命令按钮的Click事件中输入“ThisForm.Release”。保存并运行表单。

解析
转载请注明原文地址:https://kaotiyun.com/show/tgop777K
0

最新回复(0)