《Visual FoxPro数据库程序设计实训指导 第二版 高职计算机应用技术 焦凤红实验2 Visual FoxPro的语言基础》由会员分享，可在线阅读，更多相关《Visual FoxPro数据库程序设计实训指导 第二版 高职计算机应用技术 焦凤红实验2 Visual FoxPro的语言基础（27页珍藏版）》请在金锄头文库上搜索。
1、实验2 Visual FoxPro的语言基础,2.1 实验目的,2.2 实验内容,2.2.1 Visual FoxPro的数据类型,2.2 实验内容,2.2.2 Visual FoxPro 的运算符,2.2 实验内容,2.2.3 Visual FoxPro内存变量的使用,命令格式1: = 命令格式2: STORE TO ,2.2 实验内容,2.2.3 Visual FoxPro内存变量的使用,写出完成以下操作的命令序列，并上机验证： 定义一个名为mm的二维数组mm(3,4)，并将mm(2,1)赋值为1234，mm(3,1)赋值为“程序设计”,将mm(3,2)赋值为“数据结构”，然后执行DISP
2、LAY MEMORY命令显示内存变量，观察各数组元素的数据类型及当前值。,2.2 实验内容,2.2.3 Visual FoxPro内存变量的使用,【例2-2】内存变量的显示与清除示例。 试执行以下命令序列： W1=90 W2=TT DISPLAY MEMORY &显示内存变量 RELEASE ALL &清除所有内存变量，也可用CLEAR MEMORY DISPLAY MEMORY,2.2 实验内容,2.2.4 常用函数的使用,【例2-3】用ABS()函数求-22.8的绝对值，并将结果存放在变量b中，显示b的值。 操作命令：b=ABS(-22.8)|？b 结果： 22.8 在“命令”窗口输入并执
3、行相应命令，实现以下功能： (1)用INT( )函数对7.39取整。 操作命令：_ 结果： _,_,_,2.2 实验内容,2.2.4 常用函数的使用,(3)用RAND()函数产生一个两位的随机整数，并将结果存放在变量a中，显示a的值。 操作命令： _ 结果： _ 提示 可用表达式：INT(RAND()*90)+10。 (4)用SQRT()函数求13的平方根，并将结果存放在变量x中，显示x的值。 操作命令： _ 结果： _,2.2 实验内容,2.2.4 常用函数的使用,(6)用MOD()函数分别求7除以3的余数，7除以-3的余数，-7除以3的余数，-7除以-3的余数，并将结果存放在变量a、b、c
4、、d中，显示a、b、c、d的值。 操作命令： _ 结果： _ 对MOD()函数值的总结： _ (7)用ROUND()函数对3.1415926求运算结果，要求保留2位小数。 操作命令： _ 结果： _,2.2 实验内容,2.2.4 常用函数的使用,在“命令”窗口输入并执行相应命令，实现以下功能： (1)用LEN()函数测试字符串05计算机2班的长度。 操作命令： _ 结果： _ (2)用SUBSTR()函数从字符串04商务英语班中取出“语”字存放在变量a中，并显示a的值。 操作命令： _ 结果： _,2.2 实验内容,2.2.4 常用函数的使用,(3)用LEFT()函数从字符串Visual Fo
5、xPro数据库中取子串Visual存放在变量w中，并显示w的值。 操作命令： _ 结果; _ (4)用RIGHT()函数从字符串Visual FoxPro数据库中取子串数据库存放在变量q中，并显示q的值。 操作命令： _ 结果： _ (5)用AT()函数测试字符串CD在字符串ABCDABCDABCD中第2次出现的位置，并将结果存放在变量a中，然后显示这个变量的值。 操作命令： _ 结果： _,2.2 实验内容,2.2.4 常用函数的使用,在“命令”窗口输入并执行相应命令，实现以下功能： (1)用DATE()函数将系统日期保存在变量mqrq中，并显示该变量的值。 操作命令： _ 结果： _ (2
6、)把自己的生日存放在变量birthday中，然后分别用YEAR()函数(求年函数)、MONTH()函数(求月函数)、DAY()函数(求日函数)输出生日中的年、月、日。 操作命令： _ 结果： _,2.2 实验内容,2.2.4 常用函数的使用,(3)用TIME()函数将系统时间保存在变量xtTime中，并显示该变量的值。 操作命令： _ 结果： _ (4)用DATETIME()函数将系统日期和时间保存在变量xtdt中，并显示该变量的值。 操作命令： _ 结果： _ (5)用DOW()函数求2008年10月1日是星期几。 操作命令： _ 结果： _,2.2 实验内容,2.2.4 常用函数的使用,在
7、“命令”窗口输入并执行相应命令，实现以下功能： (1)用STR()函数将数字2.718转变成字符串，并保留2位小数，结果放在变量newstr中，然后输出newstr的值。 操作命令： _ 结果： _ (2)用VAL()函数将字符串555.55和555K55转变成数值，并输出结果。 操作命令： _ 结果： _,2.2 实验内容,2.2.4 常用函数的使用,(3)用CTOD()函数将字符串1988/06/08转变成日期。 操作命令： _ 结果： _ (4)用DTOC()函数将日期1987/05/15转变成字符串。 操作命令： _ 结果： _ (5)用CHR()函数求ASCII码值68所对应的字符。
8、 操作命令： _ 结果： _,2.2 实验内容,2.2.4 常用函数的使用,在“命令”窗口输入并执行相应命令，实现以下功能： (1)用BETWEEN()函数分别测试数字5和6是否在15之间。 操作命令： _ 结果： _ (2)用EMPTY()函数分别测试数字0和字符串 是否为空。 操作命令： _ 结果： _ (3)先将某一月份值存放在变量mm中，然后用INLIST()函数测试这个月是否是大月。 操作命令： _ 结果： _,2.2 实验内容,2.2.4 常用函数的使用,(4)用MAX()函数测试数字2，6，17，3，9中的最大值。 操作命令： _ 结果： _ (5)用MIN()函数测试数字2，6
9、，17，3，9中的最小值。 操作命令： _ 结果： _,2.2 实验内容,2.2.4 常用函数的使用,【例2-4】使用MESSAGEBOX()函数生成一个对话框，在对话框中有3个按钮，并使用“问号”图标。 命令如下： ？MESSAGEBOX(请确定是否终止本系统的执行!,3+32,系统提示) 命令执行结果如图所示。,2.2 实验内容,2.2.4 常用函数的使用,与表有关的函数，见实验3.2.15。,IIF()、GETCOLOR()、GETFILE()、FILE()、CURDIR()、RGB()、HOME()、GETFONT() 可参考帮助文件或有关函数手册。,2.2 实验内容,2.2.4 常用
10、函数的使用,1写出以下逻辑表达式的值，并上机验证。 SQRT(9) *4=9 结果： _ bcDx1234 结果： _ not 2*714 结果： _ 4=4 and 52+3 结果： _ mn+xymnxy OR (NOT (2+3=5) 结果： _,2.2 实验内容,2.2.4 常用函数的使用,2写出下列各表达式的值，并上机验证。 (3*4+SQRT(25)/5)*4 结果： _ 若num=6，求IIF(num=3,6,VisualFoxPro)+STR(6.0,4,1)的值。 结果： _ UPPER(SUBSTR(VisualFoxPro,3,2) 结果： _ 若n=17，求INT(n/
11、7)=n/7 or 7$ STR(n)的值。结果： _ AT(1,STR(123123231),2) 结果： _,2.2 实验内容,2.2.4 常用函数的使用, MOD(YEAR(CTOD(12/23/99),2) 结果： _ ALLTRIM(STR(3)+STR(3) 结果： _ DTOC(1999/12/23+2)+2 结果： _ ROUND(12345.678,-2) 结果： _ INT(12.34*2)%ROUND(3.14,0) 结果： _,2.2 实验内容,2.2.4 常用函数的使用,3上机执行下述命令，熟悉相关函数及运算符的功能。 B=DTOC(DATE(),1) ？今天是:+L
12、EFT(B,4)+年+IIF(SUBS(B,5,1) =0,SUBS(B,6,1), SUBS(B,5,2)+月+RIGHT(B,2)+日 结果： _,2.2 实验内容,2.2.4 常用函数的使用, DD=DATE() ？STR(YEAR(DD),4)+年+STR(MONTH(DD),2)+月 +STR(DAY(DD),2)+日 结果： _ ？VAL(SUBSTR(668899,5,2)+1 结果： _ ？SUBSTR(668899,3)-1 结果： _,2.2 实验内容,2.2.4 常用函数的使用, X=STR(12.4,4,1) Y=RIGHT(X,3) Z=&Y+&X ？Z,&Z 结果： _ W=Y+X ？W,&W 结果： _,
