VFP期终考试复习大全.docVIP

VFP上机实训题一 请用面向对象编程方法设计出如下表单（其中包含2个标签2个文本框2个命令按钮），求累加和：S=1+2+3+······+N ，并写出其中命令按钮“计算”和“退出”中的代码。 对象名称 属性 原来的值 修改为 表单（Form1） Caption Form1 求和 标签（Label1）Caption Label1 n = FontSize 9 16 标签（Label2）Caption Label2 S = FontSize 9 16 文本框（Text1）FontSize 9 20 文本框（Text2）FontSize 9 20 命令按钮（Command1）Caption Command1 计算 FontSize 9 22 命令按钮（Command2）Caption Command2 退出 FontSize 9 22 其中“计算” 按钮的代码： n=val(Thisform .Text1.Value) if n=0 Thisform .Text2.Value = n =0 重输！ else S=0 For i=1 To n S=S+i endfor Thisform .Text2.Value=str(S,10,0) endif Thisform .Refresh 其中“退出” 按钮的代码： Thisform .Release 参考上题设计出求P=1×2×3×······×N的表单（其中包含2个标签2个文本框2个命令按钮），并写出其中“计算”和“退出”命令按钮的代码。 设计求方程 ax2+bx+c=0 的根的表单界面（其中包含5个标签5个文本框2个命令按钮），并写出其中“求根”、 “退出”按钮的命令代码。 对象名称 属性 原来的值 设计修改为 表单（Form1） Caption Form1 方程求根 标签（Label1）Caption Label1 a = FontSize 9 16 标签（Label2）Caption Label2 b = FontSize 9 16 标签（Label3）Caption Label2 C = FontSize 9 16 标签（Label4）Caption Label2 X1 = FontSize 9 16 标签（Label5）Caption Label2 X2 = FontSize 9 16 5个文本框（Text1 —Text5） FontSize 9 16 命令按钮（Command1）Caption Command1 求根 FontSize 9 22 命令按钮（Command2）Caption Command2 退出 FontSize 9 22 其中“求根” 按钮的代码： thisform.text1.Setfocus a=val(thisform .text1.value) b=val(thisform .text2.value) c=val(thisform .text3.value) D=b*b-4*a*c if d=0 x1=(-b+sqrt(D))/(2*a) x2=(-b-sqrt(D))/(2*a) thisform.text4 .value=str(x1,7,2) thisform.text5 .value=str(x2,7,2) endif if d0 Messagebox(判别式小于0) endif thisform .Refresh VFP上机实训题二 设计对数据表rcda.dbf进行查找浏览的表单（除了显示记录的标签和文本框外，还有1个用于输入学号的文本框和2个命令按钮：“查找”和“退出”），请写出其中“查找”和“退出”按钮的命令代码。 对象名称 属性 原来的值 修改为 文本框 name texbh FontSize 9 20 命令按钮（Command1）Caption Command1 查找 FontSize 9 22 命令按钮（Command2）Caption Command2 退出 FontSize 9 22 操作步骤： 1、先建立一个表单 ； 2、打开主菜单 “显示”菜单，单击“数据环境”，把A:\Rcda添加到数据环境中； 3、把Rcda中需要显示的字段拖到表单适当的位置上。 4、按上表要求，添加1个用于输入学号的文本框和2个命令按钮：“查找”和“退出”。 “查找” 按钮的参考代码： use use A:\Rcda.dbf excl bh=trim(thisform .txtbh .value) locate for 编号=bh if eof() messa