Visual FoxPro程序设计基础实例.doc

37 V Visualisual F FoxoxP Proro程序设计基础实例程序设计基础实例 表文件表文件 CJ DBF 情况 情况 学生成绩数据库的表文件学生成绩数据库的表文件cj dbf 结构为 结构为 字段名字段名 字段类型字段类型 宽度宽度 小数位小数位 学号学号 字符型字符型 6 姓名姓名 字符型字符型 10 英语英语 数值型数值型 6 2 高等数学高等数学 数值型数值型 6 2 计算机应用计算机应用 数值型数值型 6 2 总分总分 数值型数值型 7 2 平均分平均分 数值型数值型 6 2 建立表文件建立表文件 cj dbf 结构显示如下 结构显示如下 输入一些学生成绩 输入一些学生成绩 例例 2 1 计算表计算表 CJ DBF 中中的平均分和总分的程序的平均分和总分的程序 set talk off CLOSE ALL USE c 000 CJ REPLACE ALL 总分总分 WITH 英语英语 数学数学 计算机应用计算机应用 REPLACE ALL 平均分平均分 WITH 总分总分 3 LIST 执行结果为 执行结果为 38 例例2 2 统计成绩统计成绩表表CJ DBF中平均分大于中平均分大于90分的所有学生数目 分的所有学生数目 SET TALK OFF CLEAR USE c 000 CJ M 0 SCAN FOR 平均分平均分 90 DISPLAY M M 1 ENDSCAN 总数为总数为 M USE RETURN 执行结果 执行结果 例例2 3 统计成绩统计成绩表表CJ DBF中所有英语大于等于中所有英语大于等于75分的学生数目 分的学生数目 SET TALK OFF USE C 000 CJ MCOUNT 0 FOR REC 1 TO RECCOUNT RECCOUNT 为该库中的记录数为该库中的记录数 GO REC IF 英语英语 90 SKIP 或 或 LOOP ENDIF DISPLAY WAIT 按任一键继续显示按任一键继续显示 SKIP ENDDO USE RETURN 执行结果 执行结果 例例2 5 对成绩对成绩表表CJ DBF查询 若首记录的平均分数大于查询 若首记录的平均分数大于60分 则显示及格 成绩不及格分 则显示及格 成绩不及格 否则显示不及格 否则显示不及格 SET TALK OFF CLEAR USE C 000 CJ IF 平均分平均分 60 姓名姓名 成绩及格成绩及格 40 ELSE 姓名姓名 成绩不及格成绩不及格 ENDIF USE RETURN 执行结果如下 执行结果如下 例例 2 6 对成绩对成绩表表 CJ DBF 查询 根据该学生的平均分进行分类查询 根据该学生的平均分进行分类 优秀优秀 90 平均分平均分 优良优良 80 平均分平均分 90 良好良好 70 平均分平均分 80 及格及格 60 平均分平均分 70 不及格不及格 平均分平均分 90 姓名姓名 成绩优秀成绩优秀 CASE 平均分平均分 80 姓名姓名 成绩优良成绩优良 CASE 平均分平均分 70 姓名姓名 成绩良好成绩良好 CASE 平均分平均分 60 姓名姓名 成绩及格成绩及格 OTHERWISE 姓名姓名 成绩不及格成绩不及格 ENDCASE USE RETURN 执行结果如下 执行结果如下 例例 2 7 设计设计 5 乘乘 5 的乘法表的乘法表 set talk off clear x 1 do while x 5 y 1 41 do while y 1 x2 1 do while x2 x1 x2 x1 x2 x2 1 enddo x1 x1 1 enddo set talk on 执行结果 执行结果 例例 2 16 字母大小写变换程序 字母大小写变换程序 set talk off clear 45 accept 请输入一字符串 请输入一字符串 to x i 1 s do while i len X s substr x i 1 s s s substr x i 1 i i 1 enddo X upper x s lower s set talk on 执行结果 执行结果 例例 2 17 求求 1 10 的阶乘的阶乘 set talk off clear i 1 do while t k 1 j 1 do while j10 exit endif enddo return 执行结果 执行结果 46 例例 2 18 字符串颠倒程序字符串颠倒程序 set talk off x 子女子女 y i len x do while i 1 y y substr x i 1 2 i i 2 enddo y return 执行结果 执行结果 例例 2 19 计算计算 100 以内自然数的和以内自然数的和 set talk off store 0 to x y do while t x x 1 y y x if x 100 exit endif enddo y str y 5 return 执行结果 执行结果 例例 2 20 写数学公式程序 写数学公式程序 Y 3 X x 0 Y 0 x 0 Y 的值等于的值等于 3 x else Y 的值等于的值等于 0 endif 例例 2 21 求三个数的最大数 求三个数的最大数 clear input 请输入请输入 A 的值的值 to A input 请输入请输入 B 的值的值 to B input 请输入请输入 C 的值的值 to C 47 if A B and A C MAX A else if B A and B C MAX B else MAX C endif endif 例例 2 22 求三个数的最大数 求三个数的最大数 clear input 请输入请输入 A 的值的值 to A input 请输入请输入 B 的值的值 to B input 请输入请输入 C 的值的值 to C max A B C 例例 2 23 求用年月日表示今天 求用年月日表示今天 clear xdate str year date 4 年年 xdate xdate str month date 2 月月 xdate xdate ltrim str day date 2 日日 xdate 例例 2 24 显示课号为显示课号为 C301 的记录 的记录 set talk off clear use c 000 student dbf m 0 scan for 课号课号 C301 display m m 1 endscan 总数为 总数为 m use return 执行结果 执行结果 48 例例 2 25 统计分数统计分数 80 的人数 的人数 set talk off clear use c 000 student dbf n 0 scan for 分数分数 80 display n n 1 endscan 总数为 总数为 n use return 执行结果 执行结果 例例 2 26 求求 100 以内奇数的和 以内奇数的和 set talk off clear s 0 for i 1 to 99 step 2 s s i endfor s s return 执行结果 执行结果 例例 2 27 求求 1 到到 11 中奇数的和 中奇数的和 set talk off clear s 0 for i 11 to 1 step 2 s s i endfor s s 49 return 执行结果 执行结果 例例 2 28 求出下列程序执行的结果 求出下列程序执行的结果 set talk off clear s 0 n 1 K 1 do while k 10 if int k 2 k 2 s s k else n n k endif k k 1 enddo s s n n set talk on 程序执行的结果为 程序执行的结果为 例例 2 29 求下列程序执行的结果 求下列程序执行的结果 set talk off clear store 0 to x y do while x 101 x x 1 if mod x 3 0 loop endif y y 1 enddo y str y 2 set talk on 程序执行的结果 程序执行的结果 y 68 例例 2 30 求下列程序执行的结果 求下列程序执行的结果 50 set talk off clear dimension a 7 i 1 do while i 7 a i 3 i 1 i i 1 enddo a a 1 1