VF表单程序题(含答案).doc

1、利用文本框和标签控件设计了一表单F1.SCX，文本框Text1的Valid事件代码及表单界面如图1所示。向Text1中输入一段字符：”Figure 1-18 shows you how to use a MENU.”（不含双引号） [Text1.Valid event] x=alltrim(thisform.text1.value) y=len(x) store 0 to z1,z2 for i=1 to y a=substr(x,i,1) do case case asc(a)=65 and asc(a)=90 z1=z1+1 case asc(a)=97 and asc(a)=122 z2=z2+1 endcase endfor thisform.text2.value=z1 thisform.text3.value=z2 （1）执行该程序后，“统计1”右边的文本框Text2和“统计2”右边的文本框Text3中的数据值分别为 5 、 22 （2）Text2和 Text3的初值分别为 0 、 0 2、有数据表“图书.DBF”包含书号、书名、出版社、作者等字段，设计如图1所示表单，表单运行后，单击命令按钮可以在表格控件中显示图书表的部分字段的数据，如图1所示，请选择并完善代码。 命令按钮的CLICK事件代码： USE 图书 copy TO TS FIELDS 书号,书名 THISFORM.GRID1.RECORDSOURCETYPE=0 THISFORM.GRID1.RECORDSOURCE =”TS” 表单的UNLOAD（释放对象时发生）事件： CLOSE ALL DROP TABLE TS 3、考生数据表（文件名为：KS.DBF）中有“准考证号/C/9”、“密码/C/6”、“成绩/N/5/1”等字段。设计如图2所示表单，将考生数据表添加到表单的数据环境中，表单运行后，在表单的文本框TEXT1中输入查询考生的准考证号，文本框TEXT2中输入该考生的查询密码后，单击“查询”按钮，查询该考生的成绩，并将该考生的成绩显示在表单的标签LABEL3中（考号或密码输入错误，则弹出提示窗口显示“准考证号或密码错误！”）。请选择并完善代码。 “查询”按钮的CLICK事件代码如下： SELECT KS KH=ALLTRIM(THISFORM.TEXT1.VALUE) MM=ALLTRIM(THISFORM.TEXT2.VALUE) Locate for 准考证号=KH and密码=MM IF FOUND() THISFORM..lebel3.caption=str(成绩，5，1) ELSE MESSAGEBOX(“准考证号或密码错误！”) ENDIF 4、设计如图3所示表单，表单运行后，要在表格中显示图书表中数量最少的3种图书信息，请选择并完善代码。 表单FORM1的INIT事件代码如下： THISFORM.GRID1.RECORDSOURCETYPE=4 THISFORM.GRID1.RECORDSOURCE=”SELECT top 3 * ROM 图书; Order by数量 INTO CURSOR TEMP” 5、有学生成绩表（文件名：XSCJ.DBF），表中数据如下所示，设计如图5所示表单，将学生成绩表添加到表单数据环境中，表单运行时，单击“统计”命令按钮，LABEL1显示课程名为计算机基础且成绩在80以上的平均成绩，LABEL2显示这些记录的绩点总和 学生成绩表（文件名：XSCJ.DBF） 姓名 课程名 成绩 绩点 陈兵 计算机基础 92 4 杨昆 计算机基础 68 1 江三 计算机基础 88 3 陈兵 程序设计 80 3 杨杨 电子商务 70 2 杨杨 计算机基础 90 4 图5 （1）程序填空：“统计”命令按钮的CLICK事件代码如下： SC=0 SD=0 N=0 DO WHILE .NOT. EOF() IF 课程名=”计算机基础” AND 成绩80 SC=SC+成绩 SD=SD+绩点 N=N+1 ENDIF SKIP ENDDO THISFORM.LABEL1. C APTION=STR(SC/N) THISFORM.LABEL2.CAPTION=STR(SD) （2）写结果：