vfp程序设计基础ppt课件.ppt

1 当今世界上两大计算机程序设计的方法面向过程的结构化程序设计 面向对象程序设计本章节为VFP的重点与难点部分注重理解 掌握结构 灵活运用 2 目录 7 1创建 修改和运行应用程序7 2VFP基本语法结构7 3数组7 4过程和用户自定义函数7 5变量的作用域7 6综合应用 3 7 1创建 修改和运行应用程序 7 1 1创建应用程序 3种方式 一 VFP系统菜单创建文件 新建 程序 创建新文件 注 创建的文件不在项目中二 项目管理器创建代码 程序 新建 注 创建的文件在项目中三 命令窗口直接输入方式Modifycommand 程序名 注 创建的文件在默认位置 注 程序的扩展名为 PRG 4 7 1 2修改程序 4种方式 一 VFP系统菜单文件 打开 选择程序二 项目管理器代码 选择程序 修改 注 该程序应在项目中三 命令窗口输入Modifycommand 程序名 注 该程序应在默认位置四 命令窗口输入Modifycommand 显示对话框 5 7 1 3运行程序 3种方式 一 VFP系统菜单程序 运行 显示对话框 选择程序二 项目管理器代码 选择程序 运行 注 该程序应在项目中三 命令窗口输入DO文件名 注 如果不指明文件的位置 则执行默认位置的程序 如果程序不在默认位置 必须加路径 例如 Dod 项目 p2 prg 6 7 2VFP基本语法结构 在程序设计语言中 程序控制是程序设计语言的精髓所在 在结构化程序设计中 程序一般采用3种结构组成 顺序结构条件分支结构循环结构 7 7 2 1程序中常用的命令1 最常用的屏幕输出命令 数据1 数据2 输出前先换行 数据1 数据2 接着上一行数据输出2 清除屏幕命令命令格式 CLEAR ALL 命令功能 清除屏幕注 使用ALL将不清除屏幕 而是释放所有内存变量 数组 用户定义的菜单和窗口 关闭所有打开的表 索引等文件 8 3 注释命令命令格式一 NOTE命令格式二 命令格式三 命令功能 注解 系统不对其作语法检查注 NOTE和 必须写在每一行的开头 可以写在每一行的开头 也可以写在命令的后面 9 4 运行中断和结束命令命令格式一 QUIT功能 关闭所有文件 并结束VFP系统的运行 返回到Windows桌面 命令格式二 CANCEL功能 终止程序的执行 返回到命令窗口 命令格式三 RETURN功能 结束所在程序的执行5 赋值命令命令格式 STORETO变量1 变量2 功能 将数据存入变量 数组 数组元素中 10 5 常用系统状态设置命令Settalkon off 默认是on 是否在屏幕上显示命令执行的响应信息Setescapeon off 默认是允许 是否允许用户用 Esc 键取消程序的执行 Setdeletedon off 默认是允许 是否允许使用做了逻辑删除的记录Setdefaultto 指定默认的盘符和路径Setconsoleon off设置是否将输出信息在窗口上显示 11 程序交互命令1 等待命令WAIT格式 WAIT 提示信息 TO WINDOW AT TIMEOUT 功能 程序执行到该命令时 显示 提示信息 然后等待用户从键盘上输入一个字符 并将该字符输入到指定的内存变量中 例 wait 按任意键继续 timeout6 超过6秒系统终止该命令的执行 执行下面的命令 wait 按任意键继续 按任意键终止该命令的执行 执行下面的命令 wait 按任意键继续 window 显示一个窗口 其中有提示信息 wait 按任意键继续 windowat5 10 指定窗口的位置 12 2 输入命令INPUT格式 input 提示信息 TO功能 暂停程序运行 等待键盘输入数据 当键入回车符后 继续执行下面的命令 可以输入数值型数据 也可以输入字符型数据 字符型数据必须加引号 例 input 输入数据 tovname 接受命令ACCEPTACCEPT 提示信息 TO只能接受字符型数据 输入时不需要加引号 13 7 2 2顺序结构程序设计按语句排列的先后顺序 依次逐条执行 例7 1 显示学生表中任意一个学生的姓名和系名ClearUsexsInput 输入记录号 torGor xh xmusereturn 14 例7 2程序运行结果 input entera toainput enterb tob a ltrim str a b ltrim str b c aa bb c a ltrim str a b ltrim str b 输入 给a 输入 给b显示 a 3b 4a 4b 3 15 7 2 3分支结构程序设计条件分支根据条件的测试结果执行不同的操作 2种命令 IF ELSE ENDIFDOCASE ENDCASE一 IF ELSE ENDIF格式 IF条件表达式命令组ENDIF IF条件表达式命令组1ELSE命令组2ENDIF 当条件表达式结果为 T 时 执行命令组1 当条件表达式结果为 F 时 执行命令组2 执行完组1或组2后 执行ENDIF后面命令 通常 使用于只有两个分支的情况 当条件表达式结果为 T 时 执行命令组 执行完 执行ENDIF后面命令 当条件为 F 时 执行ENDIF后面命令 16 例7 if 输出2个数中大的数input entera toainput enterb tobifa b 大的数是 aelse 大的数是 bendif 17 If嵌套IF条件表达式命令组1ELSE命令组2ENDIF这里的命令组还可以是if语句 编程计算分段函数 Input enterx toxIfx 0y 1elseifx 0y 0elsey 1endifendif y 18 二 DOCASE ENDCASE格式 DOCASECASE条件表达式1命令序列1CASE条件表达式2命令序列2 OTHERWISE其他命令序列 ENDCASE 从第一个CASE开始 判断条件表达式的值是否为 T 当遇到第一个结果为 T 的CASE表达式 就执行它后面的命令序列然后执行ENDCASE后面的命令 若所有CASE表达式都为 F 则执行OTHERWISE后面的命令序列 通常 用于多于两个分支的情况 19 20 例7 case 根据分数输出等级 cj 90输出 优 75 cj 90输出 良 60 cj 75输出 合格 cj 60输出 不合格 input 输入成绩 tocjdocasecasecj 90 优 casecj 75 and cj 60 and cj 75 合格 otherwise 不合格 endcase 21 分支结构程序举例 1 编写程序 实现功能为 判断一个数的奇偶性 INPUT 请输入数据 TOCIFC 2 1 STR C 是奇数 ELSE STR C 是偶数 ENDIF 22 2 求一元二次方程的根 Input a toaInput b tobInput c tocd b 2 4 a cIfd 0 x1 b sqrt d 2 ax2 b sqrt d 2 a 该方程的解为 x1 x1 x2 x2Else 该方程无实数解 Endif ax2 bx c 0判别式d b2 4ac 0 x1 x2 23 7 2 4循环结构程序设计循环是重复执行一组语句若干次 其中被循环执行的一组语句称为循环体 在VFP中 实现循环的语句主要有三种 FOR ENDFORDOWHILE ENDDOSCAN ENDSCAN 24 一 FOR ENDFOR语句格式 FOR循环变量 初值TO终值 STEP步长值 循环体ENDFORFOR循环的执行过程如下 将初值赋给循环变量 判断循环变量的值是否超出终值 若超出终值 结束循环 执行ENDFOR后命令 若未超出终值 执行语句组 循环变量 循环变量 步长值 转到 重复上述 步骤 25 例计算1 100之间所有的自然数和 1 2 3 100s 0fori 1to100step1s s iendfor s说明 该语句主要使用于给定次数的循环 循环开始语句为FOR 结束语句为ENDFOR 若 step步长 不写 默认步长为1 26 多项式求和是基本算法例 1 3 5 991 2 10 1 1 2 1 3 1 1002 1 3 2 5 3 8 5 前20项的和 sum sum 27 例 计算一个字符串中包括多少个汉字 基本算法 从字符串中依次取一个字符 如果其ASCII码值大于127 则为一个汉字内码的第一个字节 clearcstring 学习VisualFoxPro数据库管理系统 ncount 0fori 1tolen cstring ifasc substr cstring i 1 127ncount ncount 1i i 1endifendfor 汉字个数为 ncount 28 二 DOWHILE ENDDO语句格式 DOWHILE循环体ENDDO执行过程如下 先判断 值为 T 则执行循环体 否则出循环 执行ENDDO下面语句说明 当循环次数未知 需根据某一条件决定是否循环时使用 循环体中一般须存在能改变循环条件的语句 用于能正常退出循环 29 例计算10的阶乘 S 1N 1Dowhilen 10s s nn n 1Enddo s 用for循环完成 s 1forn 1to10step1s s nendfor s 30 例计算1 100的偶数和与奇数和cleareven 0odd 0i 1dowhilei 100ifi 2 0even even ielseodd odd iendifi i 1enddo 偶数和 even 基数和 odd 31 例将十进制数转换成二进制数表示 算法 除2取余 先得到的余数是低位 后得到的余数是高位 cleard int rand 100 1 dbinary space 0 dowhiled 0b d 2binary str b 1 binaryd int d 2 enddo binary 32 例7 a将所输入的字符串倒序输出 input inputastring tochi 1mch Dowhilei len ch mch substr ch i 1 mchi i 1enddo mch 33 例 分析程序运行的结果Fori 1to5forj 1to4 Str i j endfor endfor 循环嵌套 34 Fori 1to5 Space 10 i fork 1to2 i 1 endfor endfor 例 输出菱形图案 控制每行的 个数控制每行的 起始位置 35 三 基于表的循环命令SCAN ENDSCAN格式 SCAN NOOPTIMIZE 范围 FOR条件 WHILE条件 循环体ENDSCAN说明 该语句主要用于对表中记录进行处理 SCAN命令自动将记录指针移到下一条满足条件的记录 并执行循环体 NOOPTIMIZE 禁用Rushmore技术 优化数据访问技术 范围 可用ALL NEXTn RECORDn REST等 限定扫描记录的范围 FOR条件 限定对所有满足条件的记录进行操作 WHILE条件 限定对所有连续满足条件的记录进行操作 36 例7 9逐条显示xs表中的记录clearusexsscandispinkey 0 6 延时0 6秒endscan 37 例逐条显示cj表中成绩大于80分的记录clearusecjscanforcj 80dispinkey 0 6 endscan 38 例 逐条显示xs表中第10条记录内的偶数行记录clearusexsscanforrecno 2 0whilerecno 10 0dispinkey 0 6 Endscan显示第2 4 6 8条记录 注意 改写如下scanforrecno 2 0andrecno 10 39 下列两段程序结果是否一致 Usexsn 0Scanalln n 1skip1Endscan n usexsn 0Dowhilenoteof n n 1skip1Enddo n 不同 Scan命令会自动将记录指针后移 Dowhilenoteof 不会移记录指针如果xs有16个记录 前者输出8 后者输出16 40 四 循环结构中的LOOP命令与EXIT命令1 如果在循环体中 执行到LOOP语句 将跳过LOOP语句与循环出口之间的所有语句 返回到循环入口的语句 进行下一次循环 2 如果在循环体中 执行到EXIT语句 则跳出循环 比较2个程序 fork 1to10ifk 2 0loopendif kendfor fork 1to10ifk 2 0exitendif kendfor 显示13579 显示1 41 例 信用卡身份密码安全检测 允许最多出错3次 否则吞卡 ma 12345 预留密码n 0 密码输入次数dowhile t Input pleaseinputyourpassword toxIfx ma welcome exit 完成业务 退出elsen n 1ifn 3loop 允许继续输入密码else warn 吞卡 exit 不允许继续输入密码endifendifenddo 42 7 3数组 数组由若干元素组成 属于内存变量 数组必须先定义 后使用 一 数组的声明1 DIMENSION数组名 行 列 私有数组2 DECLARE数组名 行 列 私有数组3 PUBLIC数组名 行 列 全局数组4 LOCAL数组名 行 列 局部数组 43 例 DIMENSIONa 5 b 2 3 也可以用圆括号DIMENSIONa 5 b 2 3 a数组有5个元素 b数组有6个元素 系统给a数组和b数组连续的存储空间 44 数组的逻辑结构 数组的存储结构 45 二 为数组元素赋值DIMENSIONa 2 4 a 1 2 2 或a 1 2 2a 5 给a数组所有元素赋值5a 2 3 t a 2 1 a 5 100 即a 2 1 100注意 数组在声明后 每个元素默认地赋予 F listmemorylikea显示a数组所有元素值 46 例 分析程序运行结果dimea 10 fori 1to10a i i iendforfori 1to10 a i endfor 47 例 产生10个 10 90 之间的随机整数 找出最大的数 cleardimea 10 fori 1to10a i int rand 81 10 a i endfornmax a 1 fori 2to10ifnmax a i nmax a i endifendfor max allt str nmax 48 三 在数组与表之间传送数据1 SCATTERTO将当前表当前记录的数据存入数组 可以是未定义的新数组 也可以是已定义的数组 clearusexsgo2scattertoalistmemorylikea 49 2 GATHERFROM将数组中的记录存入当前记录cleardimensiona 5 usexsgo2a 1 00001 a 2 张三 a 3 男 a 4 102002 a 5 计算机科学 gatherfroma 比较前后2个表的数据 50 3 COPYTOARRAY将当前表中所有记录存入2维数组cleardimena 5 5 usexscopytoarrayafori 1to3 forj 1to5 a i j nextendforlistmemorylikea 51 4 APPENDFROMARRAY用数组中的数据在表中添加记录 2维数组同样 cleardimensiona 5 usexsa 1 00002 a 2 李民 a 3 男 a 4 102002 a 5 计算机科学 appendfromarraya 52 5 SELECTFROMINTOARRAYSELECT SQL语言 可以传输查询结果到数组中 clearDimensions 5 4 selectxs xh xm kc kcm cj cj fromjxsjk xs jxsjk kc jxsjk cj wherexs xh cj xhandkc kcdh cj kcdh orderbyXs xh Intoarrayslistmemorylikes dispmemorylikes 53 6 INSERTINTOFROMARRAYINSERT SQL语言 向表中添加一条新记录 并以数组中的数据填充这条记录 Dimensions 2 5 S 1 1 001 S 1 2 李力 S 1 3 男 S 1 4 a01 S 1 5 英语 S 2 1 002 S 2 2 王可 S 2 3 男 S 2 4 a01 S 2 5 英语 Insertintoxsfromarrays 54 四 处理数组元素 可以用如下函数处理数组元素 1 数组元素的排序ASORT 格式 ASORT 数组名 起始位置 排序个数 排序方法 例 排序cleardimensiona 10 fori 1to9step2a i inextfori 2to10step2a i inextlistmemorylikeaasort a listmemorylikea asort a 3 1 1 从第3个到最后一个 降序排 第4个参数0表示升序 1表示降序asort a 升序 55 例 搜索cleardimensiona 2 5 a 1 1 00003 a 1 2 王民 a 1 3 男 a 1 4 102003 a 1 5 计算机科学 a 2 1 00004 a 2 2 李克 a 2 3 男 a 2 4 102002 a 2 5 计算机科学 setexacton ascan a 李克 1 10 显示 7 说明 ascan a 李克 1 10 表示在数组a中 从第1个元素到第10个元素查找 与 李克 相同的元素 函数值为元素下标setexacton设置字符串精确匹配 2 数组元素的搜索ASCAN 格式 ASCAN 数组名 表达式 起始位置 查询个数 56 例 删除cleardimensiona 2 5 a 1 1 00003 a 1 2 王民 a 1 3 男 a 1 4 102003 a 1 5 计算机科学 a 2 1 00004 a 2 2 李克 a 2 3 男 a 2 4 102002 a 2 5 计算机科学 adel a 1 listmemolikea 结果 删除第1行 第2行向前补 最后一行填入 F adel a 1 2 是删除第1列 后面的4列向前移 最后一列填 F 对于一维数组来说是删除一个元素 3 元素的删除ADEL 格式 adel 数组名 元素位置 2 可以删除一维数组中的一个元素或二维数组中的一行或一列 57 例 插入cleardimensiona 3 5 a 1 1 00003 a 1 2 王民 a 1 3 男 a 1 4 102003 a 1 5 计算机科学 a 2 1 00004 a 2 2 李克 a 2 3 男 a 2 4 102002 a 2 5 计算机科学 ains a 2 listmemolikea 结果 插入第2行 原第2行向下移 第2行填入 F ains a 3 2 是插入第3列 后面的列向右移 第3列填 F 对于一维数组来说是插入一个元素 4 插入AINS 格式 AINS 数组名 元素位置 2 可以插入一维数组中的一个元素或二维数组中的一行或一列 58 用数组对数据排序例选择法排序 升序排列 算法说明 在a i a 10 中找最小的 放到a i 中 i 1to9 cleardimea 10 fori 1to10a i int rand 90 10 a i Endfor fori 1to9k iforj i 1to10ifa k a j k jendifendfort a i a i a k a k tendforfori 1to10 a i Endfor 在a i a 10 中找最小的 下标放在k中 a i 与a k 交换数据 59 例 冒泡法排序 10个数按从小到大顺序排 cleardimea 10 fori 1to10a i int rand 90 10 a i endfor fork 9to1step 1fori 1tokifa i a i 1 t a i a i a i 1 a i 1 tendifendforendforfori 1to10 a i endfor 算法说明 相邻两个数比较 小的数放到前面 大的数放到后面 i 1tok k 9 8 7 1 Ifa i a i 1 t a i a i a i 1 a i 1 t 60 7 4过程和用户自定义函数 把多次重复使用的 具有某种功能的一段代码独立出来 创建一个过程或自定义函数 供其它程序调用 该程序段称为子程序 VFP中的过程或用户自定义函数属于子程序 子程序是结构化程序设计的主要特点 一个应用程序的许多功能可以编写成一个个独立的程序段 供其它程序调用 61 用户自定义函数的存储存储于独立的程序文件中或主程序的底部 但不能把可执行的主程序代码放在过程和函数之后 存储于过程文件中 如果创建的过程或函数是用来处理数据库中的表 可以将过程存储于数据库的存储过程中 62 过程和用户自定义函数的创建与调用1 过程的定义PROCEDURE PARAMETER 形式参数ENDPROC2 函数的定义FUNCTION PARAMETER 形式参数ENDFUNC 63 调用过程或函数过程方式调用DO过程名 with参数 实际参数函数方式调用函数名 参数 实际参数 注 过程方式和函数方式都可以调用过程及函数 64 显示 clear 调用函数 f1 调用函数 定义函数functionf1 运行函数 endfunc 65 例 定义一个函数ntoc 当传递给一个0 9之间的阿拉伯数字时 返回 A J 中对应一个英文字母 functionntocparameterxsource ABCDEFGHIJ result substr source x 1 1 returnresultEndfunc要求写主程序调用 66 参数传递1 向过程或函数传递参数定义时参数写法 形参 在PROCEDURE或FUNCTION命令后的第一个可执行语句必须是PARAMETERS语句 格式 PARAMETERS 形参 用逗号隔开调用时参数写法 实参 用WITH子句传参数DOWITH 实参 用逗号隔开 函数调用方式 参数表 67 用自定义函数完成clear Area 3 5 m 4n 5 Area m n FunctionareaParametersx yS x yReturnsendfunc 用过程完成clearDoAreawith3 5m 4n 5DoAreawithm nProcedureareaParametersx yS x y SEndproc 例 求矩形面积 68 2 参数传递的两种方式 按引用传递 地址传递方式 地址传递方式 是将作为实参变量的地址传递给被调程序的形参 地址传递时 主调程序的实参与被调程序的形参使用相同的存储器地址 一旦当形参的值发生改变 则实参的值也随之改变 按值传递将实参的值直接传送给被调程序的形参 当被调程序的形参的值发生变化时 实参原来的值不变化 用DO命令调用过程或函数默认情况下是引用传递 函数方式调用 默认是按值传递 69 例 DO方式调用自定义函数 地址传递 p 2 Pdoudfwithp Pfunctionudfparametersqq q 10 q qendfunc运行结果 2q 2020 例 函数方式调用自定义函数 值传递 p 2 Pudf p p pfunctionudfparametersqq q 10 q qendfunc运行结果 2q 20p 2 70 例 DO方式调用自定义过程 地址传递 p 2 Pdoudfwithp Pprocudfparametersqq q 10 q qendproc运行结果 2q 2020 例 函数表达式方式调用自定义过程 值传递 p 2 Pudf p p Pprocudfparametersqq q 10 q qendproc运行结果 2q 20p 2 71 3 改变传递方式有2种方法可以改变默认的参数传递方式 用SETUDFPARMSTO命令主程序中 在调用用户自定义函数或过程前 若先执行SETUDFPARMSTOREFERENCE则 设置为按引用 地址传递方式 若先执行SETUDFPARMSTOVALUE则 设置为按值传递方式 使用 来强制采用地址传递方式函数方式调用时 用括号括起一个变量 则设定按值传递 在一个实参变量前加 符号 可以设定以引用传递方式传递 72 clearp 2 p Pudf p p Pprocudfparametersqq q 10 q qendproc 结果 p 2q 20p 20 程序 73 函数的返回值用RETURN命令将值返回 一次只能返回一个数据 命令格式 RETURN 表达式 TOMASTER TO过程名 功能 RETURN表达式 返回一个值给调用程序 RETURNTOMASTER 直接返回到主程序 RETURNTO过程名 返回到指定的过程 省略RETURN 其缺省的返回值为真 T 74 子程序调用的流程 主程序 子程序f1 子程序f2 调用f1 调用f2 75 注 substr cString p 2 1 2 在cString中 从第p 2 1位置开始 取2个 FUNCTIONntocPARAMETERSpcString 零一二三四五六七八九 RETURNsubstr cString p 2 1 2 ENDFUNC 例7 20输入一个0 9的数字返回一个中文的零 九 Cleardowhile t Input pleaseinput0 9 totift9return 返回到上级程序中endif ntoc t enddo 76 注 子程序子程序是结构化程序设计的主要特点一个应用软件由一个主程序多个子程序组成主程序可以调用子程序子程序还可以调用子程序 VFP允许嵌套的DO调用层数为128层 77 7 5变量的作用域 一个应用程序一般包含多个程序模块 在各程序模块中要使用变量和数组 根据变量和数组在程序模块中作用范围不同 可将变量和数组分为三类 全局 局部和私有 类型作用域全局变量和数组任何程序模块局部变量和数组只限于其创建模块中私有变量和数组只限于其声明模块及下层模块中 78 变量的声明全局PUBLIC局部LOCAL私有PRIVATE例如 PUBLICa b 注 1 在程序中未用上述命令指定的变量默认为私有变量 2 在命令窗口中创建的变量或数组被自动赋予全局属性 79 clearpublica ca 篮球 b 足球 c 排球 f a b functionflocalba 网球 b a c bendfun 网球排球网球足球 结果 例如 80 7 6综合应用 例7 21输入一个数字 0 6 用中英文显示星期几 ClearInput 输入数字 0 6 tondocasecasen 1m 星期一 Monday casen 2m 星期二 Tuesday casen 3m 星期三 Wednesday casen 4m 星期四 Thursday casen 5m 星期五 Friday casen 6m 星期六 Saturday casen 0m 星期日 Sunday OTHERWISEm 重新输入 endcase 数字 ltrim str n 是 m 81 例7 2330个人在饭店用餐 其中有男人 女人和小孩 每个男人花了3个先令 每个女人花了2个先令 每个小孩花了1个先令 一共花去50个先令 问男人 女人和小孩各有多少人 clearforx 1to16fory 1to24z 30 x yif3 x 2 y z 50 x y zendifendforendfor 假设男人有x个女人有y个小孩有z个则x y z 303x 2y z 50 82 例7 24一个班有50个同学 要随机地抽出10个同学组成 计算机兴趣小组 编制程序如下 ClearDimestudent 10 Fori 1to10 x int rand 50 1k 0forj 1toi 1ifx student j i i 1k 1exitendifendfor Ifk 1loopendifstudent i xendfor 计算机兴趣小组 Fori 1to10 student i Endforreturn 产生随机数 去掉相同数 83 例7 25 打印杨辉三角形的前8行 cleardimea 8 8 fori 1to8a i i 1a i 1 1endforfori 3to8forj 2toi 1a i j a i 1 j a i 1 j 1 endforendfor 111121133114641151010511615201561172135352171 fori 1to8forj 1toi Substr str a i j 6 endfor endfor 84 例7 27 求方阵的两个对角线元素和 clearpublica 3 3 矩阵 fori 1to3forj 1to3a i j int rand 50 str a i j 5 endfor endfor s1 0fori 1to3s1 s1 a i i endfors2 0fori 1to3s2 s2 a i 4 i endfor 主对角元素之和 str s1 5 次对角元素之和 str s2 5 85 例 设计一个8进制变10进制转换器 inputtonC alltrim str n x 0fori 1tolen c x x 8 val substr c i 1 endfor x 86 VFP二级考试笔试题 2002年 秋 VFP二级考试笔试28 执行下列程序段后 显示的结果是 SETTALKOFFA 2018 00B 18 00C 20 00D 错误信息 87 2002年 秋 VFP二级考试笔试7 已知学生表 XS DBF 第一条记录内容如下 XH字段值为 990101 XM的字段值为 李林 XB字段值为 男 CSRQ字段值为 08 23 82 XIMING字段值为 信息管理系 设系统日期为2002年10月12日 则下列命令执行后 M N MN的值分别为 USEXSM ALLTRIM XM SPACE LEN XB ALLTRIM XIMING N YEAR DATE YEAR CSRQ NJ SUBSTR XH 1 2 NN YEAR DATE 1900 VAL NJ MN IIF MONTH DATE 9 STR NN 1 2 年级 STR NN 2 年级 M 李林信息管理系 N 2002 1982 20Nj 99NN 2002 1900 99 3MN 4年级 注 MN STR NN 1 2 88 9 运行下面的程序段后 运行结果是 SETTALKOFFSTORE4TON S N FUNCTIONSPARAMETERSXY 1P 0FORI 1TOXY Y IP P YENDFORRETURNPENDFUNC 答案 331 1 2 1 2 3 1 2 3 4 33 89 15 已知学生表 XSB DBF 中的数据如下 记录号学号姓名性别出生日期系名代号1000104王凯男09 02 82022000101李兵男04 09 83023000103刘华女10 06 82024000102陈刚男12 09 82025000106胡媛媛女09 08 82026000105张一兵男02 06 8302则依次执行下列命令后 屏幕上显示的结果是 USEXSBSETORDERTOXSXHGOTOPSKIP RECNO GOBOTTOM RECNO