VisualFoxPro表单设计及答案.docVIP

四、VF窗体设计 共2题 （共计45分） 第1题 （15.0分） 题号:8 如样张所示设计一个名为Form1的表单，表单上有三个标签（Label1、Label2、Label3），标题分别为“选课系统”、“图书管理系统”、“成绩查询系统”，当用鼠标单击任何一个标签时，其他两个标签的标题文本互换。 Label1: t=thisform.label2.caption thisform.label2.caption=thisform.label3.caption thisform.label3.caption=t label2: t=thisform.label1.caption thisform.label1.caption=thisform.label3.caption thisform.label3.caption=t label3: t=thisform.label1.caption thisform.label1.caption=thisform.label2.caption thisform.label2.caption=t 第2题 （15.0分） 题号:32 如样张所示设计一个名为Form1的表单，包含一个文本框控件text1和两个按钮command1和command2，按钮的标题分别是“加一操作”和“减一操作”，文本框初始值为0，当单击一次“加一操作”按钮时，文本框中的数值加1。当单击一次“减一操作”按钮时，文本框中的数值减1。 *Text1:过程 Init this.value=0 *加一操作 x=thisform.text1.value thisform.text1.value=x+1 *减一操作 x=thisform.text1.value thisform.text1.value=x-1 第3题 （15.0分） 题号:16 如样张所示设计一个名为Form1的表单，有三个标签（Label1、Label2、Label3），分别为金额、存期、到期本息和。三个文本框（Text1、Text2、Text3）要求根据用户输入的存款额和存期（月），单击“计算”按钮（Command1），显示到期后应得的本息和。当存期小于12时，利息为1.8‰；当存期大于等于12小于24时，利息为2.5‰；当存期大于等于24小于36时，利息为2.8‰；当存期大于等于36时，利息为3.2‰，计算结果保留两位小数。 *计算 x=val(thisform.text1.value) y=val(thisform.text2.value) do case case y12 and y=0 x=x*((1+0.0018)^y) thisform.text3.value=str(x,10,2) case y24 and y=12 x=x*((1+0.0025)^y) thisform.text3.value=str(x,10,2) case y36 and y=24 x=x*((1+0.0028)^y) thisform.text3.value=str(x,10,2) case y=36 x=x*((1+0.0032)^y) thisform.text3.value=str(x,10,2) otherwise thisform.text3.value=存期必须大于等于0 endcase return 第4题 （15.0分） 题号:30 如样张所示设计一个名为Form1的表单，要求窗体标题为“邮件发送界面”，添加三个标签控件（Label1,Label2,Label3）,标题文本分别是“收件人”，“邮件主题”，“邮件正文”，添加两个文本框控件（text1,text2），一个列表框（List1）。再添加两个按钮（command1,command2），标题文本分别是“发送”、“退出”。当用户点击发送按钮时，弹出一个对话框，内容为“你是否确定发送？”。当点击退出按钮时，退出表单。 *发送 messagebox(你是否确定发送？) *退出 release thisform 第5题 （15.0分） 题号:12 如样张所示设计一个名为Form1的表单，该表单的功能是：有两个标签（Label1、Label2），分别是“小写”和“大写”。在TEXT1中输入一个小写字母，然后点击“转换”按钮（Command1），就能在TEXT2中输出其大写字母。单击“清除”按钮（Command2），则清除TEXT1和TEXT2中的内容；单击“退出”按钮（Command3）退出程序。 *转换 if thisform.text2.value= thisf