《2022年部分VFP命令程序整理 .pdf》由会员分享，可在线阅读，更多相关《2022年部分VFP命令程序整理 .pdf（9页珍藏版）》请在taowenge.com淘文阁网|工程机械CAD图纸|机械工程制图|CAD装配图下载|SolidWorks_CaTia_CAD_UG_PROE_设计图分享下载上搜索。
1、1. 打开考生文件夹中的文件tk01.scx，该表单上有两个标签Label1 、Label2 和一个命令按钮Command1 （命令按钮标题为“ 求和 ” ），表单实现的功能是单击命令按钮后可计算从1到100的连续自然数的和，并用标签label1 显示结果。请把 command1 的 click过程中的程序补充完整以实现上述功能。s=1 for i=1 to 100 step 1 s=s+i next thisform.label1.caption=str(s)2. 打开考生文件夹中的文件tk02.scx，该表单上有两个标签Label1 、 Label2 和一个命令按钮Command1 （命令
2、按钮标题为 “ 求和 ” ），表单实现的功能是单击命令按钮后可计算从1到100的之间的奇数的和，并用标签label1 显示计算结果。请将 command1_click()过程中的程序补充完整，实现上述功能。s=1 for i=1 to 100 step 2 s=s+i next thisform.label1.caption=str(s) 3. 打开考生文件夹中的文件tk03.scx ，该表单上有两个标签Label1 、Label2 和一个命令按钮Command1 （命令按钮标题为 “ 求和 ” ），表单实现的功能是单击命令按钮后可计算从1到100的之间的偶数的和，并用标签label1 显示计
3、算结果。请将 command1_click()过程中的程序补充完整，实现上述功能。s=1 for i=2 to 100 step 2 s=s+i next thisform.label1.caption=str(s) 4. 本题素材是考生文件夹中的表单tk04.scx。该表单的功能是：在文本框中输入一个整数，单击命令按钮“ 判断 ” 后，若该整数是偶数，则label2显示 “ 该数是一个偶数” ,若为奇数，则显示“ 该数是一个奇数” 。请将 command1_click() 中的程序补充完整以实现上述功能。下图为运行效果， 输入 8， 则label2显示该数是一个偶数。a=val(alltri
4、m(thisform.text1.value) if mod(a,2)=0 thisform.label2.caption= 这是一个偶数 else thisform.label2.caption= 这不是一个偶数 endif a=thisform.text1.value if n/2=int(n/2) thisform.label2.caption= 这是一个偶数 else thisform.label2.caption= 这不是一个偶数 endif 5. 打开考生文件夹中的文件tk05.scx ，该表单上有一个标签Label1 和一个命令按钮Command1 （命令按钮标题为“ 计算” ）
5、，表单实现的功能是求1!+2!+3!+.+10!，结果在标签 label1 中显示。请在 command1 的 click过程中编写程序以实现上述功能。名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 1 页，共 9 页 - - - - - - - - - sum=0 s=1 for i=1 to 10 s=s*i sum=sum+s next thisform.label1.caption=str(sum) 6. 表单 tk06.scx实现的功能是系统时钟，标签label2 中每秒显
6、示一次当前时间；单击设置字号（command1 ）可将标签label2 中的文字大小设为16号。完成以下操作实现该功能：（1）设置计时器 Timer1 的时间间隔属性；1000 （2）在 command1 的click过程中编写程序使得标签label2 的字号为 16；Thisform.label2.fontsize=16 （3）在 Timer1 的Timer 过程中编写程序使得标签label2 中显示当前系统时间。程序运行效果图如下：Thisform.label2.caption=time() 7. 本题素材为表单tk07.scx，该表单实现的功能是系统时钟，即在文本框中每秒显示一次当前时间
7、；单击设置背景（command1 ）可设置文本框的背景颜色。完成以下操作实现该功能：（1）设置计时器 Timer1 的时间间隔属性；1000 （2）在 command1 的click过程中编写程序使得文本框的背景颜色设为rgb （255,96,128 ）；Thisform.text1.backcolor=rgb(255,96,128) （3）编写 Timer1 的Timer 过程代码使得文本框中显示当前系统时间。Thisform. text1.value=time() 程序运行效果图如下：8. 本题素材为考生文件夹中的表单文件tk08.scx。该表单包含1个标签 Label1 ， 3个命令按钮
8、command1 “ 暂停 ” 、command2 “ 继续 ” 和command3 “ 退出 ” 。该 表 单 的 功 能 是 ： Label1 用 来 显 示 系 统 的 当 前 时 间 ； 单 击 命 令 按 钮 command1 ， 时 钟 暂 停 走 动 ；thisform.timer1.enabled=.F 单击命令按钮command2 ，时钟继续显示系统的当前时间；thisform.timer1.enabled=.T. 名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 2
9、 页，共 9 页 - - - - - - - - - 单击命令按钮command3 ，释放表单。thisform.release 请分别在 command1.Click()、command2.click()、command3.click()过程中编写代码实现上述功能。9. 表单 tk09.scx 实现的功能是奥运倒计时，表单运行效果图如下：编写程序实现以下功能：（1）单击文本框时，文本框中显示距2008 北京奥运会开幕的天数，注：奥运会开幕时间为2008 年 8 月 8 日。thisform.text1.value=2008-08-08-date() （2）单击命令按钮“ 设置文字颜色 ” 时
10、，设置文本框的文字颜色为随机产生的颜色。thisform.text1.forecolor=rgb(200*rand(),180*rand(),255*rand() 10. 本题素材为考生文件夹下的tk11.scx ，表单运行效果图如下所示：表单的功能是字体字号设置，表单内有一个标签对象（Label1的标题为 “ 南昌科技大学” ）,一个列表框（List1 ）用来设置Label1的字号大小，一个下拉列表框（combo1用来设置 Label1的字体），表单功能如下：（1）Combo1中可供选择的字体为：黑体、宋体、楷体_GB2312 、华文新魏。 List1 中可供选择的字号为10-30 ，每种字
11、号相差 2。form1_init bo1.rowsource= ” 黑体 ,宋体 ,华文新魏 ,楷体 ”thisform.list1.rowsource= ” 12,14,16,18,20,22,24,26,28,30”（2）在组合框 Combo1 中选择某种字体后，Label1 的字体相应发生变化。thisform.label1.fontname=this.value （3）在列表框 list1中选择任意数字，Label1 的字号相应发生变化。thisform.label1.fontsize=val(this.value)11. 本题素材为考生文件夹下的tk12.scx ，表单运行效果图如下
12、所示：名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 3 页，共 9 页 - - - - - - - - - 该表单上有一个标签对象和三个复选框，表单的功能是设置标签label1(标题为南昌科技大学) 的字体样式，要求选中粗体则标签文字设为粗体，选中斜体则标签文字设为斜体，选中下划线则标签文字加上下划线。Check1_click If this.value=1 then Thisform.label.fontbold=.T. Else Thisform.label.fontbold=
13、.F. endif Check2_click If this.value=1 then Thisform.label.fontitalic=.T. Else Thisform.label.fontitalic=.F. endif Check3_click If this.value=1 then Thisform.label.fontunderline=.T. Else Thisform.label.fontunderline=.F. endif 编写程序实现上述功能。12. 本题素材为考生文件夹中的表单文件tk13.scx ，表单运行效果图如下所示：该表单实现的功能是设置文本框中文字的字体，
14、要求选中宋体则文本框的字体为宋体，选中幼圆则文本框的字体为幼圆，选中隶书则文本框的字体为隶书。编写程序实现上述功能。（方法不限）Option1_click Thisform.text1.fontname=” 宋体 ”Option2_click Thisform.text1.fontname=” 幼圆 ”Option3_click Thisform.text1.fontname=” 隶书 ”13. 本题素材为考生文件夹中的表单文件tk14.scx，表单运行后界面如下图所示：该表单实现的功能是选中红色选项按钮，则文本框中文字的颜色为红色(255,0,0)；选中绿色则文本框中文字为绿色(0,255,
15、0)；选中蓝色则文本框中文字为蓝色(0,0,255)；Option1_click Thisform.text1.forecolor=rgb(255,0,0) Option2_click Thisform.text1. forecolor=rgb(0,255,0) Option3_click Thisform.text1. forecolor=rgb(0,0,255) 单击退出按钮可以释放该表单。Thisform.release 编写程序实现上述功能。15. 本题素材为考生文件夹中的表单文件tk17.scx，表单界面如下图所示，数据环境中已经添加了表tk17_xs.dbf。名师资料总结 - -
16、-精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 4 页，共 9 页 - - - - - - - - - 本题素材为考生文件夹中的表单文件tk17.scx ，表单界面如下图所示，数据环境中已经添加了表tk17_xs.dbf。该表单程序可以实现以下功能：单击command1 文本框中可显示第一条记录、单击command2 可显示上一条记录、单击command3 可显示下一条、单击command4 可显示最后一条记录。完成下列操作以实现上述功能：（1）设置各文本框的相关属性，使得文本框为只读；readonly
17、（2）分别在 command1 （第一条）、 command2 （上一条）、 command3 （下一条）、 command4( 最后一条 )的click过程中编写程序实现上述功能。Command1_ click Go to Thisform.refesh Command2_ click If not bof() Skip -1 Thisform.refesh endif Command1_ click If not eof() Skip Thisform.refesh endif Command1_ click Go bottom Thisform.refesh 16. 本题素材为考生文件夹
18、中的表单文件tk18.scx，数据环境中已添加表文件“ tk18_dz.dbf” 。该表单实现的功能是：在文本框text1 中输入读者姓名，单击命令按钮查询可以查找到该读者的记录信息，把性别显示在文本框 text2 中，籍贯显示在文本框text3 中，如果找不到记录则弹出一个消息框显示“ 查无此人！ ”在按钮 command1 （查询）的 click过程中编写程序实现上述功能。xm=alltrim(thisform.text1.value) set exact on if xm locate for 姓名 =xm if found() thisform.text2.value= ” 性别 ”t
19、hisform.text3.value= ” 籍贯 ”else messagebox=(没有找到这个人) endif thisform.text1.setfocus endif xm=alltrim(thisform.text1.value) locate for 姓名=xm if found() tisform.refresh else messagebox(“ 查无此人 ” ) endif 表单运行效果图如下所示：名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 5 页，共 9 页
20、 - - - - - - - - - 17. 本题素材为考生文件夹下的tk20.scx ，scx，数据环境中已添加表“ tk20_ 作者 .dbf ” 。该表单的功能是统计相应职称的人数。表单运行效果如下图所示：具体要求：单击“ 统计 ” 按钮，统计出作者表中教授和副教授的人数，并将统计结果输出到相应的文本框中；count for 职称 =” 教授 ” to a count for 职称 =” 副教授 ” to b thisform.text1.value=a thisform.text2.value=b 单击命令按钮 “ 退出 ” 可释放该表单。thisform.release 编写程序实现
21、上述功能。18. 本题素材为考生文件夹中的表单文件tk21.scx 。该表单实现的功能是：单击命令按钮command1( 设置背景）可以设置label1 的背景色为蓝色，单击命令按钮command2( 放大字体 ) 可使得 label1 的字号增加 2号，例如 label1 的字号原为 12号，单击放大字体后label1 的字号为 14号。请分别在按钮 command1 和command2 的 click 过程中编写代码以便实现上述功能。Command1_ click Thisform.label1.backcolor=rgb(0,0,255) Command2_ click Thisform
22、.label1.fontsize= Thisform.label1.fontsize=2 19. 本题素材为考生文件夹下的tk22.scx ，表单的功能是将输入的百分制成绩转换成五级制（优秀、良好、中等、及格、不及格）输出。要求：表单运行后，在文本框Text1 中输入一个百分制成绩后，单击“ 判定等级 ” 按钮，根据输入的成绩转换成相应的级别，在标签 Label2 处显示；单击 “ 清空 ” 按钮后，会自动清除Text1 和label2 中的内容。请为这2个命令按钮的 Click 事件名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - -
23、- 名师精心整理 - - - - - - - 第 6 页，共 9 页 - - - - - - - - - 编写对应的程序代码实现上述功能。Command1_ click cj=thisform.text1.value do case case val(cj)=90 and val(cj)=80 thisform.label2.caption= 良好 case val(cj)=70 thisform.label2.caption= 中等 case val(cj)=60 thisform.label2.caption= 及格 case val(cj)=90 and cj=80 and cj=70
24、and cj=60 and cj=0 and cj60 thisform.label2.caption= 该学生成绩为：不及格 endcase 20. 本题素材为考生文件夹下的tk23.scx ，表单包括 1个标签、 1个命令按钮和 1个计时器控件。表单运行效果如下图所示：该表单运行时先以9号字体显示 “ 预祝同学们顺利通过考试！” 字样，然后每隔一秒将字号放大一号，当达到30号字体时，又恢复成最初状态，即9号字体；单击命令按钮“ 退出 ” 可释放该表单。thisform.label1.fontsize=thisform.label1.fontsize+1 if thisform.label.
25、fontsize=30 thisform.label1.fontsize=9 endif 编写程序实现上述功能。21. 本题素材为考生文件夹下的tk24.scx ，表单包括 1个标签、 1个命令按钮和 1个计时器控件。表单运行效果如下图所示：该表单的功能是文字从右向左移动，要求：标签Label1 每隔 1 秒自动从右向左移动5 个像素单位，移到窗口左边界时标签回到窗口右边重新向左移动；单击命令按钮“ 退出 ” 可释放该表单。thisform.label1.left=thisform.label1.left-5 if thisform.label.left= thisform.width thi
26、sform.label1.left=0 -thisform.label1.width endif 第二个从上向下thisform.label1.top=thisform.label1.top+5 if thisform.label.top= thisform.height thisform.label1.top=0 -thisform.label1.height endif 第三个从下向上thisform.label1. top =thisform.label1. top -5 if thisform.label. top 0 thisform.label1. top =thisform. h
27、eight -thisform.label1. height endif 编写程序实现上述功能。23. 本题素材为考生文件夹中的表单文件vfp10.scx， 数据环境中已添加表文件“ 学生 9.dbf ” 和“ 成绩 9.dbf ” 。该表单功能通过姓名查找指定学生的平均成绩，执行效果如图所示。要求：（1）补充完整 list1的click过程代码，在有 ？ 的地方填入正确内容，然后删除 ？ ，使得用户在列表框list1中选择姓名后，文本框text1 将显示对应学生的所有课程的总平均成绩；如果该学生没有成绩则弹出一个消息框显示“ 该生没有考试 ! ” ? （2）编写代码使得按 退出 按钮时释放表
28、单。Thisform.release 设置密码一题Thisform.Label2.ViSible= TIf Thisform.Text1.Value=123456 then Thisform.Label2.Caption=“ 欢迎登录学生成绩管理系统! ”Else Thisform.Label2.Caption=“ 你输入的密码错误! ”Endif Thisform.Refresh 名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 8 页，共 9 页 - - - - - - - - -
29、 List all for “ 小” $姓名List for substr(姓名 ,1,2)=” 张”List for substr(姓名 ,3,2)=” 张”List for substr(姓名 ,5,2)=” 张”Replace all 单价 with 22.50 Replace 奖金 with 100 for 职称 =” 副教授 ”Replace 职称 with “ 助教 ” for 教师编号 =” 0002” or 教师编号 =” 0003”Replace all 工作时间 with 2007-09-01 徐为结制作2009-6-18 【例 7-12】设计一表单，可以通过一文本框对列表
30、框进行项目的添加、删除操作，其界面如图7-40所示。（1）选择控件在表单上添加一个列表框控件Listl，一个文本框控件Text1 和两个按钮控件command1 、command2 。（2）属性设置Forml 的Caption 属性设为 “ 课程管理 ” 。Command1 的Caption 属性设为 “ 添加 ” 。Command1 的Caption 属性设为 “ 删除 ” 。（3）编写代码窗体 Forml 的Init代码如下： thisform.list1.AddItem (计算机文化基础) thisform.list1.AddItem (大学英语 ) thisform.list1.Add
31、Item (高等数学 ) 按钮 Command1 的 Click 代码如下： kecheng=thisform.text1.Value thisform.list1.additem (kecheng) thisform.text1.Value= 按钮 Command2 的 Click 代码如下： thisform.list1.RemoveItem(thisform.list1.ListIndex ) 名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 9 页，共 9 页 - - - - - - - - -