实训指导
您当前的位置: 澳门新葡京app>实训指导

实验三

Visual FoxPro函数、运算符与表达式

发布时间: 2018-11-27      信息来源:       阅读次数:

实验三    Visual FoxPro函数、运算符与表达式

一、实验目的
1
.熟悉Visual FoxPro常用内部函数的使用。
2
.了解Visual FoxPro运算符的运算规则。
3
.掌握Visual FoxPro表达式的书写。

二、实验内容及上机步骤
【上机题一】
VisualFoxPro常用内部函数的使用
【上机步骤】
本题的知识点是Visual FoxPro常用内部函数,操作步骤如下
(1) 数值函数, 分别执行如下命令,观察显示结果
?SQRT(3*3+4*4)
?INT(5.7),INT(-5.7),CEILING(5.7),CEILING(-5.7),FLOOR(5.7),FLOOR(-5.7)
?MOD(34,7), MOD(34,-7), MOD(-34,7), MOD(-34,-7)
?ROUND(3.14159,2),ROUND(5678.45,-2)
(2) 字符函数, 分别执行如下命令,观察显示结果
A1="1"
A2="2"
A12="B"
B=MAX(05/01/01,96/12/04)
?A&A1.&A2.,&A12
?AT("
姓","姓名"),AT("PRO","VisualFoxPro"),ATC("PRO","Visual FoxPro")
?LEN(ALLTRIM(SPACE(8)))
?SUBSTR(“Visual FoxPro内部函数”,8,6),LEFT(“电脑病毒:”,2),RIGHT(“杀毒软件”,4)
(3) 日期和时间函数, 分别执行如下命令,观察显示结果
?YEAR(DATE()),MONTH(DATE()),DAY(DATE())
?HOUR(DATETIME()),MINUTE(DATETIME()),SEC(DATETIME())
(4) 数据类型转换函数, 分别执行如下命令,观察显示结果
?DTOC(DATE())
?STR(34.56,10,1),STR(34.56,10,2),STR(34.56,6),STR(34.56,3),STR(34.56)
?LEN(STR(34.56,6)),LEN(STR(34.56,3)),LEN(STR(34.56))
?VAL("12"),VAL("-12"),VAL("1A"),VAL("B2")
(5) 测试函数, 分别执行如下命令,观察显示结果
?VARTYPE($234),VARTYPE("A"),VARTYPE(A),VARTYPE(DTOC(DATE()))
?IIF(3+65>70,.T.,.F.)

【上机题二】
VisualFoxPro运算符与表达式
【上机步骤】
本题的知识点是Visual FoxPro运算符与表达式,操作步骤如下
(1)算术运算符与表达式的练习。分别执行如下命令,观察显示结果
?3*5*12/4^2
? (4^5+5^5)/(sqrt(4+5)-4*5)

(2)字符运算符与表达式的练习。分别执行如下命令,观察显示结果
a= "
电 脑 "
b= " 计 算 机"
?a+b,a-b

(3)日期和时间运算符与表达式的练习。分别执行如下命令,观察显示结果
?DATE()-{^2005/09/01}
?DATE()-120,DATE()+120
(4)关系运算符与表达式的练习。 分别执行如下命令,观察显示结果
?"
飞机">"轮船", "xy">"x", " ">"x", "AB" > "ab"
SET EXACT OFF???

?"
电脑"="电脑病毒","电脑病毒"="病毒"
? "
病毒"= ="电脑病毒","电脑病毒"= ="病毒"
SET EXACT ON???

?"
病毒"="电脑病毒","电脑病毒"="病毒"
? "
病毒"= ="电脑病毒","电脑病毒"= ="病毒"
? "电脑病毒"$"病毒","病毒"$"电脑病毒"

(5)逻辑运算符与表达式的练习,分别执行如下命令
a=5>3
b=3>5
?a AND b, a OR b, NOT a, NOT b AND .F.

【上机题三】
VisualFoxPro综合表达式的应用
【上机步骤】
本题的知识点是VFP表达式的书写,操作步骤如下:
(1)写出下列算术式子的表达式,并求其值。
??????????????
,设x=3,y=2
分别执行如下命令:
?1/2+14/21+3/5
?SIN(PI()/6)+TAN(PI()/3)
x=3
y=2
?(x^5+y^5)/(SQRT(x+y)-x*y)
(2)写出判断闰年的表达式(能被4整除但不能被100整除,或者能被400整除的年份就是闰年)。
?? 分别执行如下命令:
y=YEAR(DATE())
?IIF((y%4=0 and y%100!=0) or y%400=0,"
是闰年","不是闰年")
(3)计算距离明年元旦还有多少天?(假设今年为2005年)
分别执行如下命令:
?{^2006/01/01}-date()
(4)设直角三角形的一条直角边长为4,斜边长为5,求另一条直角边之长。
分别执行如下命令:
a=4
c=5
b=SQRT(C*C-A*A)
?b