实验11表单的应用.docVIP

实验11 表单的应用 【实验目的】 1．掌握数据环境的设置方法。 2．能合理组合各种表单控件建立实用表单，并用之解决一些实际问题。 【实验内容与操作步骤】 先双击F:\PUBLIC\VFP6\EX11下的文件EX11.EXE，然后在VFP的环境下设置VFP的默认工作目录为D:\EX11,并完成以下各操作。最后将操作结果存入D:\EX11文件夹中。 １．求ax2+bx+c=0的实根。要求先设计出如图11.1所示的表单界面，输入实数a,b,c后，单击“求解”命令按钮能计算出实根x1和x2并分别输出至Text4及Text5中。如a=0，则显示“a 不能为 0！”，如判别式小于0，则显示“没有实根！”。单击“退出”按钮，则关闭表单。最后将表单文件以EX11-1.SCX为文件名保存在D:\EX11文件夹中。 图11.1 求解一元二次方程表单 操作步骤如下： ⑴ 在Visual FoxPro系统窗口中执行“文件”“新建”命令，新建一个新表单。 ⑵ 在新表单上放置5个Label控件，5个TextBox控件，及2个CommandButton控件。各控件的主要属性如表11.1所示： 表11.1 解方程表单的主要属性设置 对象 属性名 属性值 Form1 Caption 解方程 Label1 Caption a= Label2 Caption b= Label3 Caption c= Label4 Caption x1= Label5 Caption x2= Command1 Caption 求解 Command2 Caption 退出 ⑶ 右击“求解”按钮，进入代码编辑窗口，在代码编辑窗口输入“求解”按钮的Click事件的代码： a =VAL(THISFORM.TEXT1.VALUE) b =VAL(THISFORM.TEXT2.VALUE) c =VAL(THISFORM.TEXT3.VALUE) d =b*b-4*a*c IF a!=0 .AND. d=0 X1=(-b+SQRT(d))/2/A X2=(-b-SQRT(d))/2/A THISFORM.TEXT4.VALUE=X1 THISFORM.TEXT5.VALUE=X2 ELSE IF a=0 MESSAGEBOX(a 不能为 0！) ELSE MESSAGEBOX(没有实根！) ENDIF ENDIF ⑷ 右击“退出”按钮，进入代码编辑窗口，在代码编辑窗口输入“退出”按钮的Click事件的代码： Thisform.Release ⑸ 以EX11-1.SCX保存表单。运行表单，分别输入以下3组数据，记录运行结果： a=1，b=2，c=1 结果显示：___________________________ a=0，b=2，c=1 结果显示：___________________________ a=1，b=2，c=3 结果显示：___________________________ 2．设计一个表单，如图11.2所示。要求输入两个整数并选择某种运算（+、-、×或÷）表11.2 解方程表单的主要属性设置 对象 属性名 属性值 Form1 Caption 四则运算 Label1 Caption 整数1 Label2 Caption 整数1 Label3 Caption 算式及结果 OptionGroup1 ButtonCount 4 CommandGroup1 ButtonCount 3 ⑶ 编写命令按钮组中的“Click”事件代码。在代码窗口输入如下代码： a=val(thisform.text1.value) b=val(thisform.text2.value) Do case case thisform.optiongroup1.value=1 s=+ t=alltrim(str(a+b)) case thisform.optiongroup1.value=2 s=- t=alltrim(str(a-b)) case thisform.optiongroup1.value=3 s=× t=alltrim(str(a*b)) case thisform.optiongroup1.value=4 s=÷ If b=0 t=无意义 else t=alltrim(str(a/b,int(a/b)+3,2))