计算机应用实习报告

1、计算机应用实践报告 说 明一、 计算机应用实践是本科教学重要的实践教学环节，是提高学生应用计算机能力的重要措施。所有参加计算机应用实践教学活动的学生都必须撰写实践报告二、 计算机应用实践报告的质量反映了计算机应用实践的教学质量，它是评定计算机应用实践成绩的主要依据之一。不交实践报告者不得参加实习成绩评定。三、 指导教师必须对学生的实践报告写出评语并在相应位置给出成绩并签字，否则本实践报告无效。四、 实践报告要求条理清晰，内容详尽，数据准确，字数不少于5000字。五、 计算机应用实践活动结束后请将本报告上交学院存档保存。计算机应用实践报告目录1.前言21.1.计算机应用实践的目的与要求21.2.

2、计算机应用实践的内容、方式及安排时间22.vb电子时钟52.1.visual basic语言的特点52.2.数字时钟62.2.1.设计要求及主要功能62.2.2.界面设计62.2.3.核心算法及代码62.3指针时钟82.3.1. 设计要求及主要功能82.3.2. 界面设计82.3.3. 核心算法及代码92.4倒记时112.4.1. 设计要求及主要功能112.4.2. 界面设计112.4.3. 核心算法及代码122.5 vb电子时钟183. vb抽奖193.1.设计要求及主要功能193.2.界面设计193.3核心算法及代码194.excel214.1电子表格软件的特点214.2题目要求214.3

3、内容及格式要求224.4任务的提出224.5数据的搜集、整理225.总结251. 前言1.1. 计算机应用实践的目的与要求本课程是学生在接受了计算机第一层次（计算机文化基础）和第二层次（visual basic语言）的教育后，为了检验和提高学习效果，完善和丰富已有的知识体系，提高学生的自学能力和计算机应用能力而开设的一门实践性课程。本课程采用以学生自学为主，教师答疑指导为辅的教学方式进行。教师指定学习内容、提出教学要求、安排教学进度，学生按教学进度进行自学和上机实践，结合教学内容的学习，按要求选择或接受指派具有实际意义的题目，并在指导教师指导下独立进行作业设计。通过计算机应用实践课的训练，可以

4、提高学生以下几个方面的能力：（1） 对常用办公软件的熟练使用及操作能力；（2） 信息的搜集和分析处理能力；（3） 使用计算机解决实际应用问题的能力；（4） 独立解决问题的能力和相互协调的能力。这种教学方式体现了以学生为主体的个性化教学思想，充分调动学生的主观能动性和学习的自觉性。要求学生做到：（1） 自学相关知识。实践中有些内容是在课堂上所没有讲解的，要求学生能自己查阅相关资料，掌握相关知识，指导教师给予必要的答疑和指导。计算机及其应用是当今科学技术发展最快的领域，知识的更新换代非常快，要求学生必须具有较强的自学能力，要能够敏感的感知、学习和掌握新知识。（2） 独立完成任务。要独立的完成材料的

5、搜集、整理、处理和分析，独立编写软件，独立编写实践报告，严禁抄袭。在可能的情况下，实现每人一题。（3） 发扬互帮互助，协作完成任务的精神。在强调独立完成任务的同时，鼓励相互帮助与学习，善于同他人配合完成任务。现代社会分工越来越细，所面临的任务越来越复杂，客观上要求人们要相互协作，相互沟通，共同完成所给定的任务。（4） 严格考勤制度，上机时每日签，非上机时间为自习及收集资料时间，上机时携带学生证。迟到、旷课行为按学校有关制度处理。1.2. 计算机应用实践的内容、方式及安排时间（一）visual basic程序设计（16学时）visual basic是常用的软件开发工具，具有简单、高效、普及率高等

