《VisualBasic程序设计》实训大纲

1、VisualBasic程序设计实训大纲 课程名称：VisualBasic程序设计 实训学时：36适用专业：计算机信息管理 课程类别：专业课编写大纲教研室/实训室：计算机应用技术一、实训目的与要求本实训大纲的核心内容是12个主题实训，每个实训都针对某个具体应用精心设计，并以该应用为主题展开，实训教学中采用行之有效的“实训目标-知识结构-实践应用”的组织结构。通过12个实训的实践达到教学大纲要求的教学目的，通过12个实训的上机练习，达到熟练掌握VB编程技巧，养成规范、标准的思维和方法，具体实训的要求按每一个实训的要求去练习、上机、总结。二、实训方式上机二、实训名称及学时分配 序号实训内容实训学时项

2、目类型必做/选做1Visual Basic6.0/7.0的安装与使用2设计型必做2Visual Basic6.0/7.0的基本编程2设计型必做3程序设计流程控制2设计型必做4可间隙计时器2设计型必做5图片搜索器2设计型必做6文档编辑器2设计型必做7二次函数曲线演示器2设计型必做8CD播放器2设计型必做9带滑块的图像控件4设计型必做10建立处理文本文件的ActiveX DLL4设计型必做11数据处理与报表打印4设计型必做12基于部件的数据查询8设计型必做合计36设计型必做 三、实训内容 实训一 Visual Basic6.0/7.0的安装与使用(实训学时：1学时)【实训目的】：（1） 掌握VB6

3、.0/7.0系统的安装方法（2） 学会VB简单程序的编写方法【实训内容】：实训1-1 安装Visual Basic6.0/7.0实训1-2 编写显示“欢迎使用Visual Basic6.0”的窗体程序【实训设备】：每人一台P4 微机。【实训要求及成绩评定】：运行通过实训二 Visual Basic6.0/7.0的基本编程(实训学时：1学时)【实训目的】：（1） 学会窗体程序的设计方法。（2） 程序要求达到实训中的六条要求。【实训内容】：实训2-1 建立一个用于“商品销售计价”的窗体程序（1）该程序能够按商品顺序号输入商品的单价、数量、计算商品价值和累计商品的总价。（2）商品单价、数量通过文本框

4、输入。（3）商品顺序号、商品价值和商品总价通过标签控件显示。（4）命令按钮“计价”用来启动对商品价值和累计商品总价的计算。（5）命令按钮“清零”用来启动清零过程。（6）命令按钮“退出”用来关闭窗口、退出程序。【实训设备】：每人一台P4 微机。【实训要求及成绩评定】：运行通过实训三 程序设计流程控制(实训学时：1学时)【实训目的】：（1）结合教材学过的程序设计方法和例题的模式进一步学写程序。（2）要求程序流程正确、简洁。【实训内容】：实训3-1 建立一个“求解一元二次”方程的窗体程序要求：（1）该程序能够输入一元二次方程的系数，然后根据系数求方程的根，并输出结果；若方程无实根，则输出“方程无实数

5、解”。（2）方程系数通过文本框控件输入。（3）求解结果通过标签控件显示。（4）命令按钮“求解方程”用来启动对方程的求解。实训3-2 建立一个计算10以内阶乘的窗体程序要求：（1）该程序能够输入阶乘数，然后根据阶乘数进行判断和计算，并将计算结果输出，若阶数小于零或者大于10，则输出“阶数无效”。（2）阶数通过文本框控件输入。（3）求解结果通过标签控件显示。（4）命令按钮“计算”用来启动阶乘计算。【实训设备】：每人一台P4 微机。【实训要求及成绩评定】：运行通过实训四 可间隙计时器(实训学时：1学时)【实训目的】：（1）学会标签控件等的设计方法，根据属性要求，编写程序。（2）通过程序的编写和调试进

6、一步理解编程的思想。【实训内容】：实训4-1 建立一个用来累积计时的“可间隙计时器” 要求：（1）能够把“计时器”工作的各个时间片段累加起来。（2）标签控件用于显示累积时间，计时器控件用于计时，计时操作通过命令按钮完成。（3）命令按钮“启动”用于启动计时，命令按钮“暂停” 用于暂时（4）停止计时，命令按钮“继续”用于在暂停计时恢复计时，命令按钮“停止”用于在停止计时。（5）四个命令按钮遵守下表规则，以保证各项计时操作相互协调。各命令按钮需要遵守的规则工 作 状 态启 动暂 停继 续停 止启动计时前有 效无 效无 效无 效正在计时的时候无 效有 效无 效有 效暂停计时的时候无 效无 效有 效有

