壹 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...