【正确答案】正确答案：(1)【操作步骤】 新建程序four，并输入以下命令： ****“four”程序文件中的代码**** CLOSE ALL USE TABA SCAN IF A＜＞0 AND B*B－4*A*C＞＝0 REPL x1 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”。保存并运行表单。