2、VF程序设计基础2、VF程序设计基础.ppt

数据类型 字符型(C)、数值型(N)、日期型(D)、逻辑型(L)、备注型(M)、通用型(G)、货币型(Y)等。 流程图： 指针是否指向文件尾？ 循环体 记录指针指向第一条记录 ENDSCAN的下一条命令 Y N 记录指针指向下一条记录 例：请修改并执行程序temp。temp.prg的功能是：根据“教 师表和课程表计算讲授数据结构这门课程、并且工资“ 大于等于4000的教师人数。 注意，只能修改标有错误的语句行，不能修改其他语句。39套 下句只有一处有错误 SELECT 课程号 FROM 课程表; WHERE 课程名=数据结构“; TO ARRAY a 下句有错误 OPEN 教师表 STORE 0 TO sum 下句两处有错误 SCAN OF 课程号=a OR 工资=4000 下句有错误 sum+1 ENDSCAN ?sum Use 教师表 Sum=sum+1 SCAN for 课程号=a and 工资=4000 into ARRAY a 选择分支 语句格式： IF 条件表达式 语句序列1 ELSE 语句序列2 ENDIF Y N 流程图 ： 条 件 语句序列 1 语句序列 2 ENDIF的下一条语句 例：给定程序（表单）modi2.scx，其功 能是请用户输入一个正整数，然后计算从1到该数字之间有 几个偶数、几个奇数、几个被3整除的数，并分别显示出来，最后给出总数目。请修改并调试该程序，使之正确运行。 改错要求：在计算按钮的单击事件的程序中共有3处错误，请修改*****found****下面的错误，必须在原来位置修改，不得增加或删减程序行（其中第一行的赋值语句不许减少或改变变量名）。 在“退出”按钮下有一处错误，该按钮的功能是关闭并释放表单。27套 *******************found******************** x,s1,s2,s3=0 *******************found******************** x= (thisform.text1) do while x0 if int(x/2)=x/2 s1=s1+1 else s2=s2+1 endif *******************found******************** if div(x,3)=0 s3=s3+1 endif x=x-1 enddo thisform.text2.value=s1 thisform.text3.value=s2 thisform.text4.value=s3 thisform.text5.value=s1+s2+s3 if mod(x,3)=0 store 0 to x,s1,s2,s3 x=val(thisform.text1.value) 多分支选择语句 语句格式： DO CASE CASE条件1 命令组1 CASE条件2 命令组2 ……… CASE条件n 命令组n [OTHERWISE 命令组n+1] ENDCASE 条件2 条件1 条件n 命令组1 命令组2 命令组n 命令组n+1 ENDCASE的下一条命令 Y N N N Y Y … 例：设学生数据表当前记录的“计算机”字段的值 是89，执行以下程序段之后，屏幕输出： A)计算机成绩: 不及格 B)计算机成绩: 及格 C)计算机成绩: 良 D)计算机成绩: 优 DO CASE CASE 计算机60 ?计算机成绩: +不及格 CASE 计算机=60 ?计算机成绩: +及格 CASE 计算机=70 ?计算机成绩: +中 CASE 计算机=80 ?计算机成绩: +良 CASE 计算机=90 ?计算机成绩: +优 ENDCASE DO CASE CASE 计算机60 ?计算机成绩: +不及格 CASE