计算机二级 VF 第二章2.pptVIP

打开学生表，查找性别为.T.的学生，并显示记录的内容，一直查找到文件尾，然后关闭数据表，结束程序运行，并回到命令窗口(域完整性) Modi comm aa ----- 建立新程序 程序内容: *查找性别为”男”的学生 Clear open database xsxk Use 学生 Loca for 性别=.T. Disp Do while .not.eof() cont Disp Wait window timeout 3 Enddo Close database retu 例1：输入考试成绩，显示相应的等级 Clear Input “输入考试成绩” to chj If chj60 dj=“不及格” Else if chj90 dj=“通过” else dj=“优秀” endif Endif ?”成绩等级：” + dj 课堂练习 例7.4 邮资的计算： 100克以内：0.05/克 100克以上：超出部分：0.02/克 提示： 100克以内(包括100克)邮资：y=x*0.05 100克以上邮资：y=100*0.05+(x-100)*0.02 例7.5 查询指定学生姓名,显示学生基本情况。 方法1 Set talk off Clear Input “请输入邮件重量” to x If x=100 Y=x*0.05 Else Y=100*0.05+(x-100)*0.02 Endif ?”邮资为：”,y 方法2 Set talk off Clear Input “请输入邮件重量” to x If x100 Y=100*0.05+(x-100)*0.02 endif Y=x*0.05 ?”邮资为：”,y 方法3 Set talk off Clear Input “请输入邮件重量” to x Y=x*0.05 If x100 Y=100*0.05+(x-100)*0.02 endif ?”邮资为：”,y 例2：用do case-endcase 语句编写前一个例题 Clear Input “输入考试成绩” to chj Do case case chj60 dj=“不及格” case chj70 dj=“及格” case chj80 dj=“中” case chj90 dj=“良” Otherwise dj=“优秀” endcase ?”成绩等级” + dj return 框图 例7.7计算从1累加到100的和（1+2+3+….100） s=0 存放总和的变量 i=1 存放循环次数的变量 do while i=100 s=s+i 第一次循环结束：s=1，i=2 i=i+1 第二次循环结束：s=3，i=3 Enddo 第三次循环结束：s=6，i=4 ?s=,s **查找指定专业的学生（专业号是由学号的第3个字符开始向后取3个字符组成） Clear Open database xsxk Use 学生 Inpu “请输入专业号” to a Loca for subs(学号,3,3)=adisp Do while .not.eof() Cont Disp Wait timeout 3 Enddo Close database Return 请同学们按照此程序修改为查找指定年出生年份的学生 **查找指定出生年份的学生 Clear Open database xsxk Use 学生 Inpu “请输入出生年号” to a Loca for year(出生日期)=adisp Do while .not.eof() Cont Disp Wait timeout 3 Enddo Close database Return **查找指定专业的学生（第二种方法） Clear Open database xsxk Use 学生 Inde on subs(学号,3,3) to xh Inpu “请输入专业号” to a Se