6、特点。由于学生已经学习了该课程，因此在此主要是综合提高，进一步将学过的知识融会贯通，提高计算机编程能力。主要内容应包括（1） visual basic操作环境ide的基本操作，项目的概念，工程资源管理器的使用，项目的编译及分发等操作；（2） visual basic语言，包括变量、表达式、函数、流程控制等；（3） 常用控件的操作，包括按钮、文本框、组合框、图片框、时钟等;（4） 过程、事件、类等概念及应用。设计要求1. 设计一个指针式钟表，如下图所示。（1） 要有数字钟表；（2） 时针、分针、秒针采用不同的颜色和线型（3） 钟表设计在picturebox框内；（4） 背景可以采用图片或自己画；

7、（5） 具有声音开关；（6） 具有闹钟功能；（7） 启动时显示合理的指针状态。2. 设计一个抽奖程序（1）建立一个抽奖.mdb的数据库，将list.xls的excel文件中的数据导入到某个表，如student表中。（2）编写一个抽奖程序。程序运行后，单击“抽奖”，student表中的人员名单快速地显示在文本框中，“抽奖”变成“停止”，单击“停止”后，将抽中的人员名单加入到列表框中。要求：抽中的人员下次不能再被抽中。（一）excel电子表格 (16学时)excel电子表格软件是美国微软公司办公软件microsoft office的组件之一，它以表格形式的用户界面，为我们提供集数据处理、统计分析、

8、图表显示等多项功能于一体的操作环境。在学习了计算机文化基础课程之后，学生已掌握了windows环境下视窗界面的基本知识及word字处理软件的操作应用方法。在此基础上安排学生进行计算机应用实践课，学习和掌握电子表格软件excel 的各种功能和基本操作。1.学习内容：（1） 了解excel的运行环境，掌握excel应用程序的启动与退出方法。熟悉excel的人机操作界面，使用鼠标、键盘实现excel窗口、菜单及电子表格的操作。（2） 学习并掌握excel的基本概念和术语，包括：l excel窗口、工作簿、工作表l 单元格、活动单元格、填充柄、工作区、名字l 行标号、列标号、绝对地址、相对地址、混合地

9、址l excel的数据、函数、公式（3） 工作表的编辑操作、包括：数据录入、移动、复制、删除；数据查找与替换；插入行、列；删除行、列等（4） 公式和函数的使用。（5） 工作表格式化操作，包括：表格格式设置、数据格式设置、页面格式设置、打印设置等。（6） 多工作表与多工作簿的操作，包括：多窗口的使用与切换、多工作表的使用与切换、多工作簿的使用与切换、多工作表或多工作簿之间的数据操作等。（7） 数据处理，包括：对表格数据进行排序、筛选、分类汇总、数据合并运算等数据管理功能与数据统计分析处理。（8） 图表处理，包括：图标的建立、编辑、图表格式化及打印；图形绘制、编辑打印等。（9） 高级功能，包括：“

10、宏”操作、visual basic编程环境、添加按钮并与宏进行关联等。2. 设计的内容与要求（1） 自行选择一个需要解决的实际问题，题目应该来源于实践，有一定的现实意义，不能是书本上列举的示例，也不要雷同。针对该问题设计出相应的电子表格。（2） 要求一个工作表以上，每个表格至少包括30个以上单元格数据。（3） 独立完成对该表格的各项操作，包括数据整理、录入、编辑、运算、公式和函数的使用等。应使用到sum、average、int、max、index、match等函数，可以对表格数据进行排序、筛选等数据处理操作。（4） 必须有对表格中数据的排序操作（通过按钮进行）。（5） 对该表进行格式化处理并打

11、印输出。（6） 对该表建立相应的统计图标（必须包括图标）。（7） 对图表进行必要的分析。3. 实践报告（1） 报告格式原则上采用学校统一的模板。（2） 报告内容包括： 任务的提出 电子表格软件的特点 数据的搜集、整理 对表格数据的处理及分析 打印的表格及图标 结束语（1） 排版要求 有自动生成的目录 有页眉页脚 有页码。2. vb电子时钟2.1. visual basic语言的特点1. 在输入语句时，命令词、函数可以不必要区分大小写。2. 输入程序时要求一行一句、一句一行。但vb中允许使用复合语句行，既把几个语句放在一行中，各语句之间用冒号（：）格开。3. vb6.0中使用续行符是下划线（_）

