VFP机考综合题必备.doc

(1)　该表单实现的功能是：单击命令按钮command1(设置背景）可以设置label1的背景色为蓝色，单击命令按钮command2(放大字体)可使得label1的字号增加2号，例如label1的字号原为12号，单击放大字体后label1的字号为14号 在Command1的Click事件中写如下程序： thisform.label1.BackColor=RGB(0,0,255) 在Command2的Click事件中写如下程序： thisform.label1.FontSize=thisform.label1.FontSize+2 (2) 该表单实现的功能是选中红色选项按钮，则文本框的背景颜色为红色(255,0,0)；选中绿色则文本框的背景颜色为绿色(0,255,0)；选中蓝色则文本框的背景颜色为蓝色(0,0,255)。（文本框的文字由你任意输入。） 在OptionGroup1的Click事件中写下如下程序语句： do case case this.value=1 thisform.Text1.BackColor = RGB(255,0,0) case this.value=2 thisform.Text1.BackColor = RGB(0,255,0) case this.value=3 thisform.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) (3) 本题素材为考生文件夹下的tk24.scx，表单包括1个标签、1个命令按钮和1个计时器控件。表单运行效果如下图所示： 该表单的功能是文字从右向左移动，要求：标签Label1每隔1秒自动从右向左移动5个像素单位，移到窗口左边界时标签回到窗口右边重新向左移动；单击命令按钮“退出”可释放该表单。 编写程序实现上述功能。 在属性窗口设置Timer1的Interval为100。（2分） 在对象Timer1的Timer事件过程中编写以下程序：(10分) IF thisform.label1.Left0 thisform.label1.Left=thisform.label1.Left-5 ELSE thisform.label1.Left=thisform.Width ENDIF 在对象Command1的Click事件过程中编写以下程序：(3分) thisform.release (4) 该表单上有一个标签对象和三个复选框，表单的功能是设置标签label1(标题为南昌科技大学)的字体样式，要求选中粗体则标签文字设为粗体，选中斜体则标签文字设为斜体，选中下划线则标签文字加上下划线。 编写程序实现上述功能。 在复选框Check1(粗体)的Click事件中编写以下程序： IF this.Value=1 thisform.label1.FontBold=.T. ELSE thisform.label1.FontBold=.F. ENDIF 在复选框Check2(斜体)的Click事件中编写以下程序： IF this.Value=1 thisform.label1.FontItalic =.T. ELSE thisform.label1.FontItalic =.F. ENDIF 在复选框Check3(下划线)的Click事件中编写以下程序： IF this.Value=1 thisform.label1.FontUnderline =.T. ELSE thisform.label1.FontUnderline =.F. ENDIF (5) 本题素材为考生文件夹下的tk20.scx，该表单的功能是统计数据表“tk20_作者.dbf”中相应职称的人数。表单运行效果如下图所示： 具体要求： （1）单击“统计”按钮，统计出作者表中教授和副教授的人数，并将统计结果输出到相应的文本框中； （2）单击命令按钮“退出”可释放该表单。 编写程序实现上述功能。 在统计按钮Command1的Click事件过程中编写如下程序： count for 职称=教授 to m count for 职称=副教授 to n thisform.text1.value=m thisform.text2.value=n （注：由于文本框中开始没有任何数据，此时将数据型变量m的值赋给文本框text1，则text1自动变为数值型，所以不需要进