vfp综合应用题及解析Word下载.docx

vfp综合应用题及解析Word下载.docx

《vfp综合应用题及解析Word下载.docx》由会员分享，可在线阅读，更多相关《vfp综合应用题及解析Word下载.docx（21页珍藏版）》请在冰豆网上搜索。

&

如果x除以2的余数为0，说明它是一个偶数，否则为奇数。

thisform.Label2.Caption="

偶数"

else

奇数"

endif

【5】打开考生文件夹中的文件tk05.scx，该表单上有一个标签Label1和一个命令按钮Command1（命令按钮标题为“计算”），表单实现的功能是求1!

+2!

+3!

+...+10!

，结果在标签label1中显示。

请在command1的click过程中编写程序以实现上述功能。

在Command1的Click事件中写如下程序：

s=0

t=1

FORi=1to10

t=t*i

s=s+t

ENDFOR

thisform.label1.Caption=STR（s）

【6】表单tk06.scx实现的功能是系统时钟，标签label2中每秒显示一次当前时间；

单击设置字号（command1）可将标签label2中的文字大小设为16号。

完成以下操作实现该功能：

（1）设置计时器Timer1的时间间隔属性；

（2）在command1的click过程中编写程序使得标签label2的字号为16；

（3）在Timer1的Timer过程中编写程序使得标签label2中显示当前系统时间。

程序运行效果图如下：

在Timer1的Timer事件中：

thisform.Label2.Caption=Time（）

在Command1的click事件中：

thisform.Label2.FontSize=16

【7】本题素材为表单tk07.scx，

该表单实现的功能是系统时钟，即在文本框中每秒显示一次当前时间；

单击设置背景（command1）可设置文本框的背景颜色为红色（255,0,0）。

Thisform.Text1.Value=Time（）

Thisform.Text1.BackColor=RGB（255,0,0）

【8】本题素材为考生文件夹中的表单文件tk08.scx。

　　该表单包含1个标签Label1，3个命令按钮command1“暂停”、command2“继续”和command3“退出”。

　　该表单的功能是：

Label1用来显示系统的当前时间；

单击命令按钮command1，时钟暂停走动；

单击命令按钮command2，时钟继续显示系统的当前时间；

单击命令按钮command3，释放表单。

请分别在command1.Click（）、command2.click（）、command3.click（）过程中编写代码实现上述功能。

在Command1的Click事件中：

thisform.Timer1.Enabled=.F.

在Command2的Click事件中：

thisform.Timer1.Enabled=.T.

在Command3的Click事件中：

thisform.Release

【9】表单tk09.scx实现的功能是设置文字的颜色，表单运行效果图如下：

编写程序实现以下功能：

单击命令按钮“设置文字颜色”时，设置标签的文字颜色为随机产生的颜色。

r=INT（RAND（）*256）

g=INT（RAND（）*256）

b=INT（RAND（）*256）

thisform.label1.ForeColor=RGB（r,g,b）

说明，rand（）函数的返回值是0～1之间的数。

rand（）乘以256再取整就能产生0～255之间的数。

【11】本题素材为考生文件夹下的tk11.scx，表单运行效果图如下所示：

表单的功能是字体字号设置，表单内有一个标签对象（Label1的标题为“南昌科技大学”），一个列表框（List1）用来设置Label1的字号大小，列表框中的项目已设好，一个下拉列表框（combo1用来设置Label1的字体），具体要求如下：

（1）设置Combo1中可供选择的字体为：

黑体、宋体、楷体、华文新魏。

（设计方法不限）

（2）在组合框Combo1中选择某种字体后，Label1的字体相应发生变化。

（3）在列表框list1中选择任意数字，Label1的字号相应发生变化。

编写程序实现上述功能。

在列表框List1的Click事件中编写以下程序：

thisform.label1.fontsize=VAL（thisform.list1.Value）

（注：

由于字号为数值型，列表框的值为字符型，所以用val函数进行类型转换。

）

在组合框Combo1的Click事件中编写以下程序：

thisform.label1.fontname=bo1.Value

【12】本题素材为考生文件夹下的tk12.scx，表单运行效果图如下所示：

该表单上有一个标签对象和三个复选框，表单的功能是设置标签label1（标题为南昌科技大学）的字体样式，要求选中粗体则标签文字设为粗体，选中斜体则标签文字设为斜体，选中下划线则标签文字加上下划线。