12、。如果一个语句的末尾是下划线，则下行与该行属于同一个语句行。注意：续行符与它前面的字符之间至少有一个空格。篇程序时有时因为有些程序代码太长，为了提高程序的可读性我们就要用到续行符（_）2.2.数字时钟2.2.1.设计要求及主要功能要求显示当前日期：年、月、日、星期（中文），当前时间：时、分、秒2.2.2. 界面设计打开vb，单击工具箱中的标签按键，在form1窗口上新建3个标签，分别用来显示年、月、日，星期，时、分、秒，在点击时钟控件，在form1窗口上新建一个时钟控件。如图2.2.2-1所示（标签字体可设置大号）图2.2.2-12.2.3.核心算法及代码设置timer1的时间间隔为1秒，在运

13、行程序时启动：private sub form_load()timer1.interval = 1000timer1.enabled = trueend sub显示当前日期：年、月、日、星期（中文），当前时间：时、分、秒。双击timer1，编写程序，分别用不同字母如“s、m、h、d、w、mo、ye”代表当前日期：年、月、日、星期，当前时间：时、分、秒。用select case语句以“we”代表星期（中文），在label中分别显示出来。代码如下，运行结果如图2.2.2-2所示。private sub timer1_timer()s = second(now)m = minute(now)h =

14、hour(now)d = day(now)w = weekday(now)mo = month(now)ye = year(now)select case wcase 1we = 一case 2we = 二case 3we = 三case 4we = 四case 5we = 五case 6we = 六case 7we = 日end selectlabel1.caption = ye & 年 & mo & 月 & d & 日label2.fontsize = 18label2.caption = 星期 & welabel3.fontsize = 18label3.caption = h & 时

15、& m & 分 & s & 秒end sub图2.2.2-22.3指针时钟2.3.1. 设计要求及主要功能要求实现分针每秒都在变化、表盘美观、具有静音功能、秒针装饰效果（头、尾）、初始状态正确.2.3.2. 界面设计在form1窗口新建一个picture1控件、一个timer1控件，在vb时钟目录下新建images文件夹，里面放上几张装饰时钟的图片。图2.3.2-12.3.3. 核心算法及代码在picture1中1. 用scale函数定义坐标：picture1.scale (-1000, 1000)-(1000, -1000)2. 用circle函数画圆：picture1.circle (0,

16、 0), 9003. 用pset函数画点：picture1.pset (x(i), y(i)4. 用print函数写上数字：picture1.print 35. 用currentx、currenty函数定位：picture1.currentx = -80: picture1.currenty = 9006. 用drawwidth属性设置粗细：picture1.drawwidth = 47. 用line函数画指针：picture1.line (0, 0)-(a1, b1)1. 用sin、cos函数计算出各指针的针头位置具体代码如下，程序运行结果如图2.3.2-2所示private sub for

17、m_load()picture1.autoredraw = truepicture1.picture = loadpicture(app.path & images & 9.jpg)form1.picture = loadpicture(app.path & images & 5.jpg)timer1.interval = 1000timer1.enabled = trueend subprivate sub timer1_timer()picture1.autoredraw = falses = second(now)m = minute(now)h = hour(now)picture1.

18、clspicture1.height = 5000picture1.width = 5000picture1.scale (-1000, 1000)-(1000, -1000)picture1.circle (0, 0), 900dim x#(0 to 60), y#(0 to 60)for i = 0 to 60x(i) = sin(i / 60 * 2 * 3.141592653) * 900y(i) = cos(i / 60 * 2 * 3.141592653) * 900picture1.drawwidth = 4picture1.pset (x(i), y(i)next ipictu

19、re1.pset (0, 0)picture1.currentx = -80: picture1.currenty = 900picture1.fontsize = 16picture1.print 12picture1.currentx = 830: picture1.currenty = 60picture1.fontsize = 16picture1.print 3picture1.currentx = -30: picture1.currenty = -780picture1.fontsize = 16picture1.print 6picture1.currentx = -885:

20、picture1.currenty = 70picture1.fontsize = 16picture1.print 9picture1.currentx = 400: picture1.currenty = 790picture1.fontsize = 16picture1.print 1picture1.currentx = -500: picture1.currenty = 780picture1.fontsize = 16picture1.print 11picture1.currentx = 700: picture1.currenty = 480picture1.fontsize

21、= 16picture1.print 2picture1.currentx = -780: picture1.currenty = 480picture1.fontsize = 16picture1.print 10picture1.currentx = 700: picture1.currenty = -380picture1.fontsize = 16picture1.print 4picture1.currentx = -760: picture1.currenty = -380picture1.fontsize = 16picture1.print 8picture1.currentx

22、 = 400: picture1.currenty = -660picture1.fontsize = 16picture1.print 5picture1.currentx = -460: picture1.currenty = -660picture1.fontsize = 16picture1.print 7a2 = sin(m * 60 + s) * 2 * 3.141592653 / 3600) * 800b2 = cos(m * 60 + s) * 2 * 3.141592653 / 3600) * 800picture1.drawwidth = 3picture1.line (0

23、, 0)-(a2, b2)a3 = sin(h * 3600 + m * 60 + s) * 2 * 3.141592653 / 12 / 3600) * 450b3 = cos(h * 3600 + m * 60 + s) * 2 * 3.141592653 / 12 / 3600) * 450picture1.drawwidth = 5picture1.line (0, 0)-(a3, b3)a1 = sin(s * 2 * 3.141592653 / 60) * 800b1 = cos(s * 2 * 3.141592653 / 60) * 800picture1.drawwidth =

