Visual FoxPro阅读题目.docx

Visual FoxPro阅读题目统计（计数）问题（查记录条数、满足条件计数的问题）题目：统计表中满足条件的记录数，如统计“男”同学的人数，并显示结果。程序1：set talk offuse 学生count to k for 性别=“男”？kset talk onreturn程序1：关闭人机对话打开学生表（指针指向top）统计“男”记录数保存变量k中显示k的值打开人机对话返回到命令窗口程序2：set talk offuse 学生calculate count（）to k for 性别=“男”？kset talk onreturn程序2：关闭人机对话打开学生表（指针指向top）利用calculate命令统计“男”记录数保存变量k中显示k的值打开人机对话返回到命令窗口程序3：set talk offsele cnt（*）from 学生 where性别=“男” into array k？K（1） ？K（1，1）set talk onreturn程序3：关闭人机对话用sql命令统计“男”记录数保存到数组变量k中显示数组元素k（1）的值（k（1）和k（1，1）等价） 打开人机对话返回到命令窗口*cnt（）和count（）等价，功能：统计记录数程序4：set talk offsele cnt（*）from 学生 where性别=“男” into table k？cntset talk onreturn程序4：关闭人机对话用sql命令统计“男”记录数保存到永久表k中显示表字段cnt的值（注意字段名）打开人机对话返回到命令窗口*cnt（）和count（）等价，功能：统计记录数程序5：set talk offuse 学生k=0do while .not.eof（） if 性别=“男” k=k+1 endif skipenddo？kset talk onreturn程序5：利用循环，逐条记录判断条件来统计关闭人机对话打开学生表（指针指向top处，即第一行）给变量k赋值0做循环（条件是指针没有指向表尾，执行循环体）对当前记录判断条件，若满足条件变量k增加1（相当于记数）结束判断指针下移再返回到not eof（）条件处判断...是否执行循环体结束循环后，显示变量k的值打开人机对话返回到命令窗口**变量k的值就是记载“男”的人数程序6：set talk offclearuse 学生k=0locate for 性别=“男”do while.not. eof（） k=k+1 continueenddo？kset talk onreturn程序6：locate...for continue配合关闭人机对话清屏幕信息打开学生表（指针指向top处，即第一行）给变量k赋值0查询：指针指向第一个性别为 “男”同学的记录上做循环（条件是指针没有指向表尾，执行循环体）变量k增加1（相当于记数）移动指针到下一个满足条件的记录上(有两种可能，有和无)返回到not eof()条件处判断决定是否执行循环体结束循环后，显示变量k的值打开人机对话返回到命令窗口程序7：set talk offuse 学生k=0do while .t. if eof（） exit endif if 性别=“男” k=k+1 endif skipenddo？Kset talk onreturn程序7：关闭人机对话打开学生表（指针指向top处，即第一行）给变量k赋值0do while 做循环（条件是.t.成立）若指针指向表尾，即eof（）函数的值为.T.执行exit语句，退出循环，执行？k语句否则：判断当前记录性别要是“男”变量k增加1（相当于记数）结束判断指针下移enddo返回到.t.条件处判断，执行循环体...结束循环后，显示变量k的值打开人机对话返回到命令窗口程序8：set talk offuse 学生k=0i=1do while i=reccount（） if 性别=“男” k=k+1 endif skip i=i+1enddo？kset talk onreturn程序8：关闭人机对话打开学生表（指针指向top处，即第一行）给变量k赋值0给变量i赋值1do while 做循环（条件是i=总记录数值）若判断当前记录性别为“男”时变量k增加1（相当于记数）结束判断指针下移i增1enddo返回到条件i=总记录数值处判断，是否执行循环体结束循环后，显示变量k的值打开人机对话返回到命令窗口程序9：set talk offuse 学生K=0go bottomdo while .not.eof（） if=性别“男” k=k+1 endif skip -1enddo？kreturn程序9：逆向指针移动，从