vfp综合应用题.docx

vfp综合应用题.docx

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

vfp综合应用题

一、在表单设计器中，建立一个名为“myform”的表单文件。

建立一个名为“cmdYes”的命令按钮，其Caption属性为“计算”，再建立另一个名为”cmdNo“的命令按钮，其Caption属性为“关闭”。

二、双击“计算”命令按钮，对其进行编程操作，即Click事件代码:

usescore

replaceall学分with0&&把所有的学分字段进行清0操作

gotop

dowhile.not.eof（）

if物理>=60then&&如果物理成绩大于等于60，置物理学分值

replace学分with学分+2

endif

if高数>=60then&&如果高数成绩大于等于60，置高数学分值

replace学分with学分+3

endif

if英语>=60then&&如果英语成绩大于等于60，置英语学分值

replace学分with学分+4

endif

skip

enddo

*生成一个新的表xf，该表只包括学号和学分两个字段落。

*按学分升序排序，如果学分相等，则按学号降序排序。

sorton学分,学号/dtoxf

list

use

三、双击“关闭”命令按钮，对其进行编程操作，即Click事件代码:

thisform.release&&关闭表单

1.单击“文件\新建”命令项。

2.在“新建”对话框中选择“菜单”单选钮，再按“新建文件”按钮。

3.在“新建菜单”对话框中选择“菜单”按钮，在菜单设计器中的“菜单名称”中输入“计算”和“退出”。

4.在“计算”菜单的“结果”中选择“过程”并输入相应的程序。

settalkoff

setsafetyoff

select1

usestock_fk

zap&&表内容清空，保证结果的正确性

appendfromstock_sl

select2

usestock_sl

indexon股票代码tosl

select1

setrelationto股票代码intob&&设置关联表

replaceall浮亏金额with（b->现价-b->买入价）*b->持有数量for股票代码=b->股票代码&&计算浮亏金额

deletefor浮亏金额>0

pack

replaceall浮亏金额with-浮亏金额

sum浮亏金额tom_je

copystrutostock_z

closeall

usestock_z

appendblank

replace浮亏金额withm_je

list&&显示结果

setsafetyon

settalkon

5.在“退出”菜单的“结果”中选择“命令”并输入命令setsysmenutodefault，这样程序就可以终止运行了。

一、在表单设计器中，建立一个名为“form_my”的表单文件。

建立一个名为“cmdYes”的命令按钮，其Caption属性为“统计”，再建立另一个名为“cmdNo”的命令按钮，其Caption属性为“关闭”。

二、双击“统计”命令按钮，对其进行编程操作，即Click事件代码:

settalkoff

usescore_fs

gotop

dowhilenoteof（）

store0tors,pjf

if物理>0then

pjf=物理

rs=1

endif

if高数>0then

pjf=pjf+高数

rs=rs+1

endif

if英语>0then

pjf=pjf+英语

rs=rs+1

endif

replace平均分withpjf/rs

skip

enddo

gotop

sorton平均分/d,学号field学号,平均分topjf

usepjf

list

wait

closall

settalkon

三、双击“关闭”命令按钮，对其进行编程操作，即Click事件代码:

thisform.release&&关闭表单

1.单击“文件\新建”命令项。

2.在“新建”对话框中选择“菜单”单选钮，再按“新建文件”按钮。

3.在弹出的“新建菜单”对话框中选择“菜单”按钮，在菜单设计器中的“菜单名称”中输入“计算”和“退出”。

4.在“计算”菜单的“结果”中选择“过程”并输入相应的程序。

settalkoff

setsafetyoff

select2

usestock_cc

zap

indexon股票代码tocc

select1

usestock_mm

indexon股票代码tomm

dowhilenoteof（）

select2

seeka->股票代码

ifnotfound（）

appendblank

replace股票代码witha->股票代码

endif

ifa->买卖标记then

replace持仓数量with持仓数量+a->本次数量

else

replace持仓数量with持仓数量-a->本次数量

endif

select1

skip

enddo

select2

sorton持仓数量tocc1

usecc1

copynext1tostock_x

usestock_x

list

closeall

wait

settalkon

setsafetyon

5.在“退出”菜单的“结果”中选择“命令”并输入命令setsysmenutodefault，这样程序就可以终止运行了。

一、在表单设计器中，建立一个名为“form_my”的表单文件。

建立一个名为“cmdYes”的命令按钮，其Caption属性为“统计”，再建立另一个名为“cmdNo”的命令按钮，其Caption属性为“关闭”。

二、双击“统计”命令按钮，对其进行编程操作，即Click事件代码:

settalkoff

setsafetyoff

closeall