24、 2picture1.line (0, 0)-(a1, b1)picture1.drawwidth = 1picture1.circle (a1, b1), 20end sub图2.3.2-12.4倒记时2.4.1. 设计要求及主要功能要求：（1） 显示距离设定时间的整数天、时、分、秒， （2）到时后提示（声音、图象、对话框等） （3）具体时间可以设定 （4）容错处理2.4.2. 界面设计在form1窗口上创建11个标签、6个文本框、2个命令按钮、2个timer控件，一个音乐播放控件，一个图片框，其中一个标签用来显示倒计时天数，3个用来显示当前日期，文本框用来输入时间，命令按钮一个用来启动倒计

25、时，一个用来倒数10秒，如图2.4.2-1所示图2.4.2-12.4.3. 核心算法及代码1. second(now)、minute(now)、h = hour(now) 、day(now) 、weekday(now)、 month(now)函数取出当时时间2. msgbox函数用来实现出错提示和时间到提示3. dateserial函数：数值型转变为日期型，实现设定具体时间功能4. timeserial 、datediff函数：计算2日期间的间隔时间，实现倒计时功能5. picture1.picture属性实现图像提示功能6. windowsmediaplayer1.url属性实现声音提示功能

26、dim k1, k2 as dateprivate sub form_load()timer1.interval = 1000timer1.enabled = trueend subprivate sub timer1_timer()s = second(now)m = minute(now)h = hour(now)d = day(now)w = weekday(now)mo = month(now)ye = year(now)select case wcase 1we = 一case 2we = 二case 3we = 三case 4we = 四case 5we = 五case 6we =

27、 六case 7we = 日end selectlabel9.fontsize = 18label9.caption = ye & 年 & mo & 月 & d & 日label10.fontsize = 18label10.caption = 星期 & welabel11.fontsize = 18label11.caption = h & 时 & m & 分 & s & 秒end subprivate sub command1_click()timer3.enabled = falsedim r, l, m, n%, x1, x2, x3, x4, x5, x6!x1 = val(text

28、1.text)x2 = val(text2.text)x3 = val(text3.text)x4 = val(text4.text)x5 = val(text5.text)x6 = val(text6.text)1. 容错处理（1）用户日期填得不完整：if x1 = 0 or x2 = 0 or x3 = 0 or x4 = 0 or x5 = 0 or x6 = 0 thenn = msgbox(日期不完整！请输入完整, 68, 日期错误)end if（2）用户月份容错处理：if x2 12 thenr = msgbox(月份输入有误！请重新输入, 68, 日期错误)end if（3）用户

