【正确答案】正确答案：(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”。保存并运行表单。