7、效停止计时后有 效无 效无 效无 效【实训设备】：每人一台P4 微机。实训五 图片搜索器(实训学时：1学时)【实训目的】：（1）学会驱动器列表框控件、组合框控件、文件夹列表框控件、文件列表框控件和框架控件的编程方法。【实训内容】：实训5-1 建立一个通过文件系统控件搜索图片的窗体程序。要求：（1）组合框控件（Combol）用于选择图片文件类型。 （2）驱动器列表框控件（Drivel）用于选择驱动器。（3）文件夹列表框控件（Dirl）用于从所选驱动器中选择文件夹。（4）文件列表框控件（Filel）用于从所选文件夹中选择图片文件，并且所选（5）文件通过框架控件（Framel）将组合框、驱动器列表框

8、、文件夹列表框 和文件列表框等控件组合在一起。属性设置见下表：frm Tpssq窗体中各控件属性值设置对 象类 型属 性设 置作 用frmTpssq窗 体caption图片搜索器Image1图 象Borderstyle/ Streth1/True显示图片Frame1框 架Borderstyle/ Caption1/搜索图片分组控件Combo1组 合 框Style2选择图片文件类型Drive1驱动器列表框搜索驱动器Dir1文件夹列表框搜索文件夹File1文件列表框搜索文件夹Label1标 签caption图片类型Label2标 签caption驱动器：Label3标 签caption文件夹：La

9、bel4标 签caption图片文件：【实训设备】：每人一台P4 微机。【实训要求及成绩评定】：运行通过实训六 文档编辑器(实训学时：1学时)【实训目的】：（1）学会和掌握多文档编辑应用程序。（2）掌握打开文件、保存文件、打印设置、字体设置等多种对话操件。【实训内容】：实训6-1：建立一个多文档编辑应用程序，由主窗体和子窗体两大部分组成，能够通过主窗体内的子窗体来实现对多个文档的同时编辑。该程序主窗体的设计，由菜单、工具栏、状态栏和工作区等部分组成，放置在主窗体上的公共对话框件用来提供“打开文件”、“保存文件”、“打印设置”、“字体设置”等多种对话操件。子窗体设计，窗体上的Rich文本框控件用

10、来显示与编辑文档。菜单属性设置主 菜 单 项子 菜 单 项属 性设 置 值MunFileCaption文件（&F）mnuFileNewCaptionShortcut新建（&F）Ctrl+NCaptionShortcut打开（&O）Ctrl+OCaptionShortcut保存（&O）Ctrl+SmnuFileSaveAsCaption另存为（&A）mnuFilePrintCaption打印（&P）mnuFilePrintCaption退出（&X）mnuEditCaption编辑（&E）mnuEditCutCaptionShortc

11、ut剪切（&T）Crtl+XmnuEditCopyCaptionShortcut复制（&C）Ctrl+CmnuEditPasteCaptionShortcut粘贴（&P）Ctrl+VmnuEditSpecialCaption全选（&A）MnuFormatCaption格式（&O）mnuFormatFontCaption字体（&F）mnuFormatAlignLeftCaption左对齐（&L）mnuFormatAlignCenterCaption居中对齐（&C）mnuFormatAlignRightCaption右对齐（&

12、R）mnuWindowCaptionWindowList窗口（&W）TruemnuWindowCascadeCaption层叠（&C）mnuWindowTileHorizontalCaption横向平铺（&H）mnuWindowTileVerticalCaption纵向平铺（&V）mnuWindowArrangeIconsCaption排列图标（&A）mnuWindowToolbarCaptionChecked工具栏（&T）TruemnuWindowStatusBarCaptionChecked状态栏（&B）True【实训设备】：每人一台

13、P4 微机。【实训要求及成绩评定】：运行通过实训7 二次函数曲线演示器(实训学时：1学时)【实训目的】：（1） 学会和掌握绘图语句的编程方法。（2） 图片框及图片的插入方法。【实训内容】：实训7-1：使用绘图语句建立一个演示二次函数曲线的窗体程序，其中，三个文体框控件txtA、txtB、txtC用来输入二次函数的参数，图片框Picturel用来显示二次函数曲线，命令按钮cmdXsqx用来启动二次函数曲线的绘画，命令按钮cmdCls用来清除二次函数曲线。FrmEchs窗体中控件属性值设置对 象类 型属 性设置值作 用frmEchs窗体Caption二次函数曲线（Y=X2+b*X）Picturel

