VF表单程序题(含答案)

VF表单程序练习1（共4页）1、利用文本框和标签控件设计了一表单F1.SCX，文本框Text1的Valid事件代码及表单界面如图1所示。向Text1中输入一段字符：”Figure1-18showsyouhowtouseaMENU.”（不含双引号）[Text1.Validevent]x=alltrim(thisform.text1.value)y=len(x)store0toz1,z2fori=1toya=substr(x,i,1)docasecaseasc(a)=65andasc(a)=90z1=z1+1caseasc(a)=97andasc(a)=122z2=z2+1endcaseendforthisform.text2.value=z1thisform.text3.value=z2（1）执行该程序后，“统计1”右边的文本框Text2和“统计2”右边的文本框Text3中的数据值分别为5、22（2）Text2和Text3的初值分别为0、02、有数据表“图书.DBF”包含书号、书名、出版社、作者等字段，设计如图1所示表单，表单运行后，单击命令按钮可以在表格控件中显示图书表的部分字段的数据，如图1所示，请选择并完善代码。命令按钮的CLICK事件代码：USE图书copyTOTSFIELDS书号,书名THISFORM.GRID1.RECORDSOURCETYPE=0THISFORM.GRID1.RECORDSOURCE=”TS”表单的UNLOAD（释放对象时发生）事件：CLOSEALLDROPTABLETS3、考生数据表（文件名为：KS.DBF）中有“准考证号/C/9”、“密码/C/6”、“成绩/N/5/1”等字段。设计如图2所示表单，将考生数据表添加到表单的数据环境中，表单运行后，在表单的文本框TEXT1中输入查询考生的准考证号，文本框TEXT2中输入该考生的查询密码后，单击“查询”按钮，查询该考生的成绩，并将该考生的成绩显示在表单的标签LABEL3中（考号或密码输入错误，则弹出提示窗口显示“准考证号或密码错误！”）。请选择并完善代码。“查询”按钮的CLICK事件代码如下：SELECTKSKH=ALLTRIM(THISFORM.TEXT1.VALUE)VF表单程序练习2（共4页）MM=ALLTRIM(THISFORM.TEXT2.VALUE)Locatefor准考证号=KHand密码=MMIFFOUND()THISFORM..lebel3.caption=str(成绩，5，1)ELSEMESSAGEBOX(“准考证号或密码错误！”)ENDIF4、设计如图3所示表单，表单运行后，要在表格中显示图书表中数量最少的3种图书信息，请选择并完善代码。表单FORM1的INIT事件代码如下：THISFORM.GRID1.RECORDSOURCETYPE=4THISFORM.GRID1.RECORDSOURCE=”SELECTtop3*ROM图书;Orderby数量INTOCURSORTEMP”5、有学生成绩表（文件名：XSCJ.DBF），表中数据如下所示，设计如图5所示表单，将学生成绩表添加到表单数据环境中，表单运行时，单击“统计”命令按钮，LABEL1显示课程名为计算机基础且成绩在80以上的平均成绩，LABEL2显示这些记录的绩点总和学生成绩表（文件名：XSCJ.DBF）姓名课程名成绩绩点陈兵计算机基础924杨昆计算机基础681江三计算机基础883陈兵程序设计803杨杨电子商务702杨杨计算机基础904图5（1）程序填空：“统计”命令按钮的CLICK事件代码如下：SC=0SD=0N=0DOWHILE.NOT.EOF()IF课程名=”计算机基础”AND成绩80SC=SC+成绩SD=SD+绩点N=N+1ENDIFSKIPENDDOTHISFORM.LABEL1.CAPTION=STR(SC/N)THISFORM.LABEL2.CAPTION=STR(SD)（2）写结果：两个标签（LABEL1，LABEL2）中分别显示的结果是90和116、选择题。设计如图6所示表单，命令按钮组COMMANDGROUP1的BUTTONCOUNT属性值设置为3。其余属性均为默认值。表单运行后，鼠标单击COMMAND2后表单中控件的变化情况，请选择（B）在COMMANDGROUP1的CLICK事件中有如下代码：VF表单程序练习3（共4页）DOCASECASETHIS.VALUE=1THISFORM.EDIT1.VALUE=”VFP简单、易学”THIS.COMMAND1.CAPTION=”隶书”CASETHIS.VALUE=2THISFORM.EDIT1.VALUE=”编程思维很重要”THIS.COMMAND2.CAPTION=”楷体”CASETHIS.VALUE=3THISFORM.EDIT1.VALUE=”多看例题多思考”THIS.COMMAND3.CAPTION=”宋体”ENDCASE图6A编辑框中显示：VFP简单、易学；第1个命令按钮上面的文本显示为：隶书B编辑框中显示：编程思维很重要；第2个命令按钮上面的文本显示为：楷体C编辑框中显示：多看例题多思考；第3个命令按钮上面的文本显示为：宋体D没有变化7、有两个表文件，表中数据如下所示：学生成绩表（文件名为：SC.DBF）学生信息表（文件名为：XS.DBF）学号课程成绩学分1001英语9241003英语7841005程序设计9531007程序设计8231001计算机基础9221003计算机基础882设计如图7所示表单，表单运行后，单击“查询”命令按钮，表格GRID1中显示的结果是（B）SELECT姓名,课程,成绩FROMXS,SCWHEREXS.学号=SC.学号AND成绩90AND学分=3ORDERBY成绩DESCINTOCURSORLBTHISFORM.GRID1.RECORDSOURCE=”LB”A陈颖程序设计95B陈颖程序设计95王伟计算机基础92王伟英语92C王伟计算机基础92D王伟英语92王伟英语92陈颖程序设计958、设计如图8所示表单，运行表单后，单击“command1”按钮，标签LABEL1显示的内容为（）命令按钮“command1”的CLICK事件代码如下：K=.T.Y=10X=””DOWHILEKY=Y+1IFY/5=INT(Y/5)X=X+STR(Y,3)ELSELOOP图8学号姓名性别1001王伟男1003张灿女1005陈颖女1007王城男VF表单程序练习4（共4页）ENDIFIFY20K=.F.ENDIFENDDOTHISFORM.LABEL1.CAPTION=X执行结果为（D）A1015B101520C1520D1520259、设计如图9所示表单，表单运行时单击“显示”按钮，在列表框LIST1控件中将显示（）“显示”按钮的click事件代码：DIMEA(4)B=”A”A=””FORI=1TO3A(I)=SPACE(10-I)FORJ=1TO2*I-1A(I)=A(I)+BB=CHR(ASC(B)+1)ENDFORTHISFORM.LIST1.ADDITEM(A(I))ENDFOR结果：ABCDEFGHI10、设计如图10所示表单，运行表单后，在两个文本框TEXT1、TEXT2中分别输入“中秋”、“节日”，单击“command1”按钮，标签label2中会显示（A）Command1的click事件代码：X=ALLT(THISFORM.TEXT1.VALUE)Y=ALLT(THISFORM.TEXT2.VALUE)SUB1()THISFORM.LABEL2.CAPTION=X+YRETURN自定义方法程序SUB1：LOCALXX=”快乐”Y=”月圆”X=X+YRETURNA中秋月圆B中秋快乐C节日快乐D快乐月圆二、程序设计题设有两个数据表：导师表（文件名为：DSB.DBF）（导师编号/C，姓名/C，性别/C，研究方向/C）；学生表（文件名为：XSB.DBF）（学号/C，姓名/C，性别/C，所在院系/C，导师编号/C）。设计如图11所示表单，组合框COMBO1与导师表中的导师编号字段绑定。表单运行后，在组合框COMBO1中选择任一位导师的编号，则（1）在标签LABEL3处显示该导师的姓名；图9图10图11VF表单程序练习5（共4页）（2）在标签LABEL5处显示该导师的研究方向；（3）在表格GRID1控件中显示该导师所指导的学生信息（包括学号、学生姓名、性别、所在院系）。请编写组合框COMBO1的INTERACTIVECHANGE事件代码实现以上查询功能。答案：将表单的数据环境设为导师表COMBO1的INTERACTIVECHANGE事件代码：Locatefor导师编号=this.valueThisform.label3.caption=姓名Thisform.label5.caption=研究方向Thisform.grid1.recordsourcetype=4Thisform.grid1.recordsource=’select学号,姓名,性别,所在院系from学生表where导师编号=thisform.value’