在复选框Check1（粗体）的Click事件中编写以下程序：

IFthis.Value=1

thisform.label1.FontBold=.T.

ELSE

thisform.label1.FontBold=.F.

ENDIF

在复选框Check2（斜体）的Click事件中编写以下程序：

thisform.label1.FontItalic=.T.

thisform.label1.FontItalic=.F.

在复选框Check3（下划线）的Click事件中编写以下程序：

thisform.label1.FontUnderline=.T.

thisform.label1.FontUnderline=.F.

【13】本题素材为考生文件夹中的表单文件tk13.scx，表单运行效果图如下所示：

该表单实现的功能是设置文本框中文字的字体，要求选中宋体则文本框的字体为宋体，选中幼圆则文本框的字体为幼圆，选中隶书则文本框的字体为隶书。

（文本框中的文字任意输入。

（方法不限）

在OptionGroup1的Click事件中写下如下程序语句：

docase

casethis.value=1

thisform.Text1.fontname="

宋体"

casethis.value=2

幼圆"

casethis.value=3

隶书"

endcase

或分别在Option1、Option2和Option3的Click事件写如下程序：

thisform.Text1.fontname="

【14】本题素材为考生文件夹中的表单文件tk14.scx，表单运行后界面如下图所示：

该表单实现的功能是选中红色选项按钮，则文本框中文字的颜色为红色（255,0,0）；

选中绿色则文本框中文字为绿色（0,255,0）；

选中蓝色则文本框中文字为蓝色（0,0,255）。

（文本框中的文字由你自己任意输入。

thisform.Text1.ForeColor=RGB（255,0,0）

thisform.Text1.ForeColor=RGB（0,255,0）

thisform.Text1.ForeColor=RGB（0,0,255）

thisform.Text1.ForeColor=RGB（255,0,0）

thisform.Text1.ForeColor=RGB（0,255,0）

thisform.Text1.ForeColor=RGB（0,0,255）

【15】本题素材为考生文件夹中的表单文件tk15.scx，表单运行后界面如下图所示：

该表单实现的功能是选中红色选项按钮，则文本框的背景颜色为红色（255,0,0）；

选中绿色则文本框的背景颜色为绿色（0,255,0）；

选中蓝色则文本框的背景颜色为蓝色（0,0,255）。

（文本框的文字由你任意输入。

thisform.backcolor=RGB（255,0,0）

thisform.backcolor=RGB（0,255,0）

thisform.backcolor=RGB（0,0,255）

【16】本题素材为考生文件夹中的表单文件tk16.scx，数据环境中已经添加了表tk16_rc.dbf。

表单运行效果如下图所示：

　　该表单程序可以实现以下功能：

单击command1文本框中可显示第一条记录、单击command2可显示上一条记录、单击command3可显示下一条、单击command4可显示最后一条记录。

完成下列操作以实现上述功能：

（1）设置文本框"

txt职称"

和"

txt工资现状"

的相关属性，使得文本框与表中相应字段绑定；

（2）分别在command1（第一条）、command2（上一条）、command3（下一条）、command4（最后一条）的click过程中编写程序实现上述功能。

（1）设置各文本框的ControlSource属性为它们各自对应的字段。

（2）

gotop

thisform.refresh

ifnotbof（）then

skip-1

thisform.refresh

ifnoteof（）then

skip

在Command4的Click事件中：

gobottom

【17】本题素材为考生文件夹中的表单文件tk17.scx，表单界面如下图所示，数据环境中已经添加了表tk17_xs.dbf。

（1）设置各文本框的相关属性，使得文本框为只读；

（1）设置各文本框的readonly属性为它们各自对应的字段。

【18】　　本题素材为考生文件夹中的表单文件tk18.scx，该表单实现的功能是从表“tk18_dz.dbf”中查询读者信息。

具体要求：

在文本框text1中输入读者姓名，单击命令按钮查询可以查找到该读者的记录信息，把性别显示在文本框text2中，籍贯显示在文本框text3中，如果找不到记录则弹出一个消息框显示“查无此人！

”

　　在按钮command1（查询）的click过程中编写程序实现上述功能。

　　表单运行效果图如下所示：

（1）将表tk18_dz.dbf添加到数据环境中。

（2）在Command1的Click事件中写如下程序：

xm=ALLTRIM（thisform.text1.Value）

LOCATEfor姓名=xm

IFFOUND（）