14、图片框显示二次函数曲线LblX标签Caption100坐标值LblY标签Caption100坐标值labell标签CaptionY=显示函数表达式label2标签CaptionX2+显示函数表达式Labe13标签CaptionX+显示函数表达式对 象类 型属 性设 置 值作 用txtA文本框输入函数a 参数txtB文体框输入函数b参数txtC文体框输入函数c参数cmdXsqx命令按钮Caption显示函数曲线启动函数曲线绘画cmdCls命令按钮Caption清除函数曲线清除函数曲线【实训设备】：每人一台P4 微机。【实训要求及成绩评定】：运行通过实训8 CD播放器(实训学时：1学时)【实训目的

15、】：（1） 学会和掌握媒体控件的编程方法。（2） 了解多媒体在编程中的应用。【实训内容】：实训8-1：建立一个用于播放CD的窗体程序，其中，列表框lstQmqd显示CD曲目，命令按钮cmdLoad用于启动曲目加载，媒体控件mciCDPlayer用于控制CD播放，标签lblLength用于显示曲目总长度，标签lblPosition用于显示CD播放的当前位置。Frmcd窗体中控体属性值设置对 象类 型属 性设 置 值作 用frmCD窗体CaptionCD播放器lstQmqd列表框显示曲目清单mciCDPlayerMultimediaBackvisibleRecordVisibleStepVisib

16、leStopVisibleFalseFalseFalseFalse控制CD播放cmdLoad命令按钮Caption载入载入曲目lblLength标签Caption显示CD曲目总长度lblPosition标签CaptionY=显示CD播放当前位置Labell标签Caption曲目清单：Labe12标签Caption曲目总长度：Labe13标签Caption当前播放位置：【实训设备】：每人一台P4 微机。【实训要求及成绩评定】：运行通过实训9 带滑块的图像控件(实训学时：2学时)【实训目的】：（1）学会和掌握图像控件、横向滑动条、竖向滑动条等编程和使用方法。（2）装载图像的方法，遮盖图像的方法。【

17、实训内容】：实训9-1：建立一个带滑块的图像控件，由图片框Picturel、图像Image1、横向滑动条HScrolll、竖向滑动条VScrolll和图片框Picture2等控件组成。其中，图片框Picture1用于提供图像边界，图像Imagel用于装载图像，滑动条HScrolll和VScrolll用于滑动图像，图片框Picture2用于遮盖图像余角。【实训设备】：每人一台P4 微机。实训10 建立处理文本文件的ActiveX DLL(实训学时：2学时)【实训目的】：（1）掌握文本文件的编辑、转大写、转小写和颠倒文体顺序的方法。（2）建立一个ActiveX DLL的方法。【实训内容】：实训10

18、-1：（1）建立一个ActiveX DLL，用于读、写和删除文体文件，对文体内容进行编辑、转大写、转小写和颠倒文体顺序。其中，文本文件的名称、内容被作为文体对象的属性。（2）建立一个标准程序，其通过引用上面的DLL程序来实现对文本文件的各项处理。FrmTest 窗体中控件属性值设置对 象类 型属 性设 置 值作 用frmTestFormCaptionfrmTestlblFileNameLabelCaption显示文件路径LabellLabelCaption文件路径：txtFileTextBox显示文件内容CommonDialog1CommondDialog提供打开、保存文件对话框comdRea

19、dCommandCaption读入文件启动读入文件comdSaveCommandCaption保存文件启动保存文件comdSaveAsCommandCaption另存文件启动另存文件comdDeleteCommandCaption删除文件启动删除文件comdReverseCommandCaption文本倒置启动文体倒置cmdXsqxCommandCaption文本转大写启动文本转大写comdLcasecommandcaption文本转小写启动文本转小写【实训设备】：每人一台P4 微机。【实训要求及成绩评定】：运行通过实训11 数据处理与报表打印(实训学时：2学时)【实训目的】：(1)学会和掌握

20、数据库在编程中调用方法(2)建立窗体模块、数据网格控件、记录集进行添加、删除操作。(3)建立数据报表模块，实现对查询数据的报表打印输出。【实训内容】：实训11-1：（1）建立JCGL.mdb数据库，并在数据库中建立“收入账册”数据表。（2）建立一个应用程序，其通过数据环境设计器连接JCGL.mdb数据库，并对数据库中的“收入账册”数据表中的数据进行SQL操作。（3）在应用程序中建立窗体模块。通过窗体上的TreeView控件，进行对数据库中数据的查询操作，查询结果通过数据网格控件显示，并可以通过文本框、组合框等控件修改。（4）在窗体上建立命令按钮，用于对ADO记录集进行添加、删除操作。（5）在应

