(完整版)visualbasic教案

1、1 初识 Visual Basic教学目的及要求：1、掌握VB的特点2 、了解VB的开发环境教学重点与难点：1、VB的含义、发展历史、特点2 、VB的启动与退出方法3 、VB集成开发环境教学内容：3.1 Visual Basic 入门3.2 Visual Basic 的启动与退出讲授方法：讲授为主，上机为辅授课时数：4作业：练习册、教材1.1 Visual Basic入门1、 什么是 Visual BasicVisual Basic 中的“ Visual ”含义是“可视化的”，主要是指不必编写大量代码去描述程序界面，而只要把预先建立好的对象拖放到窗口界面中即可开发出Windows风格的图形用户

2、界面。2、 Visual Basic 的发展史1990年5月，微软Windows3.0操作系统的出现，引起了全世界计算机突飞 猛进的发展。Windows的风行，使用户对计算机的操作更加简单、直观，但对程 序员而言，设计程序的难度却陡然提升，一个简单的程序，也要编好几百行的 代码。于是，寻找一种简单、易学、好用的程序设计语言变得越来越重要，越 来越迫切。1990 年，Microsoft （微软）推出了基于 Windows的 Visual Basic 1.0 版本。它采用可视化编程和面向对象技术，使编程就像搭积木一样简单、直观。同时，它的功能也变得十分强大，完全可以胜任任何大型应用程序的开发工作。

3、Visual Basic 的出现使美国再次掀起了学习应用Basic 的热潮，美国人称它“门槛低，天花板高”，意为“入门容易，而功能又极其强大”。3、 Visual Basic 的特点Visual Basic 是由BASIC发展而来的，对于开发 Windows应用程序而言，VisualBasic 是目前所有开发语言中最简单、最容易使用的语言。作为程序设计语言，VisualBasic 程序设计具有以下特点：1、可视化的设计平台传统程序设计语言编程时，需要通过编程计算来设计程序界面，在设计过程中看不到程序的实际显示效果，必须在运行程序的时候才能观察。如果对程序的界面不满意，还要回到程序中去修改，这一

4、过程常常需要反复多次，大大影响了编程的效率。Visual Basic 提供的可视化的设计平台，把Windows界面设计的复杂性“封装”起来。程序员不必再为界面的设计而编写大量的程序代码，只需按设计的要求，用系统提供的工具在屏幕上“画出”各种对象， Visual Basic 自动产生界面设计代码，程序员所需要编写的只是实现程序功能的那部分代码，从而大大提高了编程的效率。2、面向对象的设计方法Visual Basic 采 用 面 向 对 象 的 编 程 方 法 ( Object OrientedProgramming) ，把程序和数据封装起来作为一个对象，并为每个对象赋予相应的属性。在设计对象时，

5、不必编写建立和描述每个对象的程序代码，而是用工具“画”在界面上，由 Visual Basic 自动生成对象的程序代码并封装起来。3、事件驱动的编程机制Visual Basic 通过事件来执行对象的操作。在设计应用程序的时候，不必建立具有明显开始和结束的程序，而是编写若干个微小的子程序，即过程。这些过程分别面向不同的对象，由用户操作引发某个事件来驱动完成某种特定的功能，或由事件驱动程序调用通用过程来执行指定的操作。1.2 VB 的启动与退出启动 Visual Basic1、 单击“开始”按钮。2、 选择“程序”菜单中的“ Microsoft Visual Basic ”程序组，然后选择 “Mic

6、rosoft Visual Basic ”选项，屏幕显示如图 7.1所示的“新建工程”对话框。3、在“新建工程”对话框中，Visual Basic 提示新建一个工程或打开一个现 有的工程。对话框中包括“新建”、“现存”、和“最新”三个标签，可用鼠标进 行选择切换。用鼠标左键单击对话框左下角的“不再显示这个对话框”复选框，使得复选框前带有复选标记，则下次启动Visual Basic时不再显示这个对话框。Visual Basic 启动时的“新建工程”对话框说明：A.单击“新建”标签可以选择要开发的应用程序的类型。B.程序设计人员开发的应用程序大多是标准的可执行文件，所以通常会选择“新建”标签中的“

