VFP常见编程实例文档格式.docx
- 文档编号:21137392
- 上传时间:2023-01-27
- 格式:DOCX
- 页数:10
- 大小:17.53KB
VFP常见编程实例文档格式.docx
《VFP常见编程实例文档格式.docx》由会员分享,可在线阅读,更多相关《VFP常见编程实例文档格式.docx(10页珍藏版)》请在冰豆网上搜索。
ELSE
CANCEL
ENDIF
CONTINUE
5、用scan语句查询定位
**用scan语句查询定位记录在赵伟上
SCANFOR姓名="
DISPLAY
ENDSCAN
RETURN
6、用scan语句扫描符合条件的记录,并显示出来
**把年龄小于30岁的人显示出来
SCANFOR年龄<
30
7、查找男性职工
**查找男性职工
LOCATEFOR性别="
男"
DOWHILEFOUND()
CONTINUE
DOWHILENOTEOF()
USE职员基本信息表
DOWHILE.t.
IFFOUND()then
ELSE
8、新值换旧值
**有一对新生的兔子,从第三个月开始,每个月出生一对兔子,请问到第十二个月共出生多少对兔子?
clear
store1toa,b
i=3
dowhilei<
=12
c=a+b
a=b
b=c
enddo
"
一年共出生兔子:
c
return
9、多位整数各个位数相加
**求多位整数各个位数之和
input"
请输入一个多位整数:
toa
DOWHILEa<
>
s=s+MOD(a,10)
&
&
将a取余正好是个位上的数
a=INT(a/10)
将a除10取整正好是除个位之后的数
这个整数的各个位数之和是:
s
10、找100-999之间的“水仙花数”
FORi=100TO999
a=INT(i/100)
b=INT((i-100*a)/10)
c=i-INT(i/10)*10
IFi=a^3+b^3+c^3
?
i
ENDIF
ENDFOR
11、判断一个大于3的数是否为素数
请输入一个数(>
=3):
tos
f=0
i=2
=INT(SQRT(s))
IFMOD(s,i)<
i=i+1
LOOP
f=1
EXIT
IFf=0
str(s,3)+"
是素数"
ELSEf=1
不是素数"
12、求一个班级每个学生的平均成绩
**计算一个班级共三十名学生,每位学生5门功课的平均成绩
CLEAR
清屏
DIMENSIONx(30,5)
定义一个数组变量,r为学生数,i为功课数
r=1
给30个学生的计数变量r赋初值1
DOWHILEr<
=30
循环30次,以计算出30个学生的平均成绩
s=0
为学生一门功课成绩赋初值0
i=1
为五门功课计数变量赋初值1
DOWHILEi<
=5&
为一个学生的五门功课成绩累加5次
input"
请输入学生的成绩"
tox(r,i)
s=s+x(r,i)
成绩累加
i=i+1
功课累加
ENDDO
返回内循环
这名学生的平均成绩是:
s/5
显示平均成绩
r=r+1
学生累加
ENDDO
返回外循环
13、计算圆的面积
*计算圆的面积程序
请输入半径的值"
tor
请输入pi的值"
to
pi
s=pi*r^2
圆的面积是"
14、将小写字母转换为大写字母
NOTE请将任意输入的一个小写字母转换成大写字母,也就是upper()函数的程序实现
请屏
WAIT"
请输入一个小写字母"
tox
交互式输入一个小写字母
k=ASC(x)
将小写字母的ASC码赋值给变量K
IFk>
=97ANDk<
=122then
97是小写字母a的ASC码值,122是小写字母z的ASC码值
x,"
的大写字母是"
CHR(k-32)
输出大写字母.chr函数是ASC码所对应的字符
WAIT"
您输入的不是小写字母"
WINDOWTIMEOUT5
cancel
返回到调用程序
15、找出最大数和最小数
请输入一个数:
tox
STORExTOma,mi
FORi=2TO10
因为已经输入一个数X,所以循环次数只有9次
IFma<
x
ma是变量中存的数,x是刚输入的数
ma=x
IFmi>
x
mi=x
最大数是:
ma
最小数是:
mi
16、绝对值函数的实现
**绝对值函数的实现
请输入一个数值"
ton
IFn>
=0
n
-n
CANCEL
17、绝对值函数实现的另一种方法
**绝对值函数和另一种实现方法
请输入一个数值"
IIF(n>
=0,n,-n)
18、输出成绩等级
**成绩等级判断语句
请输入一个成绩"
tocj
DOcase
CASEcj>
=90
dj="
优秀"
=80
良好"
=60
合格"
OTHERWISE
不合格"
ENDCASE
dj
19、求一名学生的平均成绩
**求一个学生5门功课的平均成绩
请输入各门功课的成绩"
s=s+x
s/5
20、用数组的方法,计算一个学生的平均成绩
**用数组保存一个学生五门功课的成绩,然后再计算机其平均成绩
DIMENSIONx(5)
tox(i)
s=s+x(i)
21、用docase语句实现符号函数的功能
**请输入一个数,当这个数是负数,就返回-1,当这个数是零,就返回零,当这个数是正数,就返回1
请输入一个数"
DOCASE
CASEn>
s=1
CASEn=0
s=0
CASEn<
s=-1
22、用一般选择语句实现符号函数的功能
**符号函数的实现
s=1
IFn=0
IFn<
23、用简单选择语句实现符号函数功能
IFn=0
s=1
IFn<
s=-1
24、打开数据库和数据表
SETtalkoff
accept"
请输入数据库名"
OPENDATABASE&
请输入数据表名"
toy
USE&
y
LIST
use
25、显示表中指定信息
SETTALKOFF
OPENDATABASE时代超越总公司职员信息数据库
请输入待查职工的编号(1-3)"
TOn
IFVAL(n)<
1.or.VAL(n)>
3
输入无效,结束程序运行!
WINDOWtimeout5
STORE"
0"
+nTOa
LISTfor"
职员编号"
=a
CLOSEDATABASES
SETTALKON
26、询问后再由用户按(Y/N)键执行的程序实现
**求任意一个数的阶乘
p=1
FORi=1TOn
p=p*i
s=s+p
是否继续计算(Y/N)"
TOynwindow
IFUPPER(yn)="
Y"
THEN
27、根据exact的设置进行字符串匹配比较
**exact设置的变化对取值结果的影响
SETexactON
exact为打开状态,字符精确匹配
s="
in"
+SPACE
(2)
IFs=="
IFs="
a"
b"
c"
d"
28、使一个多位正整数逆序排列
请输入一个整数:
DOWHILEx>
y=x%10
x=INT(x/10)
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- VFP 常见 编程 实例