select2

usekecheng

indexon课程号tokc

select1

usechengji

dowhilenoteof（）

select2

seeka->课程号

if最高分成绩then

replace最高分witha->成绩,学号witha->学号

endif

select1

skip

enddo

select2

sorton最高分/dtojianglifield课程名,最高分

usejiangli

list

closeall

wait

setsafetyon

settalkon

三、双击“关闭”命令按钮，对其进行编程操作，即Click事件代码:

thisform.release&&关闭表单

1.单击“文件\新建”命令项。

2.在“新建”对话框中选择“菜单”单选钮，再按“新建文件”按钮。

3.在“新建菜单”对话框中选择“菜单”按钮，在菜单设计器中的“菜单名称”中输入“计算”和“退出”。

4.在“计算”菜单的“结果”中选择“过程”并输入相应的程序。

settalkoff

setsafetyoff

select2

usestock_mm

indexon股票代码tomm

select1

usestock_cs

zap

indexon股票代码tocs

select2

setfilterto买卖标记

gotop

dowhilenoteof（）

select1

seekb->股票代码

ifnotfound（）then

appendblank

replace股票代码withb->股票代码

endif

replace买入次数with买入次数+1

if最高价单价then

replace最高价withb->单价

endif

select2

skip

enddo

select1

sorton买入次数/dtocs1

usecs1

copynext1tostock_x

usestock_x

list

wait

closeall

settalkon

setsafetyon

5.在“退出”菜单的“结果”中选择“命令”并输入命令setsysmenutodefault，这样程序就可以终止运行了。

一、在表单设计器中，建立一个名为“form_stu”的表单文件。

建立一个名为“cmdYes”的命令按钮，其Caption属性为“统计”，再建立另一个名为“cmdNo”的命令按钮，其Caption属性为“关闭”。

二、双击“统计”命令按钮，对其进行编程操作，即Click事件代码:

settalkoff

select1

usechengji

select2

usexuesheng

indexon学号toxs

gotop

dowhilenoteof（）

select1

setfilterto学号=b->学号

average成绩tocj

select2

replace平均分withcj

skip

enddo

gotop

sorton平均分,学号topingjun

usepingjun

list

wait

closeall

settalkon

三、双击“关闭”命令按钮，对其进行编程操作，即Click事件代码:

thisform.release&&关闭表单

1.单击“文件\新建”命令项。

2.在“新建”对话框中选择“菜单”单选钮，再按“新建文件”按钮。

3.在“新建菜单”对话框中选择“菜单”按钮，在菜单设计器中的“菜单名称”中输入“计算”和“退出”。

4.在“计算”菜单的“结果”中选择“过程”并输入相应的程序。

settalkoff

setsafetyoff

select1

usezhicheng

indexon职称代码tozc

select2

useyuangong

dowhilenoteof（）

select1

seekb->职称代码

select2

replace新工资with工资*（1+a->增加百分比/100）

skip

enddo

list

wait

closeall

settalkon

setsafetyon

5.在“退出”菜单的“结果”中选择“命令”并输入命令setsysmenutodefault，这样程序就可以终止运行了。

一、在表单设计器中，建立一个名为“form_stu”的表单文件。

建立一个名为“cmdYes”的命令按钮，其Caption属性为“计算”，再建立另一个名为“cmdNo”的命令按钮，其Caption属性为“关闭”。

二、双击“计算”命令按钮，对其进行编程操作，即Click事件代码:

settalkoff

usescore1

dowhilenoteof（）

jf=0

docase

case三好生

jf=20

case优秀干部

jf=10

case少数民族

jf=5

endcase

replace总成绩with考试成绩+jf

skip

enddo

sorton总成绩,学号tozcjfield学号,总成绩

usezcj

list

wait

closeall

settalkon

三、双击“关闭”命令按钮，对其进行编程操作，即Click事件代码:

thisform.release&&关闭表单

1.单击“文件\新建”命令项。

2.在“新建”对话框中选择“菜单”单选钮，再按“新建文件”按钮。

3.在“新建菜单”对话框中选择“菜单”按钮，在菜单设计器中的“菜单名称”中输入“计算”和“退出”。

4.在“计算”菜单的“结果”中选择“过程”并输入相应的程序。

settalkoff

usezhiban

ye=每天加班费

skip

zy=每天加班费

useyuangong

replaceall加班费withye*夜值班天数+zy*昼值班天数

sorton加班费/d,职工编码field职工编码,姓名,加班费tostaff_d

closeall

settalkon

5.在“退出”菜单的“结果”中选择“命令”并输入命令setsysmenutodefault，这样程序就可以终止运行了。