7、标准EXE”选项。C.单击“现存”标签可以选择打开一个已有的的工程。D.单击“最新”标签可以选择打开一个最近访问过的工程E.在“新建工程”对话框中进行选择并单击“打开”按钮，可以完成Visual Basic的启动并同时建立一个新的工程或打开一个已有的工程。如果单击“取消”按钮，则只启动Visual Basic ,而不打开任何工程。二、 Visual Basic 退出单击窗口右上角的关闭按钮可以退出Visual Basic ，也可以通过选择“文件”菜单中的“退出”命令，或按快捷键Alt+Q来退出Visual Basic 。三、VB集成开发环境VB启动后的主界面如图所不缪）踹身椁如倒E）辂薰回调M

8、S注弛萱谓叱国衰 11（0外建程序因 皤口团帮姐工具栏 TS1 - Form) (Form) Famnl工耳箝返回诚置而弯的行史栏中蒐国林稔TSi 1181用W工程资源管正器179FBl Tor*解防静第I属性宣匚Ifl-XSi：-Forml3x船曰屿K /冒a智火房上VB启动后的主界面1、主窗口即应用程序窗口。由标题栏、菜单栏和工具栏组成。Visual Basic 的三种工作模式为设计模式、运行模式、中断模式，在标题栏中 可以看到当前模式。(1)设计模式：创建应用程序的大多数工作都是在设计模式下完成的。在该 模式下，用户可以设计窗体、绘制控件、编写代码并使用“属性”窗口来设置 或查看属性设置

9、值。(2)运行模式：代码正在运行的时期，用户可与应用程序交流，可查看代码, 但不能改动它。(3)中断模式：程序在运行的中途被停止执行时。在中断模式下，可以检查 程序代码，并可进行修改，也可以检查数据是否正确，修改完程序后，可继续 执行。2、窗体(Form)设计窗口窗体设计窗口是屏幕中央的主窗口，它可以作为自定义窗口来设计应用程序的 界面。用户可以在窗体中添加控件、图形和图片来创建所希望的外观。每个窗口必须有一个窗体名字，建立窗体时缺省名为Form1,Form2,.。窗体名(即Nameil性)不同于窗体文件名，如图所示窗体设计窗口窗体名等砌期I窗体文件名4mMnoQ0人成 aaa z璃麹窗体3、

