101011111011计算机技术基础实验指导.doc

计算机技术基础实验指导书目录第一部分上机实验的指导思想和要求1第二部分、实验内容2实验一Visual FoxPro基础知识与常用函数2实验二表达式与内存变量4实验三数据表的建立6实验四数据表的操作命令8实验五数据表的排序与索引，查询与统计9实验六表间的操作，数据库的创建维护、数据字典11实验七查询，视图，SQL语句12实验八SQL语句13实验九选择结构程序设计14实验十 循环程序设计15实验十一模块结构程序设计16实验十二面向对象程序设计17实验十三表单的创建19实验十四实用表单设计20实验十五报表设计21实验十六菜单设计22第一部分上机实验的指导思想和要求，上机实验的目的上机实验的目的，绝不仅是为了验证教材和课堂上讲授的内容，或者验证自己所编写的程序的正确与否。学习程序设计，上机实验应达到以上目的：（）加深对讲授内容的理解，尤其是一些语法规定。通过上机来掌握语法规则是行之有效的方法。（）熟悉所用的操作系统。（）学会上机调试程序。通过反复上机掌握根据出错信息修改程序的方法。，上机实验前的准备工作。（）了解所用的计算机系统（包括Visual FoxPro系统）的性能和使用方法。（）复习和掌握与本实验有关的教学内容，设计好上机操作步骤。（）准备好上机所需的程序，切忌不编程序或抄别人的程序去上机。（）对实验中出现的问题应事先估计，对程序中自己有疑问的地方应先作上记号，以便上机时给予注意。，上机实验的步骤上机实验应一人一组，独立实验。上机过程中出现的问题，除了是系统的问题以外，不要轻易举手问老师。尤其对“出错信息”，应善于分析判断。上机实验一般应包括以下几个步骤：（）打开实验指导书，阅读实验目的、内容和要求（）进入Visual FoxPro系统（通过执行“开始/程序/Microsoft Visual Studio 6.0/ Microsoft Visual FoxPro 6.0”或执行文件：“C:Program Files Microsoft Visual StudioVFP98VFP6.exe”）（）通过执行“文件”菜单中的“新建”命令建立各种文件，或直接在命令窗口中输入各种命令。，写好实验报告实验报告应包括以下内容：（）实验目的。（）实验内容。（）对操作题要求写出完成的内容及主要操作步骤，对程序设计题或表单设计题要写出程序清单或相关属性、代码等。（）运行结果分析：要写出是否达到了实验目的，给出运行结果并对结果进行分析。第二部分、实验内容实验一Visual FoxPro基础知识与常用函数一、实验目的1，熟悉Visual FoxPro6.0的基本操作，启动与退出。2，了解环境变量的设计方法3，熟悉函数的调用方法及函数的功能。二、实验内容1，进入Visual FoxPro6.0，了解其界面，各菜单的内容及主要功能，和EXCEL比较有何不同。2，设置默认目录：单击“工具”菜单中的“选项”命令，在“文件位置”选项卡中选择“默认目录”，单击“修改”按钮，然后输入默认目录，或单击其右边的.按钮选择相应的文件夹，确定后单击“设置为默认值”，关闭对话框。3，先初步估计每个命令的执行结果，然后在命令窗口中输入以下命令，每输入完一个后按回车键，然后观察命令执行结果是否与你的估计相同，若不相同，则分析其原因并记录在实验报告上。1），数值处理函数在命令窗口中输入以下内容（其中的标点符号全部均为半角字符）说明?int(123.56)?int(-123.56)取整函数?sqrt(9)求平方根?mod(100,3)?mod(100,-3)?mod(-100,3)?mod(100,-3)求余数，结果符号与第二个参数相同?round(15.235,2)?round(15.235,0)?round(78.56,-1)四舍五入函数?abs(-5)绝对值?exp(1)?exp(2)以e为底的指数函数?log(10)?log(exp(1)自然对数?max(12,3)?min(1,2,3)最大值与最小值函数2），常用的字符表达式测试函数在命令窗口中输入以下内容说明？AT(A,ABCDA)? AT(A,ABCDA,2)返回第1个中的字符串在第2个参数中的字符串中从左数第N次出现的位置? RAT (A,ABCDA)? RAT(A,ABCDA,2)返回第1个中的字符串在第2个参数中的字符串中从右数第N次出现的位置？LEN（ABCDE）? LEN(数学系)字符串的长度? isalpha(abcd1234)? isalpha(12asd)? isalpha(数学系)判断第1个字符是否为字母? isdigit(abcd1234)? isdigit (12asd)? isdigit (数学系)判断第1个字符是否为数字? islower(abcd)? islower(ADSF)? islower(1234)判断第1个字符是否为小写字母? isupper(abcd)? isupper (ADSF)? isupper (1234)判断第1个字符是否为大写字母3），字符串处理函数在命令窗口中输入以下命令说明c=Beijing University?substr(c,4)?substr(c,4,3)?substr(嘉应学院,1,4)substr(c,n,m):从字符串C的第n个字符开始截取字符，1个汉字为2个字符? left(c,7)?left(嘉应学院,4)left(C,n)：从C的左边开始截取n个字符? right(c,10)?right(嘉应学院,4)从右边开始截取?len(c)?len(嘉应学院)求字符串的长度d= FoxPro ? Visual+trim(d)+6.0trim：去掉字符串尾部的空格? Visual+ltrim(d)+6.0ltrim：去掉字符串头部的空格? Visual+rtrim(d)+6.0rtrim：去掉字符串尾部的空格? Visual+alltrim(d)+6.0alltrim：去掉字符串头部和尾部的空格? 1+space(4)+2space(n)：着重n个空格?lower(d)?d?upper(d)?d将d中字符全部转换成小写字母将d中字符全部转换成大写字母4），日期与时间函数在命令窗口中输入以下命令说明TODAYDATE()?TODAY返回系统当前日期?TIME()?DATETIME()返回系统当前时间返回系统当前日期与时间?YEAR(TODAY)返回年份?DAY(TODAY)返回参数中的日期?CMONTH(TODAY)返回参数中的月份（英文）?MONTH(TODAY)返回参数中的月份（数字）?DOW(TODAY)返回星期（数字）?CDOW(TODAY)返回星期（英文）实验二表达式与内存变量一、实验目的1，熟悉通过命令窗口求表达式的值的方法2，熟悉内存变量的使用方法二、实验内容通过命令窗口完成下列各题1，求出下列表达式的值（1）ASC(A)ASC(B) (2) ASC(2)MAX(-11,22.2) (5) MOD(22,5)MIN(-22.2,22)（6）ISDIGIT(123) .AND. ISLOWER(FOXPRO)（7） Y=UPPER(y) (8) STR(223.22,6,2)+32 操作方法：在命令窗口中先输入问号：？，然后输入表达式。如第（1）题在命令窗口中输入：? ASC(A)9007，显示zgda表中所有性别为“女”的记录操作方法：list for性别=女8，将zgda表中所有职工的年龄增加3岁，基本工资增加1成操作方法：replace all 年龄 with 年龄+3,基本工资with 基本工资*1.1实验五数据表的排序与索引，查询与统计一、实验目的1，熟悉对表进行物理排序的方法2，熟悉索引的建立和使用方法3，熟悉数据表的查询与统计命令二、实验内容1，将zgda表中的所有记录先按性别再按基本工资的降序进行物理排序，并把排序结果保存到xbgzpx中。操作方法：use zgdasort on 性别，基本工资/DTOXBGZPZUSEXBGZPZLIST 2，将zgda表中的所有记录按姓名进行物理排序，并把排序结果保存到xmpx中。操作方法：USEZGDASORTON姓名TOXMPXUSEXMPXDIAPLAYALL3，将zgda表中的所有记录按出生日期先后排序，生成只包含姓名、性别和出生日期3个字段的csrqpx.dbf文件操作方法：USEZGDASORTON出生日期TOCSRQPXFIELDS姓名，性别，出生日期USECSRQPXBROW4，对zgda表中的所有记录按出生日期先后排序建立索引文件：csrqsy操作方法：USEZGDAlistINDEX ON 出生日期 to csrqsylist5，对zgda表中的所有记录先按性别再按基本工资的降序进行排列建立单索引文件：xbgzsy操作方法：USEZGDAindex on 性别STR（5000基本工资，7,2）TOXBGZSYLIST6，为zgda表建立一个结构复合索引文件，包含一个按姓名索引的标识XM和一个按性别与日期索引的标识：xbcsrq，再创建一个名为zgzc的非结构复合索引文件，包含一个按职称索引的标识ZC操作方法：USEZGDAlistINDEX ON 姓名 TAG XMlistINDEX ON 性别+DTOC(出生日期,1) TAG ZGZClistINDEX ON 职称 TAG ZC OF ZGZC list7，用LOCATE命令查找zgda表中职称为“高工”的女职工操作方法：USEZGDAlistlocate for 性别=女 and 职称=高工displaycontinuedisplay8，求zgda表中的平均基本工资、女职工的基本工资总额、女职工的人数操作方法：USEZGDAaverage 基本工资 to 平均基本工资? 平均基本工资sum 基本工资 for 性别=女count for 性别=女 to rs?rs实验六表间的操作，数据库的创建维护、数据字典一、实验目的1，熟悉多工作区的操作，表的物理连接与逻辑连接2，熟悉数据库的建立与向数据库中添加表的方法，数据库表间建立关联的方法3，熟悉字段属性的设置方法和字段的有效性规则的设置方法二、实验内容1，在第1个工作区中打开zgda表，在第2个工作区中打开职工工资：zggz表（先从math0student下将文件复制到“我的文档”文件夹中）操作方法：select 1use zgdalistselect 2use zggzlist2，从math0student下将文件zjgz.dbf复制到“我的文档”文件夹中，然后以此表对职工档案表zgda中有关职工的基本工资数据进行更新:基本工资为原基本工资zjgz中的增资额操作方法：close alluse zgdaINDEX ON 编号 TAG BHSELECT BUSE ZJGZINDEX ON 编号 TAG ZJ_BHSELECT Aupdate on 编号 from zjgz replace 基本工资with 基本工资+b.增资额list3，将职工档案表zgda中的字段：姓名、性别、职称和基本工资，及职工工资表zggz中的应发工资和实发工资两个字段共6个字段组成一个职工情况数据表：zgqk.dbf操作方法：close allselect buse zggzselect ause zgdajoin with b to zgqk for b.姓名=姓名 FIELDS姓名，性别，职称，基本工资，B.应发工资，B.实发工资use zgqklist4，建立一个名为“教学管理”的数据库，然后将“学生表”和“成绩表”添加到该数据库。5，在学生表中以“学号”为主关键字建立一个主索引，在成绩表中以学生主关键字建立一个普通索引，在学生表和成绩之间按学号建立一个永久关系。6，设置学生表的字段有效规则如下：性别必须为“男”或“女”，成绩必须小于或等于100，学号的默认值为2000101，性别的默认值为“男”。实验七查询，视图，SQL语句一、实验目的1，熟悉查询的建立方法2，熟悉视图的建立方法3，掌握用SQL语句建立表结构的方法。二、实验内容1，在“教学管理”数据库中，查询外语成绩在80分及以下的女同学，并按外语成绩从高到低的顺序输出其学号、姓名和外语成绩，将结果以默认文件名保存到“我的文档”文件夹中。操作方法：使用查询设计器2，从“教学管理”数据库的学生表和成绩表中，抽取出学号、姓名、性别、外语和计算机5个字段组成一个名为“视图2”的SQL视图。操作方法：使用视图设计器3，创建一个名为“通信录”的自由表，含有以下字段：姓名 C(8)，生日D，家庭电话C（14），手机号码C（12）要求：使用SQL语句完成操作方法：create table 通信录(姓名 C(8),生日 D,家庭电话 C(14), 手机号码 C(12)4，创建一个名“商品管理”的数据库，在此数据库中创建一个名为“商品”的数据表，该表含有以下5个字段：商品号C（8），商品名称C（16），单价N（8,2），数量N（4），供应商号C（8）期中商品号的默认值为“JP_10000”，数量的有效范围在10到5000之间，设定供应商号为主索引。操作方法：create database 商品管理create table 商品(商品号 C(8) default JP_1000,商品名称 C(16),;单价 N(8,2),数量 N(4) check 数量=10 and 数量=80)7，使用SQL命令，列出外语、数学、计算机三门课程总分在220以上的男生记录select * from 学生表 where 性别=男 and 学号 in (select 学号 from 成绩 where 外语+数学+计算机220)或select * from 学生表 where 性别=男 and 学号 not in (select 学号 from 成绩 where 外语+数学+计算机=80;order by 数学 desc9，检索外语成绩在80分及以上并且年龄在21岁以下的学生,列出其姓名、性别、年龄和外语成绩。select a.姓名,性别,年龄,外语 from 学生表 a,成绩表 b where a.学号=b.学号 and 外语=80 and 年龄2110，统计“成绩表”中数学的最高成绩、外语的最低成绩和计算机的平均成绩select max(数学) as 数学最高分,min(外语) as 外语最低分,avg(计算机) as 计算机平均分 from 成绩表11，查询学生表中年龄最小的学生的出生日期和男生的平均年龄select max(出生日期) from 学生表select avg(年龄) from 学生表 where 性别=男12，统计学生表中各种政治面貌的人数select 政治面貌,count(*) from 学生表 group by 政治面貌13，统计出学生表中,男生的不同籍贯的人数,并列出其第1个人的姓名和籍贯。select 姓名,籍贯,count(*) from 学生表 where 性别=男group by 籍贯 having count(*)=114，统计学生表和成绩表中男生中数学、外语和计算机的最高分与女生中数学、外语和计算机的最高分select 性别,max(数学),max(外语),max(计算机) from 学生表,成绩表where 学生表.学号=成绩表.学号 group by 性别实验九选择结构程序设计一、实验目的1，熟悉应用程序建立、编写、修改、调试的基本方法。2，熟悉IF ELSE ENDIF 结构的应用。3，熟悉DO CASE 结构的应用。二、实验内容1，编程求下面分段函数的值(其中自变量x的值由键盘输入)。程序提示：使用input语句输入变量x的值使用if语句求y的值，格式如下：if x0 y=x2 else if x=1 y=sin(x) else y=1-2*x endifendif输出x与y的值2，编程求一元二次方程的根。程序提示：使用input语句输入一元二次方程的系数：a,b,cif a=0 输出“不是一元二次方程”cancelendifdisc=b2-4*a*cif disc0 输出“方程无实根”或输出实部和虚部else 求出方程的根并输出endif3，从键盘输入成绩，然后根据下面标准给出等级成绩(要求用DO CASE语句完成) 成绩 等级90100 A 80-69 B 70-79 C 60-69 D =90输出“等级为A”case score=80输出“等级为B”case score=70输出“等级为C”case score=60输出“等级为D”OTHERWISE输出“等级为A”ENDCASE实验十 循环程序设计一、实验目的：熟悉SCANFORDOWHILE循环结构的应用。二、实验内容：1，用FOR循环语句编程求1！2！n! 程序提示：p=1输入n的值for i=2 to n p=p*i sum=sum+pendfor 输出sum2，编程求学生表中入学成绩大于550的人数(用SCAN语句)程序提示：打开表sum=0scan for 成绩=75sum=sum+1endscan输出sum关闭表3，由键盘输入多串字符，每个字符串输入完成后给一 个选择提示：“是否继继续(Y/N？),若输入Y或y则继续，否则退出输出字母个数和数字个数。程序提示：y=ydo while y=y or y=Y accept 输入一个字符串: to s for i=1 to len(s) &对s中的每一个字符 c=substr(s,i,1)&c为s中的第i个字符 if c=A and c=a and c=0 and c=9 &如果是数字，则数字个数加1 sum1=sum1+1 endif endfor wait 是否继续？(Y|N) to yenddo输出字母个数和数字个数实验十一模块结构程序设计一、实验目的：熟悉过程与自定义函数的定义与调用方法。二、实验内容1，用FOR循环语句编程求1！2！n!，其中i!用过程实现程序提示：输入n的值sum=0for i=1 to ndo factorialsum=sum+tendfor? sumprocedure fautorialpublic tt=1for j=1 to it=t*jnextreturn2，用DO WHILE循环语句求2!+4!+6!+.+(2n) !，其中(2i) !用自定义函数实现程序提示：输入n的值sum=0i=2do while i=2*nsum=sum+f(i) i=i+2enddo? sumfunction fparameters mt=1for j=1 to mt=t*jnextreturn实验十二面向对象程序设计一、实验目的与要求1，熟悉用程序建立表单对象的方法2，熟悉用类定义DEFINECLASS程序方式建立表单对象的方法。二、实验内容1, 建立一个新类，类名为myclass1,基类为CommandButton，类文件名为myclass。对类作如下修改：(1)，将Command1的Caption属性改为关闭(2)，给Command1添加如下单击事件代码a=messagebox(你真的要退出系统吗？,20,对话窗口)if a=6 release thisformendif 2, 用命令方式创建一个类，其基类为form，并向类中添加一个按钮，添加上题中按钮相同的代码操作方法：建立一个程序文件，输入以下代码set classlib to myformmyform=createobject(myform)myform.showread events &启动事件处理define class myform as formvisible=.t.backcolor=rgb(128,128,0)caption=我的表单left=20top=10height=223width=443add object comm1 as commandbutton;with caption=关闭,; left=300,; top=150,; height=25,; width=60 procedure comm1.click a=messagebox(你真的要关闭表单吗？,20,对话窗口) if a=6 release thisform endif endprocenddefine 3，使用程序设计一个名为“form1”的表单对象，表单中包含一个关闭命令按钮，当单击关闭命令时关闭表单操作方法：建立一个程序文件，输入以下代码form1=Createobject(myform)form1.show(1)define class myform as formvisible=.t.backcolor=rgb(128,128,0)caption=我的表单left=20top=10heigth=223width=443add object comm1 as commandbutton;with caption=关闭,;left=300,;top=150,;heigth=25,;width=60procedure comm1.click a=messagebox(你真的要关闭表单吗？,20,对话窗口) if a=6 release thisform endifendprocenddefine实验十三表单的创建一、实验目的与要求1，熟悉表单向导的使用方法。2，熟悉“表单控件工具栏”、“表单设计器”等使用方法。二、实验内容1，建立一个表单用于计算长方体的体积，表单界面如下：操作方法:建立一个空白表单，向表单中添加4个标签控件，修改其caption属性添加4个文本框，修改其value属性值为0.0添加两个命令按钮，修改其caption属性双击“计算”按钮，添加如下代码a=thisform.text1.valueb=thisform.text2.valueh=thisform.text3.valuethisform.text4.value=a*b*hthisform.refresh关闭代码窗口双击“退出”按钮，添加如下代码thisform.release关闭代码窗口运行表单2，设计一个求n!的表单，其中n用文本框输入。操作方法：建立一个空白表单，向表单中添加2个标签控件，修改其caption属性添加2个文本框，一个用于输入n的值，另一个用于显示n!的值，修改其value属性值为0.0添加两个命令按钮，修改其caption属性双击“计算”按钮，添加如下代码n=thisform.text1.valuep=1for i=2 to np=p*inextthisform.text2.value=pthisform.refresh退出按钮的代码与1题相同实验十四实用表单设计一、实验目的1，掌握表单设计的基本方法2，掌握通过表单对数据表进行操作的方法。二、实验内容设计一个表单，用于对表进行各种操作，包括通过按钮实现对表的浏览、输入与修改数据、添加记录、删除记录、按姓名或编号查找记录。要求：自己设计表单界面，表单中一个界面只显示一个记录操作方法：1，建立一个空白表单2，打开数据环境，将表添加到数据环境中3，将数据环境中表的字段拖动到表单中，并调整其位置4，添加8个命令按钮，分别用于浏览的4个按钮：第一条、上一条、下一条、最后一条。用于其它操作的4个按钮：添加记录、删除记录、按姓名查询、按编号查询5，建立两个表单，分别用于按姓名查询和按编号查询：其操作方法为：S1：建立一个空表单，打开数据环境窗口，将rcda表添加到数据环境中S2：将字段拖动到相应位置中，并设置其字体与字号S3：添加一个标签控件和一个组合框控件，设置标签控件和caption属性为：编号，设置组合框控件的ControlSource属性与RowSource属性为rcda.编号, RowSourceType