21、用程序中建立数据报表模块，实现对查询数据的报表打印输出。JCGL.mdb中的“收入账册”数据表结构字 段 名数 据 类 型字 节 数默 认 真主 键ID自动编号4是姓 名文 本8项 目文 本16金 额货 币80日 期日期/时间8Date()说 明文 本100rmSrzwCx窗体中控件属性值设置对 象类 型属 性设 置 值作 用frmsrzwCxFormCaption收入账务查询FramelFrame放置控件的容器txtNameTextBox输入姓名cboXmComboBox输入项目txtJeTextBox输入金额对 象类 型属 性设 置 值作 用dtpDjRqDTPicker输入日期txtSm

22、TextBox输入说明cmdAddCommandCaption添加（&A）添加记录cmdDelCommandCaption删除（&D）删除记录CmdprintCommandCaption打印（&P）打印报表LabellLabelCaption姓名：Label2LabelCaption项目：Label3LabelCaption金额：Label4LabelCaption日期：Label5LabelCaption搜索树：TreeViewlTreeView提供查询节点Picture1PictureBox放置DataGridl的容器DataGrid1DataGrid显示查询结果S

23、tatusBar1statusBarStyle1显示记录集信息Drpsrzw数据报表中控件性值设置对 象类 型属 性设 置 值作 用Drpsrzw数据报表Caption收入账务报表打印lblTitleRptLabelCaption收入账务报表报表标题lblDYRQRptLabelCaption打印日期：%D显示打印日期lblYSRptLabelCaption打印总页数：%P显示打印总页数lblNameRptLabelCaption姓名表头lblXMRptLabelCaption项目表头lblJERptLabelCaption金额表头LblRQRptLabelCaption日期表头lblSMRp

24、tLabelCaption说明表头txtNameRptTextBoxDataField姓名报表细节内容txtXMRptTxetBoxDataField项目报表细节内容txtJERptTextBoxDataField金额报表细节内容txtRQRptTextBoxDataField日期报表细节内容txtSmRptTextBoxDatafield说明报表细节内容lblYHRptLabelCaption第%P页显示页号【实训设备】：每人一台P4 微机。【实训要求及成绩评定】：运行通过实训12 基于部件的数据查询(实训学时：4学时)【实训目的】：(1)能够使用数据环境设计器连接，对数据源中的数据进行查询

25、操作。(2)数据源的获取方法。【实训内容】：实训12-1：3、CKGL.mdb数据库作为数据源，并通过该数据库中的“物品登记”和“物品流通”两个数据表建立“物品库存”数据视图。4、立一个ActiveX DLL，其通过数据环境设计器连接CKGL.mdb数据库，并对数据库中的数据进行SQL操作。5、立一个应用程序，其引用上面的ActiveX DLL从数据源中获取数据。6、过应用程序窗体模块上的TreeView控件对数据源中的数据进行查询操作。GKGL.mdb中“物品登记”和“物品流通”的数据表结构数据表名字段名数据类型字节数默认值约束规则主键物品登记物品ID自动编号4是名称文本16“”类别ID文本

26、10“”单价货币8“”说明文本255“”照片OLE对象是物品流通物流ID自动编号4“进库”or”出库”Or”报损”物品ID数字4物流类型文本2数量数字20职员ID文本10日期日期/时间8Date()说明文本100“”记录特征逻辑1false数据环境对象DataenvWpkcCx中的SQL命令命令名称SQL语句作 用WPLBQDSELECT DISTINCT类别FROM物品库存ORDER BY类别查询“物品库存”数据视图，按“类别”排序后，返回“类别”记录集WPQDPARAMETERS strLb Text();SLECT DISTINCT名称FROM物品库存WHERE类别=strLb ORDER BY名称按类别参数strLb有条件地查询“物品库存”数据视图，按“名称”排序后，返加“名称”记录集WPKCCXPARAMETERSstrLbText(10),strWpMcText(10);SELECT ID，名称，单价，库存量FROM 物品库存WHERE（类别LIKE strLb）AND(名称LIKE strWpMc)ORDER BYID；按类别参数strLb和名称参数