vf中的程序的编写

vf中的程序的编写题目：编写程序exercise2.prg，要求从“course.dbf”败肆尘中，根雹宏据输入的课程号，查找该课程的课察禅程名、学时数、学分等信息，查找结果显示在屏幕上，如果找不到则输出“XX课程不存在！”(XX是输入的课程号)。

我是这样写的

set default to e:\20138566

set exact on

use course

accept "请输入课程号：" to rm

locate for 课程号=rm

if found() then

display

else

?rm+"课程号不存在！"

endif

use

return

步骤一、表一创建：set status 备纯肢on

set talk on

cd E:\my  裤锋 //*选路径*//

create 表一（按回车）然后进入表的编辑 输入字段，完成保存

步骤二、表二的创建 与表一完全相同 略.步骤三  update 表仿世一  set 表一.成绩=表二.数学成绩+表二.语文成绩 where 表一.姓名=表二.姓名

function fentodegree(fen as double) as string

dim a as string

if fen>=90 then

a="A"

elseif fen>=80 then

a="B"

elseif fen>=70 then

a="C"肆咐

elseif fen>=60 then

a="E"

else

a="F"

fentodegree=a

end function

3\

dim mystr as string

mystr="能被唯码29整除的数有如下："

for i=1 to 100

if i mod 29 =0 then mystr=mstr+" "+cxtr(i)

next i

msgbox(mystr)

4$$$444444444444444

function jiecheng(innumber as long) as double

dim i as long

dim a as double

a=1

for i=1 to innumber

a=a*i

next i

jiecheng=a

end function

msgbox(jiecheng(10)-jiecheng(8)+jiecheng(5))

我的分啊！！！指雹哪！加加加

---