- 33
- 0
- 约 26页
- 2016-10-15 发布于贵州
- 举报
VFP常见编程例及模拟试卷4套
VFP常见编程实例1、1-100的累加
** 求1到100的累加值
CLEAR
s=0
i=1
DO WHILE i=100
?s=s+i
?i=i+1? 一定记住先累加后循环
ENDDO
?s
RETURN
?2、阶乘
** 求5的阶乘
CLEAR
j=1
i=1
DO WHILE i=5
?j=j*i
?i=i+1
ENDDO
?j
RETURN
?3、求阶乘和
** 求1至5的阶乘和
CLEAR
s=0
i=1
j=1
DO WHILE i=5
j=j*i
s=s+j
i=i+1
ENDDO
?s
RETURN
4、条件定位
** 查询定位记录指针在赵伟上
CLEAR
USE 学生
LOCATE FOR 姓名=赵伟
IF FOUND()
? DISPLAY
ELSE
? CANCEL
ENDIF
CONTINUE
?5、用scan语句查询定位
** 用scan语句查询定位记录在赵伟上
CLEAR
SCAN FOR 姓名=赵伟
DISPLAY
ENDSCAN
RETURN
?6、用scan语句扫描符合条件的记录,并显示出来
** 把年龄小于30岁的人显示出来
CLEAR
SCAN FOR 年龄30
DISPLAY
ENDSCAN
RETURN
?7、查找男性职工
** 查找男性职工
CLEAR
LOCATE FOR 性别=男
DO WHILE FOUND()
? DISPLAY
您可能关注的文档
最近下载
- 六年级体育与健康上册全册教案.doc VIP
- 外研版2026-2027学年七年级英语上册教学工作计划(及进度表).docx
- Razer雷蛇巴塞利斯蛇V3专业版(RZ01-04620)中文手册.pdf
- 2026年贵州省中考数学试卷(含答案详解)原版.pdf
- DB22JT133-2014 长螺旋钻孔压灌混凝土桩基础技术规程.pdf VIP
- YXLON Cougar EVO系列 产品说明书.pdf
- GB∕T 31402-2023 塑料和其他无孔材料表面抗菌活性的测定.pdf
- 标准图集-22G813 钢筋混凝土灌注桩图集.pdf VIP
- 手工焊接贴片元件技术指导辩析.ppt VIP
- 富士通富士通光学组件FTM7992HM FTM7995HN FTM7979HKA FTM7977HQA FTM8300JN FIM24961 FIM24942 FIM24902 FIM24725 FIM38750 FIM38800 FIM38900 FIM38950 说明书.pdf
原创力文档

文档评论(0)