10、工具箱（ToolBox）窗口工具箱提供一组工具，用于设计时在窗体中放置控件生成应用程序的用户接口系统启动后，缺省的General工具箱就会出现在屏幕左边，上面共有21个常用“部件”，如图所示。X标(Framef选 后(*nnnhn(=a)XI定时赛B家弘康恒OMiLLstBox j& OE)0对象骷推与戢入（OLE事震二图除怩文本框 Visible 等，在此不再赘述。下面介绍与文本框有关的特 殊属性：(1) Text 属性；功能：用来获取或设置文本框中的文本内容。Text Textl.Text = 包头财经学校Print Textl.Text(2) Multiline 属性功能；决定是否允许接

11、受多行文本。说明：如果属性值为False,则文本框只允许输入一行文本；若设置为 True,则 可以输入多行文本。(3) HideSelection 属性功能：当文本框不具有焦点时，文本框中选择的字符是否仍然高亮度显示。说明：当其取值为False时，表示当焦点离开文本框时，所选择的文本仍然高亮度 显示；当其取值为True (默认值)时，表示当焦点离开文本框时，所选择的文本不再高 亮度显示。效果如图所示。文本框HideSelection 属性设置(4) MaxLength 属性功能：设置文本框最多可容纳的字符数。说明：默认值为00若将其设置为正整数值，这一数值就是可容纳的最大字符个 数。(5) P

12、asswoedCharS性功能；设置文本框是否作为口令框说明：当PasswoedCharS性值为空用时，表示不将文本框作为口令框，此时输入 的字符原样显示。当把该属性设置为某个字符，如“ *”时，以后用户输入到文本框中 的任何字符都将以替代显示，而在文本框中的实际内容仍是输入的文本，只是显示结果被改变了，因此可以作为密码使用。【例】 通过将PasswoedCharfl性值设置为 ”号，来验证系统口令。其运行结果如图所示“用户名和口令虺证窗口OPnTx姓名：杵三一口令*算*章*(6) Locked 属性功能：运行时输入文本框的文本能否被编辑。说明：当设置值为False (默认值)，表示文本框内容

13、可以编辑修改；若设置为True 时，表示文本框内容只读。(7) ScrollBar 属性功能：指定在文本框中是否出现滚动条。说明：该属性共有4个属性值：0:表示不出现滚动条，默认值为；1 :表示水平滚动条；2 :表示出现垂直滚动条；3 :表示同时出现水平滚动条和垂直滚动条。下图显示了具有不同滚动条的文本框。四、 frame控件1、基本功能Frame控件为控件提供可标识的分组。 它是一个容器控件。当需要在同一窗体内建立几组 相互独立的单选按钮时，就需要用框架将每一组单选按钮框起来。2、常用属性(1) Caption 属性功能：设置框架上的标题名称。如果 Caption属性值为空字符，则框架为封闭

14、的矩 形框，但是框架中的控件仍然和单纯用矩形框起来的控件不同。如图所示。(2) Enabled 属性功能：设置框架是否响应用户生成事件True:表示响应用户生成事件，默认设置；False :表示程序运行时该框架在窗体中的标题正文为灰色，表示框架内的所有对象均被屏蔽，不允许用户对其进行操作。下图显示了处于两种状态的框架。框架的两种状态3、常用事件框架可以响应Click和DbClick事件。但是，在应用程序中一般不需要编写有关框架的 事件过程。4. 3使用对话框实现数据的输入和输出一、输入框1、语法：InputBox (Prompt,Title,Default,Xpos儿Ypos,Helpfile

15、,Context)2、功能：在对话框中显示提示信息及文本输入框，程序使用人员通过在文本框中输入文字并单击 相应的按钮来进行响应，InputBox函数将返回包含文本框内容的字符串取值。3、说明Prompt参数：必选项，其值为一个字符用表达式，用来设置将要在对话框中显示的输入提示信息。其具体长度取决于所用字符的宽度，但最长不能超过1024个字符。如果需要换行，可以在字符串之间加入回车换行符(VBCRL尸，将各行隔开。Title 参数：可选项，其值为一个字符用表达式，用来指定在输入对话框的标题栏 中显示的文本。如果缺省title 参数，则表示将在输入对话框的标题栏中显示应用 程序的名称。Defaul

16、t参数：可选项，其值为一个字符用表达式，用来设置显示在文本输入框中 的缺省值。如果省略Default参数，则文本输入框的内容将为空。Xpos与Ypos参数：可选项。其值为一个数值表达式，成对出现。Xpos指定对话框的左边与屏幕左边的水平距离(单位是 twip ),如果省略Xpos,则对话框会在水 平方向居中。Ypos参数指定对话框的上边与屏幕上边的距离(单位是twip),如果省略Ypos,则对话框被放置在屏幕垂直方向距下边大约三分之一的位置。Helpfile 与Context参数：可选项，用来指定帮助文件及相应的帮助上下文的文 件号，二者必须成对使用。【例】设计一个程序，当在窗体中单击鼠标时，

17、出现 InputBox对话框，用InputBox函数输 入一个数据，然后将该数据/&出到窗体中。效果如图14.1所示。图14.1输入对话框的界面Private Sub Form_Click ()Dim titletxt As StringDim msgtxt As StringDim yourname As Stringtitletxt =输入数据对话框msgtxt =请在下面的文本框中输入姓名+ vbCrLf + 单击确定按钮或按回车键yourname = InputBox (msgtxt, titletxt, ZhangHua )Print 从输入对话框中输入的姓名是：& yourname

18、End Sub4、使用InputBox函数时的注意事项(1)程序中执行InputBox函数后，将在屏幕上出现一个对话框，光标停留在对话框中的文本框中，等待用户输入数据。如果我们在使用时没有省略第3个参数Default (表示输入的初始默认值）时，则在文本框中显示该默认值，此时如果直接按下回车键或单击“确定” 按钮，InputBox函数的返回值（函数值）为该默认值；如果不想利用此默认值，则可直接在 文本框中键入所需要的数据，然后按回车键或单击“确定”按钮完成数据输入。（2）由于InputBox函数为输入数据函数，所以在使用该函数时，通常要将该函数的函数 值赋给一个变量，即：变量名=InputBo

19、x （参数表）。但要注意InputBox函数的函数值为一字 符串，当要利用InputBox函数输入数值时，应将其函数值利用 Val函数转换为数值后，再参 加运算。如果赋值号左边的变量名已被正确地定义了类型时，则可不必进行类型转换。（3）在InputBox输入对话框中，当在文本框中输入了数据后按回车键或单击“确定” 按钮表示确认，并返回在文本框中输入的数据；而如果单击“取消”按钮（或按Esc键）时,则取消当前的输入，此时该函数返回一个空字符串。（4）每执彳T一次InputBox函数只能输入一个值。如果需要输入多个值，则必须多次执 行或调用InputBox函数。【例】设计一个程序，当在窗体中单击鼠

20、标时，分别用两个InputBox函数输入两个数据，最后在窗体上输出两个数据的和。Private Sub Form_Click （）Dim x As Single, y As Single, z As Singlex = Val （InputBox （输入第一个数据,输入数据）y = InputBox（输入第二个数据,输入数据）由于变量y事先已被定义，所以不用转换。z = x + yPrint 两数之和为;zEnd Sub【例】使用输入框输入学生的姓名、年龄、性别，并将其显示在窗体上。运行效果如下图所 示。J程序运行结果Private Sub Command1_Click （）Dim Name

21、As String, Year As Integer, Sex As StringName = InputBox（请输入学生的姓名,学生登记表）Year = Val （InputBox （请输入学生的年龄,学生登记表）Sex = InputBox（请输入学生的性别丁学生登记表）Print Name, Year, SexEnd Suba）消息框1、语法：MsgBox (Prompt,Buttons,Title儿Helpfile,Context)2、功能：在对话框中显示消息，程序操作人员通过单击相应的按钮来进行响应，函数值为一 个整数型的数值，用来提示单击哪一个按钮。3、说明Prompt参数：必选

22、项，其值为一个字符用表达式，用来设置将要在对话框中显示的消息。其具体长度取决于所用字符的宽度，但最长不能超过1024个字符。如果需要换行，可以在字符串之间加入回车换行符( VBCRLF,将各行隔开。Buttons参数：可选项，其形式为一个数值表达式，用来设置显示按钮的数目及 形式、使用的图标样式、缺省按钮以及消息框的强制回应等。参数 Buttons的值 为下述四组值中的一个或几个的值相加而成，详见表。组 号常数值描述功能第一组vbOKOnly0只显示确定按钮。描述的是 消息框中 显示的按 钮的数目 与类型。vbOKCancel1显示确定和取消按钮。vbAbortRetrylgnore2显示终止

23、(A)、重试(R)和忽略(I )按钮。vbYesNoCancel3显示是(Y)、否(N)和取消(C)按钮。vbYesNo4显示是(Y)和否(N)按钮。vbRetryCancel5显示重试(R)和取消(C)按钮。第二 组vbCritical16显示临界消息图标。(如图10.5 (a)所示)描述图标 的样式vbQuestion32显示警告询问图标。(如图10.5 (b)所不)vbExclamation48显示警告消息 图标。(如图10.5 (c)所示)vbInformation64显示提示消息 图标。(如图10.5 (d)所示)第三 组vbDefaultButton10第一个按钮是默认按钮。定义默

24、认 按钮vbDefaultButton2256第二个按钮是默认按钮。vbDefaultButton3512第三个按钮是默认按钮。vbDefaultButton4768第四个按钮是默认按钮。第 四 组vbApplicationModal0应用程序模式。用户必须响应消息框，才能 继续在当前应用程序中工作。定义模式vbSystemModal4096系统模式。用户响应消息框前，挂起所有应 用程序。vbMsgBoxHelpButton16384向消息框中添加帮助按钮。buttons参数的取值及其含义Buttons参数由上面四组数值相加组成(一般情况下，我们只使用前三组数值) ,其组成 原则是：从每一组中

25、选择一个值，把这几个值加在一起就是 Buttons参数的值，不同的组合 会得到不同的结果。如：0+16+0=16表示在消息对话框中显示“确定”按钮、显示临界消息图标、默认按钮为确 定”，如图所示。2+32+256=290表示在消息对话框中显示“终止”、“重试”、及“忽略”三个按钮，显 示警告询问图标、默认按钮为第二个按钮“重试”，如图所示。(a)(b)(c)(d)对应于buttons参数不同取值的不同图标Title 参数：可选项，其值为一个字符用表达式，用来指定在消息对话框的标题栏中显示的文本。如果缺省title 参数，则表示将在消息对话框的标题栏中 显不应用程序的名称。Helpfile 与Context参数：可选项，用来指定帮助文件及相应的帮助上下文的 文件号，二者必须成对使用。4、MsgBox函数的返回值该函数有一个整型返回值，调用函数时，可以直接将返回值赋给一个整型变量，由于函数随时Buttons参数不同而选择有不同的按钮，因此当用户