计算机二级VFP考试讲义文档格式.docx
- 文档编号:20918971
- 上传时间:2023-01-26
- 格式:DOCX
- 页数:73
- 大小:74.97KB
计算机二级VFP考试讲义文档格式.docx
《计算机二级VFP考试讲义文档格式.docx》由会员分享,可在线阅读,更多相关《计算机二级VFP考试讲义文档格式.docx(73页珍藏版)》请在冰豆网上搜索。
说明:
提示信息是C型,它会在屏幕上原样输出.
Input和accept在编写程序时语句都一样,只是执行程序(do)时,输入的东西不同
下面请看程序实例:
输入a、b、c的值,对2ax+b=c求x的值。
Clear
Input“现在计算2ax+b=c,请输入a的值:
”toa
Input“请输入b的值:
”tob
Input“请输入c的值:
”toc
x=(c-b)/(2*a)
’x的值为:
’,x
return
例
settalkoff
accept“请输入文件名:
”tof1
use&
f1
input“输入要查询的成绩:
”tocj
listfor入学成绩>
cj
完成查询功能:
在学生.dbf中查找某个同学信息。
indexon姓名toxm
accept“请输入要查询人的姓名:
”toname
seekname
iffound()
disp
else
’对不起,没有找到此人’
endif
return
请思考:
如果换成input,输入的时候该怎么输入?
?
例5:
删除学生.dbf中的指定记录:
list
input“请输入您想删除的记录号:
”tox
delerecox
wait“你想彻底删除这条记录吗?
(y/n)”toask
ifask=’Y’orask=’y’
pack
注意区分交互方式和程序方式:
有的命令可以在两种状态下执行(例如:
刚才的输入命令),但有些命令只能在程序方式下执行(例如:
循环语句)
(5)定位输入命令:
格式:
@行,列say<
提示信息>
get<
READ
说明:
内存变量必须先赋初值才能使用。
输入的值类型应该与初值类型相同。
如果没有read则表示只显示内容,不输入值。
eg:
appendblank
@5,10say“学号”get学号
@7,10say“姓名”get姓名
@9,10say“入学成绩”get入学成绩
read
store0tocj
@5,10say“请输入学生成绩”getcj
2.输出命令:
(1)非格式输出命令:
和?
(2)格式输出命令
@<
行,列>
say<
表达式>
行和列都可以是表达式,常常可以使用函数ROW()和COL()
ROW()表示返回当前行的行号COL()表示返回当前列的列号
(3)TEXT语句:
原样输出
TEXT
…………………..
ENDTEXT
看下面的例题:
例6:
循环输入值
dimexh(10)
store0toxh
@10,10say'
请输入数字:
getxh
(1)
i=2
dowhilei<
=10
@row()+1,10say'
getxh(i)
i=i+1
listmemolikexh
3.其它常用命令
1、清屏:
CLEAR
2、CANCEL、QUIT和RETURN
QUIT:
退出程序运行并且退出VisualFoxpro.
CANCEL:
退出程序运行,回到VFP命令状态.
RETURN:
返回上级程序调用点,如果是主程序就表示退出程序
主程序可缺省此命令返回(结束),即默认使用了return
注意:
上述命令执行完后都会自动clearmemory.
但是如果有数据库和表打开不会自动关闭,所以使用数据库和表后在程序结束时我们常常需要加命令:
closeall
3、注释命令NOTE、*和&
&
注释的含义:
程序员对程序语句功能的说明,执行程序的时候不执行注释中的内容,注释只起到一个对语句说明的目的。
一般复杂程序中应有30%以上的注释。
4、系统设置命令:
set…on/off或者是set…to
第3章程序设计
(二)
三种基本结构
顺序、分支、循环
一、分支语句:
1、IF语句
单向选择:
IF条件双向选择:
IF条件
执行语句执行语句
ENDIFELSE
执行语句
ENDIF
例1:
用户输入数据表文件名,判断它存在否,如果存在则打开数据表文件并显示表中的全部记录。
accept'
请输入数据表文件名:
toheng&
想想可不可以用input
iffile(heng+'
.dbf'
)&
了解file()的使用方法
heng&
想想这儿为什么要用&
代换
list
?
sorry,文件不存在.'
closeall&
关闭所有打开的表,如果不涉及多工作区,可以只使用use
IF语句的嵌套:
例2:
将用户输入的小写英文字母转化成大写
ACCEPT“请输入1个字母:
”TOSTR1
IFSTR1>
=’a’ANDSTR1<
=’z’
STR1=UPPER(STR1)
SPACE(40)+STR1
ELSE
IFSTR1>
=’A’ANDSTR1<
=’Z’
ELSE
“你输入的不是英文字母”
二、多向选择:
(多路选择)
DOCASE
CASE<
条件表达式1>
<
命令序列1>
CASE<
条件表达式2>
命令序列2>
……
OTHERWISE//其它情况
<
命令序列>
ENDCASE
OTHERWISE可以没有.
例3:
邮局负责邮购小物品规则如下:
50公里及以内收取额外金额5元,50-100公里收取10元,100-200公里收取20元,200-500公里收取40元,其余一律收取50元。
INPUT“请输入您想邮购物品的路程(公里数):
”TOX
DOCASE
CASEX<
=50
Y=5
CASEX>
50ANDX<
=100
Y=10
100ANDX<
=200
Y=20
200ANDX<
=500
Y=40
OTHERWISE
Y=50
’您需要付款:
’,Y,’元人民币’
三、循环语句:
1、DOWHILE条件
语句序列
LOOP&
提前结束本次循环
语句序列
EXIT&
退出循环体
ENDDO
要退出循环,需要条件为假的时候(条件=.F.时)
执行过程:
例4
n=1
sum1=0
dowhilen<
sum1=sum1+n
n=n+1
”1+2+3+…..100的和为:
”,str(sum1,4)
例5
i=1
=5
space(6-i)
"
*******"
cancel
2、计数循环:
FOR循环变量=初值TO终值[STEP步长]
退出循环
ENDFOR/NEXT
求1~100的和
SUM=0
FORI=1TO100
SUM=SUM+I
ENDFOR
’1~100的总和为:
’,SUM
使用DOWHILE实现:
I=1
DOWHILEI<
101
I=I+1
ENDDO
3、指针循环:
SCAN范围FOR/WHILE条件
ENDSCAN
首先判断EOF()的值,为真则结束循环;
否则结合FOR/WHILE子句执行循环体部份,记录指针移到指定范围和条件内的下一条记录,重新判断EOF()的值,直到为真则结束循环.
另外:
若语句中有QUIT、RETURN、CANCEL等命令也可以退出
例如:
DOWHILE.T.DOWHILE.T.
IFY>
0IFY>
EXITQUIT
ENDIFENDIF
ENDDOENDDO
如果Y>
0,则退出本循环如果Y>
0,则退出程序,退出VF
DOWHILE.T.DOWHILE.T.
RETURNCANCEL
0,则退出程序返回上层如果Y>
0,则退出程序,回到VF中
例7:
三种方法实现显示出全部的男生。
使用DOWHILE循环:
CLOSEALL
USE学生
DOWHILENOTEOF()
IF性别=’男’
DISP
ENDIF
SKIP
使用FOR循环:
COUNTTOX
GOTOP
FORI=1TOX
IF性别=’男’
DISP
SKIP
使用SCAN循环:
SCANFOR性别=’男’
例8(LOOP语句的使用方法:
提前结束本次循环)
USE学生
DISP
WAIT‘你想修改本记录吗?
(Y/N):
’TOX
IFX=’N’ORX=‘n’
LOOP
EDIT
程序执行到WAIT语句后,如果用户输入的是’N’或’n’,那么就LOOP
(也就跳过本次循环,不执行后面的EDIT)
例9:
通过键盘输入三角形的边长,若边长正确,立即在屏幕上显示三角形的面积,若边长不正确,重新输入边长,若输入的边长中任意一边为0则程序立即结束。
”现在计算三角型的面积,如果想退出程序请输入0。
”
DOWHILE.T.
INPUT“请输入边长a:
”TOA
INPUT“请输入边长b:
”TOB
INPUT“请输入边长c:
”TOC
IFA=0ORB=0ORC=0
’结束’
RETURN
IFA+B<
=CORA+C<
=BORB+C<
=A
’错误的三角型,请重新输入!
’
LOOP
S=(A+B+C)/2
AREA=SQRT(S*(S-A)*(S-B)*(S-C))
’该三角型的面积是:
’,area
例10:
有下列表:
book(书名C(20),作者C(8),出版日期D,内容简介M)编写程序:
查询关于foxpro的图书.
USEBOOK
LOCATEFOR‘foxpro’$书名
IF!
FOUND()
’没有关于foxpro的图书’
DOWHILE!
EOF()
CLEAR
书名,作者,出版日期
内容介绍
WAIT“是否继续查找?
(Y/N)”TOM
IFM$’nN’
EXIT
CONTINUE
”全部显示完成”
例题11:
fork=1to10
ifk%2=0
loop
endif
”OK”
endfor
请问显示了多少个OK?
例题12:
在学生表里查询所有入校总分在570以上的人.
SCANFOR入校总分>
570
例13:
用户可以循环输入并查找入校总分,直到输入的是负数就退出.
INPUT“请输入你要查找的入校总分,输入负数则退出:
DOWHILEX>
=0
SCANFOR入校总分=X
INPUT“请输入你要查找的入校总分:
实验:
循环插入新记录,并输入数据。
答案见210.41.166.233中省等级考试辅导资料:
VF程序部分。
例14:
现有表STUDENT.DBF和学生成绩.DBF,编写程序,对两张表建立关联,用户可以循环查询:
输入某个同学的姓名后,该程序能够修改关于他所选课程的分数.(此题仅理解)
其中STUDENT.DBF信息如下:
(学号C(6),姓名C(8),性别C
(2),出生日期D,高考成绩N(6,1))
学生成绩.DBF信息如下:
(学号C(6),课程号C(3),分数N
(2))
思路:
先建立好关联,因为STUDENT对学生成绩是一对多的关系,所有最好将STUDENT做子表,就不用SETSKIPTO命令了.然后通过STUDENT中的姓名获得学号,再在表学生成绩.dbf中进行查找和课程分数的修改.
SELE2
USESTUDENT
INDEXON学号TAGXH
SELE1
USE学生成绩
SETRELATO学号INTOB&
建立关联,学生成绩作为父表
ACCEPT“请输入你想查询的人姓名”TONAME
SELE2
LOCATEFOR姓名=NAME&
先在表STUDENT中查找姓名
IFFOUND()
NUM=学号&
获得姓名对应的学号
SELE1&
转换到表学生成绩中
LOCATEFOR学号=NUM&
根据刚才姓名对应的学
学生成绩中循环找,因为一个学生可能有几个课程成绩
DOWHILENOTEOF()
@4,8SAY学号
@4,20SAYB.姓名
@4,34SAY课程号
@6,10SAY‘分数’GET分数
READ
CONTINUE
ENDDO
’SORRY,NOFIND.’
WAIT“你想继续查询修改数据吗?
(Y/N):
”TOASK
IFASK=’n’ORASK=’N’
LIST学号,B.姓名,课程号,分数
CLOSEALL
CANCEL
编写程序,对于学生.dbf能够在程序末尾循环插入新记录
(要求:
必须使用@行,列say...get..输入数据)
APPEBLANK
@5,20SAY'
学号'
GET学号
@5,40SAY'
姓名'
GET姓名
@7,20SAY'
性别'
GET性别
@7,30SAY'
出生年月'
GET出生年月
@9,20SAY'
入校总分'
GET入校总分
READ
WAIT'
你想继续插入新记录吗?
(Y/N):
'
TOX
IFX='
N'
ORX='
n'
LIST
编写程序,该程序能够顺序修改表学生.DBF中的所有数据。
(要求:
必须使用@行,列say...get..进行数据修改)
ifeof()
exit
你想继续修改记录吗?
例4.39打印九九表
forI=1to9
str(I,2)
forj=1to9
fork=1toj
str(j*k,2)
endfor
For循环
引入:
双重循环(数组)arr(3,4)
用二维数组输入数据:
dimearr(3,4)
forI=1to3
forj=1to4
inputtoarr(i,j)
dispmemorylikea*
eg1:
******
4行6列
行forI=1to4
列forj=1to6
”*”
endfor
eg2:
*
**f
***
****
行:
forI=1to4
endfor
列:
forj=1toI
eg3
forI=1to3
1.显示空格2.显示*3换行
规律:
行数+空格=行的总数
space(3-i)
forj=1to2*I-1
eg4:
打印九九表
123456789
*************************************
1)1
2)24
3)369
4)481216
5)510152025
6)61218243036
1.行:
9
2每行:
行数)空格
行数i*列数j
换行
编程:
外循环forI=1to9
内循环?
str(I,1)+”)”+”“
forj=1toI
str(I*j,2)+””
表头:
fori=1to9
+str(i,2)+"
"
程序三(第十一周PPT)
一、重点掌握:
1、
什么是子程序
2、普通变量、全局变量和局部变量
3、什么是过程和函数(procedure\function)
4、过程和函数的建立和使用方法
看看下例:
实验九程序设计
(一)
实验性质:
验证性实验
目的:
掌握程序文件的建立、编辑和运行。
掌握格式输入输出命令,学习编写顺序和分支程序。
内容:
***************相关内容回忆*********************
1、格式化输入输出命令
格式一:
@行,列say提示信息
格式二:
@行,列say提示信息get变量
……
格式三:
@行,列say提示信息get变量default常量
say后面的提示信息可以是表达式
①GET后的变量可以是内存变量或当前打开的数据文件中的字段变量,若是内存变量,应在执行该命令前对内存变量赋值,否则就必须使用default参数赋初值。
②输入的值类型应该与初值类型相同。
③READ命令与GET命令必须配合使用。
多个GET命令可以只用一个READ命令配合。
编写程序完成在学生.DBF中追加记录
CLEAR
USE学生
APPENDBLANK
@5,20SAY“学号”GET学号
@5,40SAY“姓名”GET姓名
@7,20SAY“性别”GET性别
@7,40SAY“出生年月”GET出生年月
@9,20SAY“入校总分”GET入校总分
@9,40SAY“三好生”GET三好生
READ
LIST
CLOSEALL
RETURN
2、输出命令
1)?
/?
2)TEXT语句:
text
hellow
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 计算机 二级 VFP 考试 讲义
![提示](https://static.bdocx.com/images/bang_tan.gif)