2007-2008上《计算机应用基础与VB程序设计》实验项目
程序设计基础VB实验指导书
程序设计基础(Visual Basic)实验指导书西南林学院计算机与信息科学系实验说明一、实验文档下载：老师的实验上机文档下载的地址：/~hjp/下的“VB”文件夹拷贝到计算机中。
然后从该文件夹中找到本次实验的文档。
二、个人文件夹建立在实验前，请先在电脑桌面上建立个人自己的文件夹，名称以个人的姓名加学号组成。
如：“20130208001XXX”。
同学们自己个人的VB程序设计实验文档都存放在该文件夹中。
而且要求，每个实验都保存在单独的文件夹中。
如，本次实验有三个例子，那么就需要建立三个文件夹，第一个文件夹的命名可为“实验1-1”，如此类推。
相应的例子程序文件保存在相应的文件夹中。
三、实验结果上传给老师实验完成后，同学们需将自己的文件夹上传给老师，以备检查。
上传步骤如下。
1.压缩文件夹。
请将保存有VB实验上机程序的个人文件夹（在之前建立好的，如：“20130208001XXX”）进行压缩处理。
压缩方法如下：选中该文件夹，单击鼠标右键，选中“添加到“20130208001XXX.rar””。
计算机自动完成生成该文件夹的压缩文件。
2.进入FTP。
上传的地址为：ftp://192.168.1.2（或按任课老师指定的地址）,输入地址后进入该FTP网。
打开“XXX”文件（该文件夹以任课老师姓名而命名）下的“上传”文件夹。
3.上传文件。
将第一步中生成的压缩文件拷贝到第二步打开的“上传”文件夹中去。
等待拷贝完成后，才能确认程序上传成功。
四、实验内容说明本实验指导书共包含15次实验上机内容。
每次实验上机内容中包括三种题型：验证题、设计题和选做题。
验证题为教材中的例题，通过参考书上的说明和操作步骤来熟悉相应知识点，一般有1-2道题。
设计题为书上习题或其他来源的题目，目的是让学生能够在不照搬照抄的情况下自己独立思考完成VB程序设计，一般有1-2道。
选做题为学有余力的同学练习，一般有1-2道。
每次实验上机学生必须完成相应的验证题和设计题。
《程序设计基础—VB程序实验》
《程序设计基础—VB程序实验》说明：实验1和实验2均为电子实验报告，后面8个实验是纸制实验报告。
实验1 计算机基本操作实验目的⑴熟悉计算机，能够正确进行开、关机操作。
⑵熟悉键盘，掌握键盘上所有字符的输入，掌握正确的指法，能够进行中、英文切换。
⑶理解操作系统概念，掌握Windows XP的基本操作，能够利用“控制面板”进行一些参数的设置。
⑷知道“回收站”的功能，学会有关文件、文件夹的基本操作。
⑸学会在计算机上搜索或查找相关的文件或文件夹，掌握通配符的使用。
实验内容⑴熟悉上机实验的计算机，熟悉键盘，学会中、英文输入方式的转换。
⑵学会用正确的指法进行输入，知道键盘上所有字符的输入。
⑶利用“控制面板”修改系统时间、桌面背景、鼠标属性。
⑷在桌面上新建一个文件夹，该文件夹以学生自己的名字+班级+学号的后3位命名。
⑸用文本方式或Word文档，写一段字数不少于300字的自我介绍，以1.doc命名并保存到上述文件夹中。
⑹将上述文件夹复制到ftp://10.10.9.222上。
实验2 常用软件的基本操作实验目的⑴了解Word功能，掌握Word的基本操作，包括页眉/页脚的设置、分栏、页面设置、添加底纹等。
⑵学会文件的保存与打开、打印预览、段落的间隔、首字符位置改变等，能够在Word中插入图片、表格、艺术字、特殊符号等。
⑶了解Excel的功能，掌握Excel的基本操作，包括单元格属性的设置、数字的几种填充形式、单元格的合并与恢复、边框的设置等。
⑷掌握Excel的基本公式的使用，能够用公式进行基本计算。
掌握Excel中的图形制作方法，能够根据表格做出图形。
实验内容⑴将ftp上自己文件夹中的1.doc文件复制到桌面上，然后做如下处理：①将标题“自我介绍”居中；②将文章中第二段的内容进行分栏，要求中间有分割线；③插入一个4行4列的表格，内容为学号、姓名、某门课的成绩；④任意插入一张图片；⑤在文章中的任意位置加底纹。
将做好的文档以2.doc命名并保存。
《VB程序设计》课程标准
《VB程序设计》课程标准（课程代码：9802）制订人：审核人：审定：1、课程定位和课程设计1.1课程性质与作用《Visual Basic程序设计》是高职信息管理专业的基础课程，是《计算机应用基础》、《C语言》课程的后续课程。
通过本课程的学习，能使学生掌握程序设计的基本思想与方法，掌握结构化程序设计的内涵，理解对象、属性、事件和方法等重要概念，掌握Windows应用程序设计的基本方法，为通过全国计算机等级考试（二级VB）和学生毕业后从事相关专业职业岗位工作具备基本计算机应用能力打下坚实的基础。
课程类型：选修课教学时间安排：第4学期，共44学时，2学分1.2课程设计的理念该课程总体设计理念是，关注每个学生的情感，激发他们学习VB的兴趣，帮助他们建立学习的成就感和自信心，使他们在学习过程中发展计算机综合应用能力，提高人文素养，增强实践能力，培养创新精神。
加强学生的计算机应用意识，培养学生计算机综合应用能力。
将课程目标设定为三个级别，并以学生“能够做某事”具体描述各级别的要求，这种设计旨在体现学生能力发展循序渐进的过程和后续计算机相关课程要求的有机衔接。
本课程在目标设定、教学过程、课程评价和教学资源的开发等方面都突出以学生为主体的思想。
课程实施应成为学生在教师指导下构建知识、提高技能、磨砺意志、活跃思维、展现个性、发展心智和拓展视野的过程。
1.3课程设计思路（1）本课程的设计总体要求是：以就业为向导，以能力为本位，以职业实践为主线，以项目课程为主体，以计算机二级资格考试为考核依据，以务实基础、适应岗位为目标，尽可能形成模块化的专业课程体系。
（2）本课程以“培养用VB编写简单数据库的能力”为基本目标。
依据各学习项目的内容总量以及在该门课程中的地位分配各学习项目的课时数。
（3）具体学习项目的选择和编排以学习单元为基础，基本依据是：一是按照“认知VB界面、掌握语言基础、理解各种算法结构和语句、运用数组和过程解决复杂的问题、掌握程序出错后的调试、数据库编写能力的培养”的逻辑顺序。
《VB程序设计》课程标准
课程标准课程名称：Visual Basic程序设计学时学分：160（2）专业层次：微机制订日期：2012年9月归口单位：计算机工程系制订人：Visual Basic程序设计是一个理论和实际紧密相连的技术，上机实验是教学中的必要环节。
现提出一套可行的“Visual Basic程序设计”课程的课程标准。
1 课程概述●课程研究的对象和研究内容随着计算机的普及和以Internet为代表的信息高速公路的迅速发展，计算机应用已深入到社会的各行各业，这不仅要求当今的大学生要掌握好本专业知识，同时还要有用计算机技术为本专业服务的能力。
因此熟练掌握一种计算机应用软件开发工具是对大学生的基本要求，这将直接影响到计算机在其他专业领域中的应用。
本课程所讲授的Visual Basic即是一种易学实用、适用面广的面向对象的软件开发平台。
VB程序设计课程可以使学生掌握软件设计的基础知识和基本方法，培养学生具有利用软件开发环境解决实际问题的能力，为进一步学习其它计算机知识及今后使用或开发应用程序奠定基础。
●课程在整个课程体系中的地位“Visual Basic程序设计”属于计算机基础教育课程的三个层次“文化、技术、应用”中的第二层次，是微机高职专业学生必修的计算机技术基础课程。
它的先修课是《信息技术基础》。
2. 课程目标（1）使学生理解程序设计的基本概念，建立起程序设计的基本思路，提高学生的理论知识水平。
主要包括了算法的概念、程序设计中的基本技巧和一些常用算法；能够阅读、理解源程序和设计解题流程的能力；了解结构化程序设计和面向对象程序设计的思想，能编制出风格良好的程序；最后达到使用Visual Basic 建立一个小型的应用系统的目的。
（2）使学生掌握基本的程序设计的技术和方法，培养学生的实际动手能力。
这些技术和方法包括算法的设计，程序的实现，能够使用Visual Basic建立一个小型的应用系统。
（3）使学生了解程序设计在本专业的应用、发展及其趋势，培养学生的科研素质。
vb用户界面设计实验报告（共9篇）
vb用户界面设计实验报告(共9篇) VB第7章用户界面设计一、选择题1、下列控件中，没有Caption属性的是( )。
A. 框架B. 列表框C. 复选框D. 单选按钮2、复选框的Value属性为1时，表示( )。
A. 复选框未被选中B. 复选框被选中C. 复选框内有灰色的勾D. 复选框操作有错误3、用来设置粗体字的属性是( )。
A. FontItalicB. FontNameC. FontBoldD. FontSizeE. FontUnderline4、假定定时器的Interval属性为1000，Enabled属性为Ture，调用下面的事件过程，程序运行结束后变量x的值为( )。
Dim x As IntegerSub Timer1_Timer( )For i = 1 To 10x = x + 1Next iEnd SubA. 1000B. 10000C. 10D. 以上都不对5、在下列说法中，正确的是( )。
A. 通过适当的设置，可以在程序运行期间让定时器显示在窗体上B. 在列表框中不能进行多项选择C. 在列表框中能够将项目按字母顺序从大到小排列D. 框架也有Click和DblClick事件6、在用菜单编辑器设计菜单时，必须输入的项有( )。
A. 快捷键B. 标题C. 索引D. 名称7、在下列关于菜单的说法中，错误的是( )。
A. 每个菜单项都是一个控件，与其他控件一样也有自己的属性和事件B. 除了Click事件之外，菜单项还能响应其他的，如DblClick等事件C. 菜单项的捷径键不能任意设置D. 在程序执行时，如果菜单项的Enabled属性为False，则该菜单项变成灰色，不能被用户选择8、在下列关于通用对话框的叙述中，错误的是( )。
A. CommandDialog1.ShowFont显示“字体”对话框B. 在“打开”或“另存为”对话框中，用户选择的文件名可以经FileTitle属性返回C. 在“打开”或“另存为”对话框中，用户选择的文件名及其路径可以经FileName属性返回D. 通用对话框可以用来制作和显示“帮助”对话框二、填空题1、复选框( )属性设置为2——Grayed时，变成灰色，禁止用户选择。
《计算机与程序设计基础(VB)》教学大纲
《计算机与程序设计基础（VB）》课程教学大纲一、课程名称（中英文）中文名称：计算机与程序设计基础（VB）英文名称：Fundamentals of Computer and Programming(VB)二、课程代码及性质通识教育基础课，必修三、学时与学分总学时：48（理论学时：40学时；实践学时：8学时）学分：3四、先修课程先修课程：无五、授课对象本课程面向医科专业和文科专业学生开设六、课程教学目的（对学生知识、能力、素质培养的贡献和作用）“计算机与程序设计基础（VB）”是我校医科和文科专业的一门重要的通识教育课程。
本课程的主要内容包括计算机信息处理的基本原理、计算机的组成原理、计算机的基本操作、程序设计语言基础、算法设计基础、程序的基本控制结构、数组、过程和用户界面设计等。
本课程的教学目标是使学生掌握计算机基础知识、掌握面向对象程序设计的基本概念、基本理论和编程思想、编程方法以及常用算法，培养学生能够使用程序设计语言进行独立程序设计的能力，提高大学生计算机应用能力和用计算机分析问题解决问题的能力。
七、教学重点与难点：课程重点：强调程序设计和使用计算机解决实际问题的基本方法，重点掌握结构化程序设计、面向对象技术、可视化程序开发等高级语言的共性问题，减少对VB语言语法规则细节的介绍，使学生从更高的层次上对程序设计技术有整体的掌握。
课程难点：培养学生“将问题转换成用程序设计语言来解决并实现”的思维能力。
教师必须有意识地引导学生用计算思维的方法来解决问题。
要解决实际问题，程序设计语言只是工具，思维过程才是解决问题的根本所在。
计算思维能力的培养是课程的难点和目标之一。
八、教学方法与手段：（1）采用案例教学，培养学生的兴趣和积极性。
打破了以教材为中心的传统教学模式，不按教材的顺序授课，而是以精选出的程序设计的案例为中心，把学习的重点放在具体案例的讲述上，把要学习的语法和概念融入到具体案例中来讲解。
（2）加强实验环节的教学设计，辅助理论教学。
计算机应用基础课程标准与实训大纲
《计算机应用基础》课程标准一、课程概述《计算机应用基础》是根据社会经济、科学技术以及中等职业技术教育发展的需求所开设的计算机类基础课程。
其教学应以就业为导向，以学生职业能力发展为本，应为学生在后续专业课程的学习打好操作基础。
其授课对象为非计算机专业一年级学生。
1、参考课时总课时为72课时，理论教学课36时，实践教学36课时。
2、教材编写思路根据国家教育部中等职业教育人才培养的目标要求，结合社会行业对计算机技术操作型人才的需要，进一步突出专业教学内容的针对性和实效性，着重培养学生对计算机技术操作能力的培养，因此，教材编写应采用新的教育思想、教学观念，遵循的编写原则是：“突出实用、注重发展”。
为满足学生对计算机技术学习的需要，力求使教材更加突出以下主要特点：1）体现以学生为本，针对目前学校学生学习的实际情况，以任务驱动的方式组织教材内容，突出学生对知识和技能学习的主体性。
2）强调教材的互动性，根据学生对知识接受的过程特点，重视对学生探究能力的的培养，把学与教有机结合，增加学生的学习兴趣，教材编写应采用以活动为主线的方式进行，通过对活动的学习而掌握计算机技术的知识和操作的能力。
二、课程目标本课程的教学应使学生了解、掌握计算机应用基础知识，提高学生计算机基本操作能力、管理和维护计算机的能力、熟练使用办公自动化软件的操作能力及网络应用能力，使学生具有利用计算机解决学习、工作、生活中常见问题的能力，初步具有应用计算机学习的能力，为其职业生涯的发展和终身学习奠定基础。
具体目标如下：1、知识教学目标使学生掌握必备的计算机应用基础知识，熟练掌握Windows xp操作系统的基本操作，运用Windows xp管理计算机系统，熟练掌握office办公自动化软件的操作方法，熟悉因特网的基础应用与网络信息安全常识，培养学生应用计算机解决工作与生活中实际问题的能力。
2、能力培养目标使学生深入掌握计算机有关知识和技能，养成用多种方法解决问题的习惯。
计算机应用基础实验三
b.在“成绩”工作表的嵌入式簇状图形表中选定“英语”，按删除键
5.改变图表类型、图表选项和位置
（1）将“成绩”工作表的嵌入式簇状图形表改为“数据点折线图”
步骤：右击图标区，在快捷菜单里选择“图表类型”，在弹出对话框里选择“数据点折线图”
4.在文件“学生成绩管理.XLS”中的H1单元格输入“总成绩”，并以“学生成绩管理.XLS”为文件名，另存为C盘的MY DOCUMENT文件夹下
步骤：a.双击打开此文件
b.在H1中输入总成绩
c.单击“文件”→“另存为”，改名为“学生成绩管理.xls.”,选择正确路径，单击“确定”按钮
实验2工作表的编辑和格式化
c.单击C列，选择“编辑”→“删除”命令
d.单击B2，选择“编辑”→“删除”，在弹出对话框中选择“下方单元格上移”，单击“确定”按钮即可
3.单元格的选定
步骤：a.单击一个单元格，选中此单元格
b.单击A2单元格，按住Shift，单击E6，选中A2：E6的区域
c.单击A4，按住Ctrl,依次单击C3、D6、E1
步骤：a.选择“数据”→“数据透视表和数据透视图”，在弹出对话框“所需创建的报表类型”中选中“Microsoft Excel数据列表或数据库”按钮，在“所需创建的报表类型”中，根据需要选择，单击“下一步”按钮
b.在弹出对话框选定A1:A7，单击“下一步”按钮
c.在弹出对话框里单击“布局”按钮，在下一个对话框里设置数据透视表的版式，单击“确定”按钮
实验3 Excel中数据的计算与填充操作
1.使用鼠标拖动自动填充
步骤：a.在A2中输入“1”
b.选中此单元格，单击填充柄，按住Ctrl向下拖到A11
浅谈非计算机专业《VB程序设计》课的教学方法与实践
36科技资讯科技资讯S I N &T NOLOGY I NFORM TI ON 2008N O.25SCI EN CE &TECHN OLOG Y I NFOR M A TI O N 科技教育计算机技术的飞速发展,促进了计算机基础教育的发展,由于《V B 程序设计》语言作为高等院校非计算机专业的公共一门基础课,是当代大学生必须掌握的一种应用技能。
《VB 程序设计》编程系统引入了面向对象的编程机制,用一种巧妙的方法把W i n d ows 编程的复杂性封装起来,提供了一种可视界面的设计方法,使用窗体和控件设计应用程序界面,在培养非计算机专业学生严密地逻辑思维及利用计算机解决本专业问题的能力方面有着非常重要的作用。
《V B 程序设计》针对非计算机专业的学生来讲,又变成了学习的难点,这就要求我们教师在课堂教学与上机实践中去分析、摸索出一些较为行之有效的教学方法,培养学生对程序设计的兴趣和能力,使他们最终能掌握学习这一门课程的技能。
下面笔者在课堂教学与上机实践的基础上,就以下几个方面对这门课程的教学与实践谈谈自己的一些看法。
1培养学生学习《V B 程序设计》的兴趣兴趣是非计算机专业学生学好《VB 程序设计》的关键因素,兴趣高低决定了教学效果的好坏,学习兴趣是学生基于自己的学习需要而表现出来的一种认识倾向,它在学生的学习中具有重要的作用。
因而在程序设计教学的开始阶段要从培养学生的兴趣人手,利用学生的好奇心,选择一些有趣的、有实际意义的程序,激发学生的学习兴趣。
例如,在《V B 程序设计》中的第一次课,可以给同学们演示几个用《V B 程序设计》设计的很有趣、很成功的实例,比如小游戏或计数器的界面,让学生产生主动学习的愿望,让学生看到努力的方向、学习的目标,让学生打消畏难情绪,以增强学习的信心。
然后再介绍《VB 程序设计》的设计环境。
2合理运用《V B 程序设计》课件教学,提高教学效率和学生的综合思维能力当前,大多数的高校都采用多媒体授课,幻灯片演示可以节省教师在黑板上写字的时间,能真实地让学生看到程序从设计到运行的整个过程,要做到这点,首先,制作高质量的课件是关键,而要做到这点,需要做好以下几个方面:一是有《VB 程序设计》的资料齐全,内容新颖;二是课件设计要合理,内容和表现形式要有机地统一,重点突出,层次分明,教学以文字和图片为主。
高职高专《VB程序设计》课程项目式教学法改革浅议
中。这样 的做法在计算机应用 的学习中存在较大 主动学 习相关 的理论知识去解决实践 中碰到的问 题 ，激发和提高 了学生对知识学习的能动性。第 问题 ： 项 知识 第一 ， 学生会感到枯燥。由于计算机 网络的飞 二 ， 目教学 的主线贯穿 于整个教学活动 中， 速发展 ，学生印象 中计算 机的世界应该是多彩化 点之 间的整合会更加密切 ，学生不会感到 自己所
括高级语言通用的三大基本结构 以及 面向对象设 项 目式教学强调从 以教案为重点过渡到 以完 计的方法与应 用等 ，仅用一个项 目 以达到涵盖 难
成项 目为重点 ， 力图在整体上有所突破 ， 即完成项 所有知识面 的 目的 ， 不符 合学生“ 也 多学多练 ” 的 目的方法 ，在整个教学过程中系统地体现创新教 实践教学原则 。 育思想 。 通过若干个实际项 目案例 ， 引导学生通过项 目 根据项 目 式教学重点 的指导思想 ， 以将《 Ｂ 设计开发的实 际训练 ，掌握计算机程序设计 的方 可 Ｖ 程序设计》课程设计成以项 目开发为主导的教学 法 和技巧。教学 中所有项 目案例 的总和要尽量覆 方式 ，选择传统 的生命周期开发方法作为教学设 盖预定教学 目标 的各个知识点 ，形成一个循序渐
的， 假如每个知识点都还使用 “ 概念灌输式 ” 的方 法进行教学 ， 很可能还未进入实际应用 的教学 ， 学 生就已经对该课程失去兴趣 了； 第二 ， 学生对 知识 点 的学习感到支离破碎 、 不成整体 ， 容易遗忘。由
学的知识点零碎 、不易掌握。有 了项 目的最终 目 标， 学习 目的性更加强烈 ， 学生们会深刻认识到 自
一
、
比起传 统的单独讲授来说 ， 一方 在传统的教学方法 中，任课 教师习惯于进行 插在项 目开发 中， 另一方面 ， 学生 逐个知识点概念 与应用 的讲述 ， 往往是 “ 先概念 、 面降低 了学生对枯燥知识 的排斥 ； 在实践 中认识到 自己的不足之处后 ，反而会通过 后应用 ” ，以灌输 式的方法将 学生带入学 习环境
12级《VB程序设计》教学大纲
VB程序设计课程（Visual Basic Programming Design）（学时60 ）一、前言《VB程序设计》是面向全校所有非计算机专业的一门计算机公共基础课。
本课程共60学时，3.5学分，其中实验教学30学时。
二、课程教学目的本课程的教学目的就是使学生在掌握了计算机文化基础层次内容的基础上，进一步深化计算机的技术能力，培养学生利用计算机技术和自己所学专业，解决一些实际问题的能力。
通过本课程的学习，掌握VB集成开发环境的使用方法，掌握VB基本对象、属性、方法和事件的基本知识，掌握程序设计基础知识，结合程序设计的基本算法开发简单的应用系统。
三、教学基本要求和方法1、教学基本要求通过本课程的学习，使学生掌握面向对象程序设计的基本概念，了解程序设计的基本原理、技巧和方法，并且能够利用VB语言编写简单的程序。
基本要求如下：（1）熟悉Visual Basic操作环境与设计工具；（2）掌握面向对象程序设计基本概念和常用控件、窗体设计；（3）重点掌握结构化程序控制的三种基本结构，并且能够熟练运用之编写程序；（4）掌握子程序、自定义函数设计与参数传递的方法；（5）掌握变量和过程的作用域及变量生存期的概念；（6）掌握图形的基本操作；（7）掌握文件操作和菜单的设计。
2、教学方法（1）采用课堂讲授、上机实践相结合的教学方式；（2）在教学过程中，辅以小型实例，使学生加深对基本语法知识和编程思路的理解与运用，培养学生分析问题及实践能力。
（3）本课程是一门实践性很强的课程，要求学生不仅掌握基本原理以及会编制程序，而且会在计算机上调试和测试程序。
在学习的过程中，要求学生能切实掌握本门语言以便在实际工作中能作为工具使用，同时又应当对今后学习其它的语言起一定的触类旁通作用。
而对程序设计技巧和方法的学习和实践，则是基本的训练。
四、课程考核方式参加省计算机等级考试（二级Visual Basic）作为期末考核方式，考试形式：采用无纸化上机考试。
计算机程序设计基础实验12个实验
《计算机程序设计基础》实验教学大纲课程编号：1303072 实验学时：24课程学分：3.5 课程类型：必修教学对象：全校各非计算机专业先修课程：㈠实验目的与要求本实验课程面向文法学院学生，通过本课程的学习与实验，使学生了解程序设计的一些基本概念，掌握计算机程序设计的一般方法，具备使用计算机解决实际问题的初步能力。
在实验教学中提倡“实验前要准备，实验中要认真，实验后要总结”；突出上机实践操作环节，强调在教师指导下的以学生为中心完成每次上机的具体内容和要求；对于普遍问题采用领练、辅导有机结合的方法；尽量采用CAI 辅助教学软件。
通过实验教学使学生能够建立计算机程序设计的基本概念；在简单的程序设计过程中掌握Visual Basic可视化设计的步骤,逐步搞清什么是对象、对象的属性以及事件和方法等重要概念。
在此基础上，掌握程序设计的3种基本结构。
㈡实验考核方式与成绩评定方法考核方式：1.考核学生每次实验完成情况；2.考核学生的计算机基本操作能力；3.上机考试成绩评定：学生应按照每次实验的要求，完成指定的实验任务，并按要求提交实验报告和实验文件，成绩评定由实验指导教师根据学生实验完成情况按照优秀、良好、中等、合格、不合格五个等级给出，实验成绩占20%计入学生课程成绩。
本学期需上交实验报告为三次，实验报告实验要求用本校实验报告册书写。
要求填写学号、班级、姓名、实验指导老师、实验日期，报告内容包括实验名称、实验目的、实验内容、详细操作步骤及结果，最好写出自己的上机体会和总结。
㈢实验项目设置根据教学内容和实验教学目的，共设4个实验项目：项目一，认识Visual Basic，包括2个实验；项目二，程序设计基础，,包括6个实验；项目三，常用控件及界面设计，包括2个实验；项目四，文件管理，包括1个实验；总的实验数为12个实验。
㈣实验内容实验一Visual Basic 6.0程序设计环境实验类型：验证型实验目的：1．掌握Visual Basic的启动与退出2．熟悉使用Visual Basic的集成开发环境实验内容：1.启动Visual Basic集成开发环境2.设计一个显示信息的窗口要求：在文本框中输入文本信息，单击按钮，文本信息显示在窗体上。
《Visual Basic程序设计》课程实验教学改革探讨
《Visual Basic程序设计》课程实验教学改革探讨摘要：首先明确了《visual basic程序设计》（简称vb）课程实验教学的重要性，然后针对vb实验教学存在的问题，从实验课的时间安排、实验设计、实验教学方法、实验过程管理、实验报告、实验能力考核等方面，探讨了vb实验教学的改革措施。
关键词：vb；实验教学；创新能力；实验报告中图分类号：tp312.1-4 文献标识码：a 文章编号：1007-9599 （2012）19-0000-021 引言《visual basic程序设计》是高等学校非计算机专业开设的一门计算机公共课，是属于教育部提出的高等学校计算机基础教育三个层次（计算机文化基础、计算机技术基础、计算机应用基础）中第二层次的一门主要课程，也是全国计算机等级考试二级的考试科目之一。
visual basic是目前流行的一种可视化、面向对象的高级程序设计语言，具有简单易学、功能强大的特点，适合作为初学者学习程序设计的入门语言。
vb这门课程旨在使学生掌握一定的程序设计能力，培养学生分析问题、解决问题的能力，并最终能够应用vb为本专业服务，解决实际问题。
2 vb实验教学的重要性vb课程由理论课和实验课组成。
vb实验教学是vb课程教学的重要环节。
由于vb课程具有实践性很强的特点，在课程设置上理论课和实验课的学时比例一般为1：1。
vb课程要求学生既要掌握vb基础理论知识、又要掌握实际操作技能，具有一定的程序设计能力和程序调试能力；而只有通过上机实践，才能更加深刻地理解理论知识，才能灵活运用已学知识解决实际问题。
对于培养学生分析解决问题的能力和创新能力来说，实验教学起着不可替代的作用。
3 vb实验教学存在的问题vb实验教学存在的问题主要有以下几个方面：3.1 理论课和实验课的排课间隔不合理。
在vb课程的时间安排上，一般一周4课时，2节理论课，2节实验课，理论课在前，实验课在后。
然而，理论课和实验课的排课间隔往往不合理。
vb程序设计实验教程与习题选解 王杰华 郑国平 主编
第一章VB开发环境与VB概述习题答案习题一、选择题第二章常用控件与界面设计习题答案习题一、选择题第三章实验与习题实验实验3_1‘算术运算Private Sub Command1_Click()Const a As Single = 3, b As Single = 2, c As Single = -1, d As Single = 6 Dim x As Single, y As Single, z As Single, m As Singlex = 2: y = 1: z = 1: m = 1List1.ClearList1.AddItem a / (b + c / b)List1.AddItem (x + Sqr(x ^ 2 + 1)) ^ (1 / 3)List1.AddItem ((2 * y) / (a * x + b * y) * (a * x - b * y))List1.AddItem 1 + 1 / (1 + 1 / m)List1.AddItem 1 / 2 * (d / 3) ^ (2 * x)List1.AddItem Log(y + Cos(x) ^ 2)List1.AddItem Abs((Exp(x) + Sin(x) ^ 3) / (x + y))List1.AddItem Log((Exp(x * y) + Abs(1 / Tan(z) + Cos(x) ^ 3)) / (x + y - z)) List1.AddItem Sin(45 * 3.1415 / 180) + (Exp(10) + Log(10)) / Sqr(x + y + 1) List1.AddItem Log(a) / Log(b)End Sub‘关系运算Private Sub Command2_Click()List1.ClearList1.AddItem Mid("Visual Basic", 1, 12) = Right("Language Visual Basic", 12) List1.AddItem "ABCRG" >= "abcde"List1.AddItem Int(134.69) >= CInt(134.9)List1.AddItem 78.9 / 32.77 <= 97.5 / 43.87 And -45.4 > -4.98List1.AddItem Str(32.345) = CStr(32.345)End Sub‘逻辑运算Private Sub Command3_Click()Dim x As Integer, y As IntegerDim C1 As Integer, C2 As Integer, C3 As IntegerC1 = 70: C2 = 80: C3 = 90x = 9: y = -2List1.ClearList1.AddItem x + y < 10 And x - y > 0List1.AddItem (x% >= 0 And y% >= 0) Or (x% < 0 And y% < 0)List1.AddItem x = 0 Xor y = 0List1.AddItem C1 + C2 + C3 >= 255 Or C1 > 90 And C2 > 90 And C3 > 80End Sub实验3_2略实验3_3略实验3_4‘零售结算Private Sub Command1_Click()Dim dj As Single, sl As Single, je As Single, n As IntegerLabel1.Caption = "金额："dj = InputBox("请输入商品的单价：", "单价框")sl = InputBox("请输入商品的数量：", "数量框", 1)je = dj * sln = MsgBox("共计金额=" & je, vbOKCancel + vbInformation, "结果") If n = vbOK Then Label1.Caption = "金额：" & Str(je) & "元"End Sub‘产生随机数Private Sub Command2_Click()Dim m As Integer, n As IntegerDim x1 As Integer, x2 As Integer, x3 As Integerm = Val(Text1.Text): n = Text2.TextRandomizex1 = Int(Rnd * (n - m + 1) + m)x2 = Int(Rnd * (n - m + 1) + m)x3 = Int(Rnd * (n - m + 1) + m)Label4.Caption = "结果为：" & Str(x1) & Str(x2) & Str(x3) End Sub‘求逆序数Private Sub Command3_Click()Dim a As Integer, h As Integer, t As Integer, n As IntegerRandomizea = Int(Rnd * (999 - 100 + 1) + 100)h = Mid(CStr(a), 1, 1)t = Mid(CStr(a), 2, 1)n = Right(CStr(a), 1)Label5.Caption = a & "-->" & Format(n * 100 + t * 10 + h, "000") End Sub实验3_5略习题选择题1-20: DBBDB DDBCA DDDCD DB_DB21-40: DCDAA B_ACA BCADA B_BCD41-60: BCBDC CADBA CBDDD ABAAA61-80:BBCAB BDAAA CBBDD CBDAD81-89:CBDBB BADC填空题1、2 -32768~327672、整型长整型单精度双精度3、0 False “”4、Chr(Int(Rnd*(Asc(“L”)-Asc(“C”))+Asc(“C”))) x>0 And y>0 Or x<0 And y<0c>=”a” And c<=”z” Or c>=”A” And c<=”Z” x>=10 And x<20x<z Xor y<z5、False2TrueFalseTrueTrueTrueTrue6、18820010068.568765547、a=1 b=1a=2 b=1a=3 b=1a=4 b=18、Y Mod 4=0 And Y Mod 100<>0 Or Y Mod 400 =09、He Said, “Good morning”.10、EDEF11、(A>0 And A<>Int(A)) And (B<0 And B<>Int(B))12、a+b+c+d(a+b+c+d)/4sumaver13、(f-2*h)/2(4*h-f)/2简答题1、略2、Private Sub Form_Click()Const g = 9.8Dim V0 As Single, t As SingleDim S As SingleV0 = InputBox("请输入V0的值：")t = InputBox("请输入时间t的值：")S = (1 / 2) * g * t ^ 2 + V0 * tMsgBox ("位移量为：" & S)End Sub3、Private Sub Command1_Click()Dim l As Single, w As Single, h As Single Dim s As Singlel = Text1.Textw = Text2.Texth = Text3.Texts = (l * w + l * h + w * h) * 2Label1.Caption = sEnd Sub第四章选择分支与循环实验答案实验4-1方法一： x<=5 ; y方法二：Is<=2 ;Case Else实验4-2Shape1.BackColor=vbRed;Inter=15;Inter=Inter-1;Inter;实验4-3b<cb=aa=k实验4-4方法二： s*n ; t/s<10^-5实验4-5方法一:m>=10^-4 ; (-1)^(n+1)*m实验4-6x2=x3 ; <10^-6实验4-7实验4-8i+2*j+5*k=10 ; n实验4-9题目一：a) 5b)i=16 p=12 n=5c)i=9 p=8 n=1题目二：120 10实验4-10N=1 ； S=N& "*3 " & "+1 "实验4-11Len(st); Ch=Lcase(ch) ; Case Else ; Mid(Char,I,1)&St 实验4-12i\100 ; (i Mod 100)\10习题一、选择题1．C 2. C 3.A 4. D 5.A 6. B 7. B 8. D 9. B 二、填空题1． Is=0 ; 1 To 10 ; Is >102. 93. 3 ; 4 154. this is a book ;This Is A Book5. 3 ; 3 ; 3 56. 32 07. 48. 15 19. 1 ; 401 ;10410. 1 2 3 ;1 3; 111. (3)12. 2 0 2413. 10 1414. BAABC CBAABC15. X Mod P=0 ; X=X+1 ;Find=False16. abs(t)<10^(-7) ; s+t17. Mid(n,1,1)=Mid(n,2,1) And Mid(n,3,1)=Mid(n,4,1)S=S+118. Mid(n,i,1)>Mid(n,i+1,1)19. "输入n";N/I=0 ;Print I第五章数组实验5_1Int(90 * Rnd) + 10a(i) = a(21 - i)a(21 - i) = t5_2k = x Mod 10i = i + 15_3s5_4max < a(i, j)row = Icol = j5_51ReDim Preserve prime(m)prime(j)5_6d Mod 25_7Exit Fora(j + 1) = a(j)5_8N – IA(j) = A(j + 1)5_9A(i, 1)JMin = MaxNot Flag5_10ch >= "0" And ch <= "9"P = P & chReDim Preserve C(k)5_11Private Sub Form_Click()Dim x As Integer, i As Integer, k As Integer, j As Integer Dim a() As Integerx = InputBox("输入正整数x=")i = 2Print x; "的质因子为:";Do While x >= iIf x Mod i = 0 Thenk = k + 1ReDim Preserve a(k) a(k) = ix = x \ iElsei = i + 1End IfLoopFor j = 1 To UBound(a)Print a(j);Next jEnd Sub习题一选择题1.A2.C3.D4.C5.B6.D7.D8.B9.D10.B11.B12.D二填空题1.Variant2.ReDim A(N)A(1)If M < A(I) Then M = A(I) 3.Int(26 * Rnd) + 65Chr(t)i + 1 To 10A(i) > A(j)4.InStr(s, ",")Right(s, Len(s) - n)s5. 4 5 66 5 43 2 16.T – 1I + 17.k = 6 - i – jmax = m8.j = aj = j - 39.i + 1i = i + 110.237三编程题1．Option ExplicitOption Base 1Private Sub Command1_Click()Dim a(10) As IntegerDim i As Integer, max As IntegerFor i = 1 To 10a(i) = Int(90 * Rnd) + 10Print a(i);Next iPrinti = 1max = 0Do While i <= 10If a(i) Mod 3 = 0 ThenIf a(i) > max Thenmax = a(i)End IfEnd Ifi = i + 1LoopIf max = 0 ThenPrint "无要找的数"ElsePrint max & "是最大的能被3整除的数"End If End Sub 2．Option ExplicitOption Base 1Private Sub Command1_Click()Dim A() As IntegerDim I As Integer, m As IntegerDim K As IntegerReDim A(10)For I = 1 To 10A(I) = IPrint A(I);Next IPrintm = InputBox("ÊäÈëm")K = 9 + mReDim Preserve A(K)For I = 11 To KA(I) = A(I - 10)Next IFor I = 1 To 10A(I) = A(I + m - 1)Next IFor I = 1 To 10Print A(I);Next IPrintEnd Sub3．Option ExplicitPrivate Sub Command1_Click()Dim I As Integer, J As Integer, K As Integer Dim a() As Integer, n As Integer, p As Integer Dim s As String, Flag As Booleanp = 1For K = 10 To 100I = 1Do While I <= 10 And Not FlagJ = 1Do While J <= 10 And Not Flagn = I ^ 2 + J ^ 2If n = K ThenFlag = TrueReDim Preserve a(p)a(p) = Kp = p + 1s = I & Str(J) & Str(K)List1.AddItem sEnd IfJ = J + 1LoopI = I + 1LoopFlag = FalseNext KEnd Sub4．Option ExplicitPrivate Sub Command1_Click()Dim A(10) As IntegerDim B(10) As Integer, S As StringDim I As Integer, J As Integer, X As Integer A(1) = Int(90 * Rnd) + 10S = A(1)For I = 2 To 10DoX = Int(90 * Rnd) + 10For J = 1 To I - 1If X = A(J) Then Exit ForNext JIf J = I ThenA(I) = XS = S & " " & A(I)Exit DoEnd IfLoopNext IText1.Text = SB(1) = Int(90 * Rnd) + 10S = B(1)For I = 2 To 10DoX = Int(90 * Rnd) + 10For J = 1 To I - 1If X = B(J) Then Exit ForNext JIf J = I ThenB(I) = XS = S & " " & B(I)Exit DoEnd IfLoopNext IText2.Text = SS = ""For I = 1 To 10For J = 1 To 10If A(I) = B(J) ThenS = S & " " & A(I)End IfNext JNext IText3.Text = SEnd SubPrivate Sub Command2_Click()Text1.Text = ""Text2.Text = ""Text3.Text = ""Text1.SetFocusEnd Sub5．Option ExplicitPrivate Sub Command1_Click()Dim I As Integer, J As IntegerDim a() As Integer, K As Integer, Sum As Integer K = Val(Text1.Text)I = 1DoJ = K Mod 10ReDim Preserve a(I)a(I) = JSum = Sum + JK = K \ 10I = I + 1Loop Until K = 0Text2.Text = SumEnd Sub6．Option ExplicitPrivate Sub Command1_Click()Dim a(100, 2) As Integer, K As IntegerDim I As Integer, J As IntegerDim M As Integer, N As IntegerK = 1For I = 1 To 99For J = 1 To 99If I > J ThenM = I - JN = I + JIf Sqr(M) = Int(Sqr(M)) And Sqr(N) = Int(Sqr(N)) Then List1.AddItem I & " " & Ja(K, 1) = Ia(K, 2) = JK = K + 1End IfEnd IfNext JNext IEnd Sub第六章参考答案实验实验6-11、Exit Do2、Y(X)3、X >= -1实验6-2【题目二】42 、26、8实验6-31、s1, key2、s As String3、ch >= "a" And ch <= "z"4、Mid(s, i, 1) = Chr(Asc(ch) + k - 26)思考：解密函数Private Sub dec(s As String, k As Integer) '解密过程Dim i As Integer, ch As String * 1For i = 1 To Len(s)ch = Mid(s, i, 1)If "A" <= ch And ch <= "Z" ThenIf Asc(ch) - k < Asc("A") ThenMid(s, i, 1) = Chr(Asc(ch) - k + 26) '小于A的ASCII值则加上26 ElseMid(s, i, 1) = Chr(Asc(ch) - k)End IfElseIf ch >= "a" And ch <= "z" Then '多分支格式，ch介于小写a与z之间 If Asc(ch) - k < Asc("a") ThenMid(s, i, 1) = Chr(Asc(ch) - k + 26) '小于a的ASCII值则加上26 ElseMid(s, i, 1) = Chr(Asc(ch) - k)End IfEnd IfNext iEnd Sub实验6-41、b() As Integer, st As String2、L <= R3、ReDim Preserve b(R)4、L = L + 1辗转相除法求最大公约数函数Private Function Gcd(ByVal p As Integer, ByVal q As Integer) As Integer Dim r As Integerr = p Mod qDo While r <> 0p = qq = rr = p Mod qLoopGcd = qEnd Function实验 6-5【题目一】age = age(n - 1) - 3【题目二】1、(Left + Right) / 22、Left = Mid + 1实验6-61、3 -12、7 43、3 -14、7 0实验6-7【题目一】1、Sqr(2 + t)2、Abs(a - 1) < eps【题目二】1、Dim X As Integer2、"S(" & I & ")=" & S(I)3、(j * i + 1)习题参考答案一选择题1~5： BDCCD 6~10：BBBAD 11~15：DAAAB16~20：BDCDB 21~25：CCBAD 26~28：DAB二、填空1（1）形式、（2）实在2（1）按地址传递、（2） ByVal3（1）窗体模块、（2）标准模块、（3）类模块4（1） 65（1）4 20 1016（1） 6 26 、（2） -2 987（1）10 6 、（2） 5 -58（1） 6 5 、（2） 8 79（1） 11 、（2） 710（1） Fun(i) 、（2） Fun=p11（1） 4 、（2） 20.712（1） 29 、（2） 28.713（1） k = j 、（2） b() As Integer14（1） gec 、（2） ge 、（3） 3 15（1） p1 = True And p2 = True 或 p1 And p2 、（2） p1 = p2 – 2 、（3） Isp = True 、（4） m Mod i = 016（1） Convert(st) 、（2） Len(s) 、（3） "A" To "F" 、（4） k = k + p * h17（1） isualVi 、（2） sualVisu18（1） s + a 、（2） n + 1 、（3） x As Single, n As Integer 、（4） p * (x + i) / ((2 * i - 1) * i * x) 三、改错题1、Option Base 1Private Sub Command1_Click()Dim A() As Integer, I As Integer, J As Integer, Logic As BooleanDim K As IntegerReDim A(1)A(1) = 50———————— 'K=1For I = 51 To 149K = 1 '位置错Logic = FalseCall Sub1(A, I, Logic)If Logic ThenK = K + 1ReDim A(K) 'ReDim Preserve A(K)A(K) = IEnd IfNext IFor I = 1 To UBound(A)Text1 = Text1 & Str$(A(I))If I Mod 5 = 0 Then Text1 = Text1 & vbCrLfNext IEnd SubPrivate Sub Sub1(A() As Integer, N As Integer, F As Boolean)Dim I As Integer, J As Integer, Ub As IntegerUb = UBound(A)For I = 1 To UbFor J = 2 To A(I)If A(I) Mod J = 0 And N Mod J = 0 ThenExit For 'Exit SubEnd IfNext JF = TrueNext IEnd Sub2、Option ExplicitOption Base 1Private Sub Command1_Click()Dim I As Integer, Flg As Boolean, S1 As Integer, S2 As IntegerDim J As Integer, K As Integer, P() As IntegerReDim P(1)P(1) = 2For I = 3 To 150 Step 2For J = 2 To Sqr(I)If I Mod J = 0 Then Exit ForNext JIf J > Sqr(I) ThenReDim Preserve P(UBound(P) + 1)P(UBound(P) + 1) = I 'P(UBound(P)) = IEnd IfNext IFor I = 80 To 125If fun(I, P, S1, S2) Then 'If fun(I, P, S1, S2)Text1 = Text1 & Str$(I) & "=" & Str(S1) & "*" & Str$(S2) & vbCrLfEnd IfNext IEnd SubPrivate Function fun(N As Integer, P() As Integer, S1 As Integer, S2 As Integer) As Boolean Dim I As Integer, J As IntegerFor I = 1 To UBound(P)For J = 1 To UBound(P) - 1If N = P(I) * P(J) ThenS1 = P(I)S2 = P(J)'fun = TrueExit Functionfun = True '位置错End IfNext JNext IEnd Function3、Option ExplicitPrivate Sub Get_Chess(Chess() As Integer, idx As Integer, Over As Integer) 'ByVal idx As IntegerDim Ub As Integer, Counter As Integer, K As IntegerUb = UBound(Chess)Chess(idx) = 0Counter = 1K = 0 '位置错Do Until Counter = Ub - 1Do Until K = 2idx = idx + 1If idx > Ub Then idx = 1K = K + Chess(idx)LoopChess(idx) = 0Counter = Counter + 1LoopFor Over = 1 To UbIf Chess(Over) <> 0 Then Exit ForNext OverEnd SubPrivate Sub Command1_Click()Dim Chess(32) As Integer, I As Integer, J As IntegerDim K As Integer, idx As IntegerFor I = 1 To 32For J = 1 To 32Chess(J) = 1Next JCall Get_Chess(Chess, I, K)If K = 23 ThenText1 = "从第" & Str$(I) & "号棋子开始取"Exit ForEnd IfNext IEnd Sub5、Option ExplicitPrivate Sub Form_Click()Dim S As String, Flg As BooleanDoS = InputBox("输入一个自然数")If S = "" Or Not IsNumeric(S) ThenMsgBox "请重新输入", 48 + vbOKOnlyElseExit DoEnd IfLoopjudge(S, Flg) ' Call judge(S, Flg) 或 judge S, Flg If Flg ThenPrint S; "是回文数"ElsePrint S; "不是回文数"End IfEnd SubPrivate Sub judge(Ch As String, F As Boolean)Dim L As Integer, I As IntegerL = Len(Ch)F = True ' F = FalseFor I = 1 To LIf Mid$(Ch, I, 1) <> Mid$(Ch, L + 1 - I, 1) Then Exit SubNext IF = False ' F = TrueEnd Sub四、编程题1、编程验证任一大于2的偶数可以表示成两个素数之和。
《数据库》课程标准
《数据库》课程标准课程名称：数据库总学时：36理论学时：16实验（训）学时：20适用专业：计算机应用专业第一部分课程定位与设计1.课程基本信息2.课程性质与任务本课程是中等职业学校计算机应用专业的一门主干专业课程。
以Access2003数据库为蓝本，系统讲授Access数据库的基础知识、关系数据库的基本操作和使用方法。
其主要任务是使学生具备可视化数据处理的基本知识和基本技能，建立可视化数据处理的基本概念，掌握关系数据库的思想，使学生具备使用可视化关系数据库处理分析数据的能力，建立Access中宏与VisualBasic程序代码的联系，并为学生熟练使用Office 套件和进一步学习SQLServer数据库打下坚实的基础。
同时，培养学生具有一定的数据管理能力、团队协作的精神以及适应信息化社会要求的自学能力和获取计算机新知识、新技术的能力。
3.课程设计的理念和思路课程教学目标和组织在“工学结合”人才培养模式的理念和方法指导下，以典型工作任务教学贯穿课程始终，突出实践教学过程，强化实践教学环节管理，增强实践教学效果。
针对市场需求，以学生为本，选取循序渐进的典型工作项目“学习包”为载体构建学习情境，营造“易学乐学”的学习氛围，培养学生的专业能力、方法能力和社会能力。
以学生为中心、工作过程为导向，采用小组化教学，融“教、学、做”为一体，培养学生的职业工作能力、团队协作能力和创新能力。
保持课程的开放性，培养学生的可持续发展能力。
4.课程设计的原则和依据根据课程需求，教学过程中注重理论教学与实践教学紧密结合的原则，让学生从实践中深入体会理论知识，以工作过程的系统化和学生的可持续发展为依据，着力培养学生的综合职业能力和继续学习专业技术的能力。
本课程教学标准依据中职各专业教学标准中的人才培养目标和培养规格以及对数据库课程教学目标要求而制定，用于指导数据库课程的教学和课程建设。
第二部分课程目标本课程的教学目标是使学生能正确运用可视化关系数据库进行简单的数据管理操作，养成良好的数据管理习惯，初步具备解决实际问题的能力。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
2007-2008上《计算机应用基础与VB程序设计》实验项目大学计算机基础实验部分实验一熟悉键盘与指法练习实验目的⒈熟悉键盘上各功能键的使用⒉掌握正确的开关机方法⒊掌握指法的基本要求实验内容⒈练习键盘上各功能键的使用⒉用指法练习软件练习输入英文字母和汉字实验二指法练习和操作系统实验目的⒈熟悉用指法输入英文与中文⒉掌握中英文指法练习软件的使用⒊掌握windows下文件与文件夹的管理实验内容⒈用英文输入软件TT进行英文字母的输入⒉用金山五笔输入软件输入中英文字符⒊教材93 4、5、6、7、8、9、10⒋实践教程p9示例、p10操作练习实验三 word文档编辑、电子邮件实验目的⒈Word文档输入和简单的格式化⒉电子邮箱申请与发送实验内容⒈实践教程中p29操作练习⒉申请电子邮箱⒊把在1题中做的两个文档文件wtlhg.doc和wtlc.doc发到老师的邮箱实验四 word文档编辑、排版、表格使用实验目的⒈掌握word文档的编辑与排版⒉掌握word表格的制作实验内容⒈实践教程中p45页操作练习⒉用word输入一个课程表，样式自已设定，内容以本学期课表为依据。
⒊用电子邮件的形式，把以下2个文件发到老师的邮箱中。
实验五 EXCEL电子表格练习实验目的⒈掌握EXCEL输入、编辑、计算、格式化⒉掌握EXCEL图表的建立⒊掌握EXCEL数据分析功能实验内容⒈工作表的基本操作和图表的制作。
实践教程中的P80操作练习。
⒉工作表的数据处理。
实践教程中p88中的操作练习。
⒊把以上两个文件发到老师的邮箱。
⒋实践教程中的P78示例，实践教程中p85中的示例为选作。
实验六演示文稿制作实验目的⒈掌握演示文稿的建立、编辑、美化⒉掌握演示文稿的链接、动画和放映实验内容⒈作实践教程中p104的操作练习，按要求进行设置文档并保存文档。
p98的示例为选作⒉用电子邮件的形式，把文件发到老师的邮箱中。
VB程序设计实验实验七 VB环境、常量、变量、表达式、函数实验目的⒈熟悉VB环境，掌握程序的设计与运行模式⒉掌握VB中常量、变量、表达式、函数的使用⒊掌握立即窗口、输入对话框、输出消息框的使用实验内容⒈在立即窗口中写出以下语句行X=3Y=4Z=5Print x,y,zPrint x;y;zPrint x+y x*y x+y+z⒉输入对话框的使用⑴在立即窗口中输入Print inputbox(“请输入数据”,“数据输入窗口”，34)Print inputbox(“请输入数据”,”数据输入窗口”)Print inputbox(“请输入数据”)⒊说出三种情况的不同之处⑵在窗体中添加一个命令按钮，对命令按钮编写单击事件x = InputBox("请输入数据", "输入窗口", 33)y = x + 3Print x, y⒋输出消息对话框的使用⑴参数练习在立即窗口中输入print msgbox “考察消息框的按钮类型”,x+y+z,”消息框”) 其中x分别取0,1,2,3,4,5 y分别取16,32,48,64 z分别取0,256,512观察消息框的按钮类型，图标类型，默认按钮⑵消息框的取值在窗口中添加一个命令按钮，对命令按钮编写单击事件Y=msgbox(“考察消息框函数的返回值”,x,“消息框”)Print y其中x=0,1,2,3,4,5，单击每一个按钮，观察y的取值,并记录下来.⑶输入、输出综合练习作书p29例题⒌常量、变量和表达式练习作书p51选择题中的5,6,7,8,9,10,11,12,填空题中的3题,简答题中的函数练习⑴作书中p68中的实例A和实例B⑵练习书中的每一个函数的使用.实验八 VB程序控件结构实验目的⒈掌握顺序结构，分支结构，循环结构程序设计⒉掌握IF 语句、SELECT CASE语句的使用⒊掌握FOX循环、DO循环的使用实验内容⒈用SUB MAIN模块作以下程序书p83范例05-01-01书p86 范例05-02-01书p88 范例05-03-01书p92 范例05-03-032.用sub main 模块编写下列程序P102 -----2,4,5甲,7实验九 VB数组、函数与子程序实验目的⒈掌握数组、函数、子程序的定义⒉掌握数组数据的输入，输出，排序⒊掌握函数与子程序的调用实验内容⒈用SUB MAIN模块作以下程序书p105范例06-01-01书p107 范例06-02-01书p112 范例06-03-01书p125 范例07-01-012.用sub main 模块编写下列程序P120 -----1、2实验十 VB对象概念与窗体实验目的⒈掌握对象与事件过程⒉掌握属性、事件与多窗体程序⒊掌握简单的画图程序实验内容⒈作以下范例书p162范例09-02-02书p165 范例09-02-04书p173 范例09-04-01书p183例2.用画图语句作图⑴画任意颜色的直线，矩形，圆，椭圆⑵书p190 2,4实验十一命令按钮、图片框与图像框、定时器控件实验目的⒈掌握命令按钮的属性与事件⒉掌握图片框与图像框属性与事件⒊掌握定时器属性与事件实验内容⒈作以下范例书p200范例11-01-01书p211 范例11-04-01书220 范例12-02-022.书p198---1,23.用定时器，作一个滚动字幕窗体实验十二标签、文本框、列表框、组合框实验目的⒈掌握标签、文本框的属性与事件⒉掌握列表框、组合框属性与事件实验内容⒈作以下范例书p254范例15-02-02书p255 范例15-02-032.书p246---2，p260----2实验十三复选框、单选框实验目的⒈掌握复选框、单选框属性与事件⒉掌握菜单的设计实验内容⒈作以下范例书263 范例书265范例16-02-01⒉设计一个含有3级子菜单的菜单，对某些菜单项写出过程。
实验十四办公自动化综合应用（考试）一、实验目的⒈掌握word文档的综合应用⒉掌握excel的综合应用⒊掌握演示文稿的综合应用⒋掌握网上查阅资料的方法⒌掌握应用程序之间的调用二、实验内容⒈用WORD文档做一个本学期学习计算机的总结。
以文件名总结.doc保存。
排版格式自拟。
⒉用excel作一个本学期本班的成绩表，数据自定，要求能进行成绩排序、统计分析，有图表。
排版格式自拟。
⒊上网搜索大学学习方法探讨。
用word文档保存，并保存搜索的网站。
⒋用演示文稿作一个大学学习生活介绍为主题的文稿，要求有自我介绍，系、班级，姓名等基本信息，要求有和前三个文档的链接，格式，内容，形式自拟。
⒌把以上四个文件放在以自已名字命名的文件夹中，把此文件夹压缩，压缩文件名也为自已的名字，然后把压缩文件发到教师的邮箱中。
以下为选作实验，可以布置给学生利用业余时间自行完成实验一 WORD综合应用一、实验目的⒈掌握word文档的综合应用⒉掌握word文档表格制作二、实验内容⒈作实践教程中p40的示例，按要求进行设置文档并保存文档。
⒉作实践教程中p51的示例，P53的操作练习⒊作实践教程中p64的操作练习⒋把作好的文件发到老师的邮箱。
实验二 internet信息搜索、浏览和获取实验目的⒈学习IE浏览器的基本使用，学习搜索internet信息，了解常用的搜索网站。
实验内容⒈作实践教程中p126的操作练习。
⒉把搜索到的内容存到word文档中，进行排版整理然后保存，用电子邮件的形式，把文件发到老师的邮箱中。
实验成绩评定办法（考查）实验成绩的评定采取平时考核与期末考试相结合的方法进行评定，其中平时考核占40%，期末考试占60%。
㈠平时考核：从以下几个方面进行考查：⒈实验预习：每个实验之前在实验报告本上完成实验题目、实验目的、实验内容、本次实验所需的命令、代码等要求的内容。
书写工整、规范、认真。
（根据预习的情况，给出相应的成绩，分为不同的档次。
）⒉实验记录：每个实验的运行结果写在报告本上，调试的过程，出错的原因记录在实验本上。
（根据记录的情况，给出相应的成绩，分为不同的档次。
）⒊实验操作：每个实验操作的熟练程度，完成实验的量，调试程序的能力。
（根据操作的情况，完成的实验量，给出相应的成绩，分为不同的档次。
）⒋实验小结：每个实验要写出小结，通过本次实验掌握了哪些知识，收获了什么等，小结写的是否合理，全面，真实。
（根据小结内容，给出相应的成绩，分为不同的档次。
）⒌实验态度：认真完成和参加每一个实验，不玩游戏，不复制他人的成果等。
（根据实验表现、态度，给出相应的成绩，分为不同的档次。
）㈡期末考核：⒈做一个综合性的办公自动化应用问题。
内容含有WORD、EXCEL、PPT、上网查阅资料、电子邮件等方面的知识，具体内容参考实验十四。
从以下几个方面进行评定成绩：⑴WORD文档内容是否合理，版面是否美观。
⑵EXCEL内容是否合理，表线，格式是否正确等。
⑶演示文稿内容，设定，链接等方面。
⑷上网查阅资料是否正确。
⑸电子邮件发布是否正确，是否压缩等以上五条根据执行的情况，给出相应的成绩，分为不同的档次。