VFP40代码大全VIP专享VIP免费

壹 1!+2!+3!+4!+5!+6!+7!+8!+9!+10! S=0 N=1 For n=1 to 10 M=1 For I=1 to n M=m*I Endfor VFP40代码大全 【40】 本题素材是考生文件夹中的表单tk04.scx。该表单的功能是：在文本框中输入一个整数，单击命令按钮“判断”后，若该整数是偶数，则 label2显示“该数是一个偶数”，若为奇数，则显示“该数是一个奇数”。 请将command1_click()中的程序补充完整以实现上述功能。下图为运行效果，输入8，则label2显示该数是一个偶数。 【39】 本题素材文件是考生文件夹中的sz11.scx，完成以下操作： （1）设置label1的文字颜色为红色（255,0,0），背景透明；(backstyle) （3）设置属性使得Command2不可见（即运行时不显示）； 【40】 本题素材为考生文件夹中的表单文件tk13.scx，表单运行效果图如下所示： x = Val(thisform.text1.Value) if x%2=0 then &&如果x除以2的余数为0，说明它是一个偶数，否则为奇数。 thisform.Label2.Caption = "偶数" else thisform.Label2.Caption = "奇数" endif 贰 该表单实现的功能是设置文本框中文字的字体，要求选中宋体则文本框的字体为宋体，选中幼圆则文本框的字体为幼圆，选中隶书则文本框的字体为隶书。（文本框中的文字任意输入。） 或分别在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号字体；单击命令按钮“退出”可释放该表单。 【39】 本题素材为考生文件夹下的sz07.scx文件，请完成以下操作： （2）添加一个标签控件，设置其标题为“2006年6月”，可自动调整标签控件的大小；(autosize) （3）在该表单上添加一个命令按钮，设置其名称为“cmdok”，不响应事件（即运行时按钮显示为灰色的）。 该表单运行效果如下图所示：(thisform.command1.enabled=.f.) 计时器 thisform.label1.fontsize=thisform.label1.fontsize+1 (在计时器中写) if thisform.label1.fontsize>=30 thisform.label1.fontsize=9 endif Thisform.release Do case Case t...