29、日期容错处理：select case x2case 1, 3, 5, 7, 8, 10, 12if x3 31 thenl = msgbox(日期输入有误！请重新输入, 68, 日期错误)end ifcase 4, 6, 9, 11if x3 30 thenl = msgbox(日期输入有误！请重新输入, 68, 日期错误)end if（4）闰年2月天数容错处理：case 2if x1 mod 4 = 0 and x1 mod 100 0 and x3 29 thenl = msgbox(日期输入有误！请重新输入, 68, 日期错误)elseif x1 mod 400 = 0 and x3 2

30、9 thenl = msgbox(日期输入有误！请重新输入, 68, 日期错误)elseif x1 mod 4 0 and x3 28 thenl = msgbox(日期输入有误！请重新输入, 68, 日期错误)elseif x1 mod 100 = 0 and x1 mod 400 0 and x3 28 thenl = msgbox(日期输入有误！请重新输入, 68, 日期错误)end ifend select（5）小时容错处理：if x4 24 or x4 60 or x5 60 or x6 0 thenm = msgbox(时间输入有误！请重新输入, 68, 时间错误)end ifse

31、lect case rcase 7timer2.enabled = falsecase 6exit subend selectselect case lcase 7timer2.enabled = falsecase 6exit subend selectselect case mcase 7timer2.enabled = falsecase 6exit subend selecttimer2.interval = 1000timer2.enabled = trueend sub2. 倒数10秒private sub command2_click()timer1.enabled = fals

