VFP40代码大全.doc

VFP40代码大全【40】 本题素材是考生文件夹中的表单tk04.scx。该表单的功能是：在文本框中输入一个整数，单击命令按钮“判断”后，若该整数是偶数，则label2显示“该数是一个偶数”，若为奇数，则显示“该数是一个奇数”。请将command1_click()中的程序补充完整以实现上述功能。下图为运行效果，输入8，则label2显示该数是一个偶数。x = Val(thisform.text1.Value)if x%2=0 then &如果x除以2的余数为0，说明它是一个偶数，否则为奇数。thisform.Label2.Caption = 偶数elsethisform.Label2.Caption = 奇数endif 【39】 本题素材文件是考生文件夹中的sz11.scx，完成以下操作：（1）设置label1的文字颜色为红色（255,0,0），背景透明；(backstyle)（3）设置属性使得Command2不可见（即运行时不显示）；1!+2!+3!+4!+5!+6!+7!+8!+9!+10!S=0N=1For n=1 to 10M=1For I=1 to nM=m*IEndforS=s+mEndforThisform.label1.caption=str(s) 【40】 本题素材为考生文件夹中的表单文件tk13.scx，表单运行效果图如下所示：Do case Case this.value=1Thisform.text.fontname=”宋体”Case this.value=1Thisform.text.fontname=”幼圆”Case this.value=1Thisform.text.fontname=”隶书”endcase该表单实现的功能是设置文本框中文字的字体，要求选中宋体则文本框的字体为宋体，选中幼圆则文本框的字体为幼圆，选中隶书则文本框的字体为隶书。（文本框中的文字任意输入。） 或分别在Option1、Option2和Option3的Click事件写如下程序：thisform.Text1.BackColor = RGB(255,0,0)thisform.Text1.BackColor = RGB(0,255,0)thisform.Text1.BackColor = RGB(0,0,255)【40】 本题素材为考生文件夹下的tk23.scx，表单包括1个标签、1个命令按钮和1个计时器控件。表单运行效果如下图所示：该表单运行时先以9号字体显示“预祝同学们顺利通过考试！”字样，然后每隔一秒将字号放大一号，当达到30号字体时，又恢复成最初状态，即9号字体；单击命令按钮“退出”可释放该表单。Thisform.releasethisform.label1.fontsize=thisform.label1.fontsize+1 (在计时器中写)if thisform.label1.fontsize=30 thisform.label1.fontsize=9 endif计时器【39】 本题素材为考生文件夹下的sz07.scx文件，请完成以下操作：（2）添加一个标签控件，设置其标题为“2006年6月”，可自动调整标签控件的大小；(autosize)（3）在该表单上添加一个命令按钮，设置其名称为“cmdok”，不响应事件（即运行时按钮显示为灰色的）。该表单运行效果如下图所示：(mand1.enabled=.f.)【40】 本题素材为考生文件夹下的tk20.scx，该表单的功能是统计数据表“tk20_作者.dbf”中相应职称的人数。表单运行效果如下图所示：Thisform.releaseselect * from tk20_作者.dbfCount for 职称=”教授” to a Thisform.text1.value=str(a)Count for 职称=”副教授” to b Thisform.text2.value=str(b)具体要求：（1）单击“统计”按钮，统计出作者表中教授和副教授的人数，并将统计结果输出到相应的文本框中；（2）单击命令按钮“退出”可释放该表单。【40】 本题素材为考生文件夹中的表单文件tk17.scx，表单界面如下图所示，数据环境中已经添加了表tk17_xs.dbf。Go 1Thisform.refreshGo 1 Thisform.refreshGo bottomThisform.refreshGo 1Thisform.refresh该表单程序可以实现以下功能：单击command1文本框中可显示第一条记录、单击command2可显示上一条记录、单击command3可显示下一条、单击command4可显示最后一条记录。完成下列操作以实现上述功能：（1）设置各文本框的相关属性，使得文本框为只读；（选中文本框readonly）（2）分别在command1（第一条）、command2（上一条）、command3（下一条）、command4(最后一条)的click过程中编写程序实现上述功能。【40】 本题素材为考生文件夹下的tk25.scx，表单包括1个标签、1个命令按钮和1个计时器控件。表单运行效果如下图所示：在interval 中设计为 500if thisform.label1.top thisform.heightthisform.label1.top=0elsethisform.label1.top= thisform.label1.top+5endif该表单的功能是文字从上向下移动，要求：标签Label1每隔0.5秒自动从上向下移动5个像素单位，移到窗口下边界时标签回到窗口上边重新向下移动；单击命令按钮“退出”可释放该表单。【40】 本题素材为考生文件夹中的表单文件tk21.scx。该表单实现的功能是：单击命令按钮command1(设置背景）可以设置label1的背景色为蓝色，单击命令按钮command2(放大字体)可使得label1的字号增加2号，例如label1的字号原为12号，单击放大字体后label1的字号为14号。请分别在按钮command1和command2的click过程中编写代码以便实现上述功能。【40】 本题素材为考生文件夹下的tk22.scx，表单的功能是将输入的百分制成绩转换成五级制（优秀、良好、中等、及格、不及格）输出。要求：表单运行后，在文本框Text1中输入一个百分制成绩后，单击“判定等级”按钮，根据输入的成绩转换成相应的级别，在标签Label2处显示；单击“清空”按钮后，会自动清除Text1和label2中的内容。请为这2个命令按钮的Click事件编写对应的程序代码实现上述功能。 Year(出生日期) = 1986 或 year =1986-01-01 Year 90 and x80 and x70 and x60 and x0thisform.label1.Left=thisform.label1.Left-5ELSEthisform.label1.Left=thisform.WidthENDIF在对象Command1的Click事件过程中编写以下程序：(3分)thisform.release六、综合应用题（每小题 15 分） 考生本题得分：0.0分【40】 本题素材为考生文件夹中的表单文件tk15.scx，表单运行后界面如下图所示：该表单实现的功能是选中红色选项按钮，则文本框的背景颜色为红色(255,0,0)；选中绿色则文本框的背景颜色为绿色(0,255,0)；选中蓝色则文本框的背景颜色为蓝色(0,0,255)。（文本框的文字由你任意输入。）编写程序实现上述功能。 本题的作答结果在考生文件夹中 得分：0.0分 分参考答案及分析：在OptionGroup1的Click事件中写下如下程序语句：do casecase this.value=1thisform.Text1.BackColor = RGB(255,0,0)case this.value=2thisform.Text1.BackColor = RGB(0,255,0)case this.value=3thisform.Text1.BackColor = RGB(0,0,255)endcase或分别在Option1、Option2和Option3的Click事件写如下程序：thisform.Text1.BackColor = RGB(255,0,0)thisform.Text1.BackColor = RGB(0,255,0)thisform.Text1.BackColor = RGB(0,0,255)【40】 本题素材为考生文件夹下的tk23.scx，表单包括1个标签、1个命令按钮和1个计时器控件。表单运行效果如下图所示：该表单运行时先以9号字体显示“预祝同学们顺利通过考试！”字样，然后每隔一秒将字号放大一号，当达到30号字体时，又恢复成最初状态，即9号字体；单击命令按钮“退出”可释放该表单。编写程序实现上述功能。 本题的作答结果在考生文件夹中 得分：0.0分 分参考答案及分析：在属性窗口设置Timer1的Interval为100。（2分）在对象Timer1的Timer事件过程中编写以下程序：（10分）IF thisform.label1.FontSize30 thisform.label1.Fontsize=thisform.label1.Fontsize+1ELSE thisform.label1.Fontsize=9ENDIF在对象Command1的Click事件过程中编写以下程序：（3分）thisform.release【40】 本题素材为考生文件夹下的tk20.scx，该表单的功能是统计数据表“tk20_作者.dbf”中相应职称的人数。表单运行效果如下图所示：具体要求：（1）单击“统计”按钮，统计出作者表中教授和副教授的人数，并将统计结果输出到相应的文本框中；（2）单击命令按钮“退出”可释放该表单。编写程序实现上述功能。 本题的作答结果在考生文件夹中 得分：0.0分 分参考答案及分析：在统计按钮Command1的Click事件过程中编写如下程序：count for 职称=教授 to mcount for 职称=副教授 to nthisform.text1.value=mthisform.text2.value=n（注：由于文本框中开始没有任何数据，此时将数据型变量m的值赋给文本框text1，则text1自动变为数值型，所以不需要进行数据类型转换。）在退出按钮Command2的Click事件过程中编写如下程序：thisform.release六、综合应用题（每小题 15 分） 考生本题得分：0.0分【40】 本题素材为考生文件夹中的表单文件tk15.scx，表单运行后界面如下图所示：该表单实现的功能是选中红色选项按钮，则文本框的背景颜色为红色(255,0,0)；选中绿色则文本框的背景颜色为绿色(0,255,0)；选中蓝色则文本框的背景颜色为蓝色(0,0,255)。（文本框的文字由你任意输入。）编写程序实现上述功能。 本题的作答结果在考生文件夹中 得分：0.0分 分参考答案及分析：在OptionGroup1的Click事件中写下如下程序语句：do casecase this.value=1thisform.Text1.BackColor = RGB(255,0,0)case this.value=2thisform.Text1.BackColor = RGB(0,255,0)case this.value=3thisform.Text1.BackColor = RGB(0,0,255)endcase或分别在Option1、Option2和Option3的Click事件写如下程序：thisform.Text1.BackColor = RGB(255,0,0)thisform.Text1.BackColor = RGB(0,255,0)thisform.Text1.BackColor = RGB(0,0,255)六、综合应用题（每小题 15 分） 考生本题得分：0.0分【40】 打开考生文件夹中的文件tk26.scx，该表单上有两个标签Label1、Label2和一个命令按钮Command1（命令按钮标题为“求和”），表单实现的功能是单击命令按钮后可计算1到100以内3的倍数的和，并用标签label1显示结果。请把command1的click过程中的程序补充完整以实现上述功能。参考答案及分析：在Command1的Click事件过程中编写如下程序：S=0for i=3 to 100 step 3s=s+iendforthisform.label1.caption=alltrim(str(s)或：S=0for i=1 to 100 if i%3=0 s=s+i endifendforthisform.label1.caption=alltrim(str(s)【40】 表单tk06.scx实现的功能是系统时钟，标签label2中每秒显示一次当前时间；单击设置字号（command1）可将标签label2中的文字大小设为16号。完成以下操作实现该功能：（1）设置计时器Timer1的时间间隔属性；（2）在command1的click过程中编写程序使得标签label2的字号为16；（3）在Timer1的Timer过程中编写程序使得标签label2中显示当前系统时间。程序运行效果图如下： 本题的作答结果在考生文件夹中 得分：0.0分 分参考答案及分析：在Timer1的Timer事件中：thisform.Label2.Caption = Time()在Command1的click事件中：thisform.Label2.FontSize = 16【40】 本题素材为表单tk07.scx，该表单实现的功能是系统时钟，即在文本框中每秒显示一次当前时间；单击设置背景（command1）可设置文本框的背景颜色为红色(255,0,0)。 本题的作答结果在考生文件夹中 得分：0.0分 分参考答案及分析：在Timer1的Timer事件中：thisform.Text1.Value = Time()在Command1的click事件中：thisform.Label2.BackColor = RGB(255,0,0)【40】 打开考生文件夹中的文件tk02.scx，该表单上有两个标签Label1、Label2和一个命令按钮Command1（命令按钮标题为“求和”），表单实现的功能是单击命令按钮后可计算从1到100的之间的奇数的和，并用标签label1显示计算结果。请将command1_click()过程中的程序补充完整，实现上述功能。 本题的作答结果在考生文件夹中 得分：0.0分 分参考答案及分析：在Command1的单击事件（click事件）中写上如下程序段：s = 0for i=1 to 100 step 2s = s+iendforthisform.Label1.Caption = Alltrim(Str(s)【40】 本题素材为表单tk07.scx，该表单实现的功能是系统时钟，即在文本框中每秒显示一次当前时间；单击设置背景（command1）可设置文本框的背景颜色为红色(255,0,0)。 本题的作答结果在考生文件夹中 得分：0.0分 分参考答案及分析：在Timer1的Timer事件中：thisform.Text1.Value = Time()在Command1的click事件中：thisform.Label2.BackColor = RGB(255,0,0)【40】 本题素材为考生文件夹中的表单文件tk08.scx。该表单包含1个标签Label1，3个命令按钮command1“暂停”、command2“继续”和command3“退出”。该表单的功能是：Label1用来显示系统的当前时间；单击命令按钮command1，时钟暂停走动；单击命令按钮command2，时钟继续显示系统的当前时间；单击命令按钮command3，释放表单。 请分别在command1.Click()、command2.click()、command3.click()过程中编写代码