thisform.text2.Value=tk18_dz.姓名

thisform.text3.Value=tk18_dz.籍贯

MESSAGEBOX（"

查无此人"

【20】本题素材为考生文件夹下的tk20.scx，该表单的功能是统计数据表“tk20_作者.dbf”中相应职称的人数。

具体要求：

（1）单击“统计”按钮，统计出作者表中教授和副教授的人数，并将统计结果输出到相应的文本框中；

（2）单击命令按钮“退出”可释放该表单。

在统计按钮Command1的Click事件过程中编写如下程序：

countfor职称="

教授"

tom

副教授"

ton

thisform.text1.value=m

thisform.text2.value=n

由于文本框中开始没有任何数据，此时将数据型变量m的值赋给文本框text1，则text1自动变为数值型，所以不需要进行数据类型转换。

在退出按钮Command2的Click事件过程中编写如下程序：

thisform.release

【21】　　本题素材为考生文件夹中的表单文件tk21.scx。

　　该表单实现的功能是：

单击命令按钮command1（设置背景）可以设置label1的背景色为蓝色，单击命令按钮command2（放大字体）可使得label1的字号增加2号，例如label1的字号原为12号，单击放大字体后label1的字号为14号。

　　请分别在按钮command1和command2的click过程中编写代码以便实现上述功能。

thisform.label1.BackColor=RGB（0,0,255）

在Command2的Click事件中写如下程序：

thisform.label1.FontSize=thisform.label1.FontSize+2

【22】本题素材为考生文件夹下的tk22.scx，表单的功能是将输入的百分制成绩转换成五级制（优秀、良好、中等、及格、不及格）输出。

要求：

表单运行后，在文本框Text1中输入一个百分制成绩后，单击“判定等级”按钮，根据输入的成绩转换成相应的级别，在标签Label2处显示；

单击“清空”按钮后，会自动清除Text1和label2中的内容。

请为这2个命令按钮的Click事件编写对应的程序代码实现上述功能。

在对象Command1的Click事件过程中编写以下程序：

（10分）

fs=thisform.text1.value

DOcase

CASEfs>

=90

thisform.label2.Caption="

优秀"

=80

良好"

=70

中"

=60

及格"

OTHERWISE

不及格"

ENDCASE

在对象Command2的Click事件过程中编写以下程序：

（5分）

本表单中已预先设定文本框text1的值为数值型

thisform.text1.Value=0

thisform.label2.Caption="

"

【23】本题素材为考生文件夹下的tk23.scx，表单包括1个标签、1个命令按钮和1个计时器控件。

该表单运行时先以9号字体显示“预祝同学们顺利通过考试！

”字样，然后每隔一秒将字号放大一号，当达到30号字体时，又恢复成最初状态，即9号字体；

单击命令按钮“退出”可释放该表单。

在属性窗口设置Timer1的Interval为100。

（2分）

在对象Timer1的Timer事件过程中编写以下程序：

IFthisform.label1.FontSize<

30

thisform.label1.Fontsize=thisform.label1.Fontsize+1

thisform.label1.Fontsize=9

（3分）

【24】本题素材为考生文件夹下的tk24.scx，表单包括1个标签、1个命令按钮和1个计时器控件。

该表单的功能是文字从右向左移动，要求：

标签Label1每隔1秒自动从右向左移动5个像素单位，移到窗口左边界时标签回到窗口右边重新向左移动；

IFthisform.label1.Left>

thisform.label1.Left=thisform.label1.Left-5

thisform.label1.Left=thisform.Width

【25】本题素材为考生文件夹下的tk25.scx，表单包括1个标签、1个命令按钮和1个计时器控件。

该表单的功能是文字从上向下移动，要求：

标签Label1每隔0.5秒自动从上向下移动5个像素单位，移到窗口下边界时标签回到窗口上边重新向下移动；

在属性窗口设置Timer1的Interval为500。

在对象Timer1的Timer事件过程中编写如下程序：

IFthisform.label1.Top<

thisform.height

thisform.label1.Top=thisform.label1.Top+5

thisform.label1.Top=-thisform.label1.Height

在对象Command1的Click事件过程中编写如下程序：

【26】　　打开考生文件夹中的文件tk26.scx，该表单上有两个标签Label1、Label2和一个命令按钮Command1（命令按钮标题为“求和”），表单实现的功能是单击命令按钮后可计算1到100以内3的倍数的和，并用标签labe