32、ek1 = dateserial(year(now), month(now), day(now)k2 = timeserial(hour(now), minute(now), second(now) + 10)text1.text = year(k1)text2.text = month(k1)text3.text = day(k1)text4.text = hour(k2)text5.text = minute(k2)text6.text = second(k2)timer1.interval = 1000timer1.enabled = truetimer3.interval = 1000

33、timer3.enabled = trueend sub3. 倒计时private sub timer2_timer()dim x1, x2, x3, x4, x5, x6, x7, x8, x9, x10!x1 = val(text1.text)x2 = val(text2.text)x3 = val(text3.text)x4 = val(text4.text)x5 = val(text5.text)x6 = val(text6.text)date1 = dateserial(x1, x2, x3)date2 = dateserial(year(now), month(now), day(

34、now)x7 = datediff(d, date2, date1)time1 = timeserial(x4, x5, x6)time2 = timeserial(hour(now), minute(now), second(now)x8 = datediff(h, time2, time1)x9 = datediff(n, time2, time1) - x8 * 60x10 = datediff(s, time2, time1) - x8 * 3600 - x9 * 60if x10 0 thenx10 = x10 + 60x9 = x9 - 1end ifif x9 0 thenx9

35、= x9 + 60x8 = x8 - 1end ifif x8 0 thenx8 = x8 + 24x7 = x7 - 1end ifif x7 0 thenx7 = 0x8 = 0x9 = 0x10 = 0end iflabel8.caption = x7 & 天 & x8 & 时 & x9 & 分 & x10 & 秒if x7 = 0 and x8 = 0 and x9 = 0 and x10 = 0 thenpicture1.picture = loadpicture(app.path & images & 4.jpg)windowsmediaplayer1.url = app.path

36、 & music & 2.mp3m = msgbox(时间到！, 49, 倒计时)select case mcase 1timer2.enabled = falsecase 2exit subend selectend ifend subprivate sub timer3_timer()dim x7, x8, x9, x10, m!date1 = dateserial(year(now), month(now), day(now)date2 = dateserial(year(now), month(now), day(now)x7 = datediff(d, date2, date1)ti

37、me1 = timeserial(hour(k2), minute(k2), second(k2)time2 = timeserial(hour(now), minute(now), second(now)x8 = datediff(h, time2, time1)x9 = datediff(n, time2, time1) - x8 * 60x10 = datediff(s, time2, time1) - x8 * 3600 - x9 * 60if x10 0 thenx10 = x10 + 60x9 = x9 - 1end ifif x9 0 thenx9 = x9 + 60x8 = x

38、8 - 1end ifif x8 0 thenx8 = x8 + 24x7 = x7 - 1end ifif x7 0 thenx7 = 0x8 = 0x9 = 0x10 = 0end iflabel8.caption = x7 & 天 & x8 & 时 & x9 & 分 & x10 & 秒if x7 = 0 and x8 = 0 and x9 = 0 and x10 = 0 thenpicture1.picture = loadpicture(app.path & images & 4.jpg)windowsmediaplayer1.url = app.path & music & 2.mp

39、3m = msgbox(时间到！, 49, 倒计时)select case mcase 1timer3.enabled = falsecase 2exit subend selectend ifend sub程序运行如图2.4.2-2，图2.4.2-3所示图2.4.2-2 图2.4.2-32.5 vb电子时钟界面设计容错处理表盘设置具体时间倒计时指针变化指针时钟数字时钟倒数10秒美化编译代码运行调试保存将数字时钟、指针时钟、倒计时综合起来，再在form1窗口上用菜单编辑器添加“背景音乐”、“时钟背景”菜单选项，将放置背景图片的images文件夹和放置背景音乐的music文件夹与生成的vb工程放

40、在相同目录下，就做成了vb电子时钟，设计界面如图2.5-1所示，程序运行界面如图2.5-2所示图2.5-1图2.5-23. vb抽奖3.1. 设计要求及主要功能（1）建立一个抽奖.mdb的数据库，将list.xls的excel文件中的数据导入到某个表，如student表中。（2）编写一个抽奖程序。程序运行后，单击“抽奖”，student表中的人员名单快速地显示在文本框中，“抽奖”变成“停止”，单击“停止”后，将抽中的人员名单加入到列表框中。要求：抽中的人员下次不能再被抽中。3.2.界面设计在form1上创建6个标签，分别显示“参加抽奖人员”、显示参加抽奖的人、“中奖人数”、显示中奖的人数、“中

41、奖人员”、“幸运抽奖”，一个列表框，3个命令按钮，1个timer， 如图3.2-1所示图3.2-13.3核心算法及代码在“工程”中的“引用”中选中microsoft activex data objects 2.0 library，将cj、db1文件与vb抽奖工程放在同一目录下，程序运行如图3.2-2所示dim cn as new adodb.connectiondim rs as new adodb.recordsetprivate sub command1_click()label5.forecolor = &hff&if command1.caption = 开始抽奖 thencomma

42、nd1.caption = 停止elsecommand1.caption = 开始抽奖list1.additem (label3.caption)rs.delete adaffectcurrentlabel5.caption = list1.listcountmsgbox label3.caption & 中奖拉！, , 中奖了end iftimer1.enabled = not timer1.enabledend subprivate sub command2_click()list1.clearlabel3.caption = rs.closecn.closecn.open provide

43、r=microsoft.jet.oledb.4.0;data source = & app.path & db1.mdbrs.open student, cn, 1, 3end subprivate sub command3_click()endend subprivate sub form_load()label1.forecolor = &hff&label6.forecolor = &hff&timer1.interval = 30timer1.enabled = falsecn.open provider=microsoft.jet.oledb.4.0;data source = &

44、app.path & db1.mdbrs.open student, cn, 1, 3end subprivate sub form_unload(cancel as integer)rs.closecn.closeend subprivate sub timer1_timer()randomizelabel3.caption = rs.absoluteposition = int(rnd * (rs.recordcount) + 1)for i = 2 to rs.fields.count - 1label3.caption = label3.caption & rs(i)nextend sub图3.2-24.excel4.1电子表格软件的特点ex