VB教案(1-3章)省公开课一等奖全国示范课微课金奖课件

VisualBasic程序设计教程第1页第一章VB程序设计概述程序设计基本概念:计算机工作是由程序来控制。程序是指令集合。指令是计算机能够识别命令。第2页计算机语言发展机器语言：由计算机硬件系统能够识别二进制指令组成语言。比如：101110011101缺点：难懂，调试困难。第3页计算机语言发展汇编语言：将机器指令转换成为一些能够被人读懂助记符，如ADD、SUB等。比如：ADDCX,DX将DX中数值加进CX。经过汇编后执行。与硬件联络亲密，与人类自然语言相差较大。第4页计算机语言发展高级语言：屏蔽了机器细节，程序采取含有含义数据命名和轻易了解执行语句，类似英语和数学表示式。比如：Ify<3Thenz=x+y经过解释或编译后执行。如：VB、C++、Java、Labview第5页VB应用特点应用广泛易于掌握、灵活实用（Beginner’sAll-purposeSymbolicInstructionCode）结构齐全第6页VisualBasic发展20世纪60年出现Basic语言；20世纪80年代，TrueBasic、QuickBasic和TurboBasic等;1991年Microsoft企业推出VisualBasic1.0，以可视化工具为界面设计、结构化Basic语言为基础，以事件驱动为运行机制。从1991年VB1.0至1998年VB6.0屡次版本升级，功效更强大、完善，应用面更广；正式公布VisualBasic.NET。第7页VB集成开发环境第8页1.主窗口应用程序窗口，由标题栏、菜单栏和工具栏组成。2.窗体(form)窗口窗体是一块画布，是全部控件容器，用户能够依据自己需要利用工具箱上控件在画布上设计VB程序界面。3.代码(code)窗口编辑窗体、标准模块中代码。4.属性(properties)窗口全部窗体或控件属性设置。5.工程资源管理器(projectexpror)窗口保留一个应用程序全部文件。6.工具箱(toolbox)窗口显示各种控件制作工具，供用户在窗体上设计。VB集成开发环境第9页例1.1制作一个用户登录界面第10页例1.2滚动广告字幕动画演示：

第11页

VB功效特点1.含有基于对象可视化设计工具；2.事件驱动编程机制；3.提供了易学易用应用程序集成开发环境；4.结构化程序设计语言；5.强大网络、数据库、多媒体功效；6.完备help联机帮助功效。第12页创建应用程序过程1.建立用户界面对象；2.对象属性设置；3.对象事件过程及编程；4.程序运行和调试；5.保留程序,生成可执行文件。第13页使用帮助系统使用MSDNLibrary查阅器。经过VB帮助菜单，选择内容、索引或搜索菜单项

第14页第二章VB可视化编程基础2.1VB对象概念2.2窗体和基本控件2.3综合应用

第15页VB对象概念对象和类：对象指现实世界中实体。如一个人、一辆汽车、一台电脑、一份报表等。每个对象有自己特征(属性)、行为(方法)和发生在该对象上活动(事件)。比如人含有身高、体重等特征，含有行走、说话等行为，外界作用在人对象上各种活动，以下雨等。第16页

在现实世界中，许多对象含有相同性质，执行相同操作，称之为同一类对象。类是对同一个对象集合与抽象。如人类是“人”抽象。类是创建对象实例模板，对象则是类一个实例。VB对象概念第17页对象属性、事件和方法对象三要素：属性、事件、方法。属性：描述和反应对象特征参数。事件：发生在对象上，能够被其识别活动。事件发生在用户与应用程序交互时，如单击控件、鼠标移动、键盘按下等。方法：对象行为和动作，指使对象动作命令。

VB中将一些通用过程编写好并封装起来，作为方法供用户直接调用。第18页VB中类和对象比如：工具箱内TextBox是类(它确定了TextBox属性、方法和事件)窗体上显示是两个TextBox对象。第19页对象属性设置设置属性方法：在界面设计时经过属性窗口直接设置对象属性值。在程序运行中动态地更改对象属性，经过赋值语句，在代码窗口编程设置。

对象名.属性名=属性值比如：Label4.FontSize=18Command1.Visible=True第20页事件和事件过程VB为对象预先定义了一系列事件。比如，单击Click、获取焦点GotFocus、按下键盘KeyPress等事件过程应用程序处理事件步骤。应用程序设计主要工作就是为对象编写事件过程代码。事件过程形式以下：Sub对象名_事件(参数)

… 事件过程代码EndSub第21页例:单击按钮，使Text1字体为20磅.SubCommand1_Click()

Text1.FontSize=20EndSub注意：在代码窗，自动产生事件过程模板，不要修改模板内容，只需键入过程代码。模板产生用户输入事件和事件过程第22页程序执行次序与程序设计者无关，取决于用户操作，这就是事件驱动程序设计方式。VB程序执行步骤以下：①

开启应用程序，装载和显示窗体；②

窗体(或窗体上控件)等候事件发生；③

事件发生时，执行对应事件过程；④

重复执行步骤②和③。事件驱动23第23页窗体和基本控件一、通用属性

1.Name名称属性创建对象名称，有默认名。在程序中，控件名是作为对象标识而引用，不会显示在窗体上。

2.Caption标题属性 该属性决定了控件上显示内容。3.Height、width、top和left属性第24页4.Enabled属性控件是否可操作。当设置为false时，呈暗淡色，禁止用户进行操作。5.Visible属性控件是否可见。当设置为false时，用户看不到，但控件本身存在。6.Font属性

Fontname：字体；Fontsize：字体大小；Fontbold：是否是粗体；Fontitalic：是否斜体；Fontstrikethru：是否加一删除线。Fontunderline：是否带下划线。

例2.1在窗体上建立两个命令按钮Command1和Command2，Command2Font经过属性窗口设置，其余属性经过代码实现。第25页7.Forecolor前景颜色属性设置控件前景颜色（即正文颜色)。其值是一个十六进制常数，用户能够在调色板中直接选择所需颜色。8.Backcolor背景颜色属性9.控件默认属性反应该控件最主要属性，使用时可省略属性名。控件默认属性控件默认属性文本框命令按钮单项选择按钮TextDefaultValue标签图形、图像框复选框CaptionPictureValue第26页二、窗体1.属性

CaptionControlBoxPictureBorderStyle（012345）WindowsState（0-正常、1-最小化、2-最大化）2.事件

Click、DblClick和Load

Load当装入窗体时激发，通惯用于对属性和变量初始化3.方法Print、Cls和Move等

方法是面向对象，故其使用形式为：[对象.]方法第27页Print方法

形式：[对象.]Print表示式作用：在对象上输出信息。对象：窗体、图形框或打印机(Printer)，省略对象在窗体上输出比如：Form1．Print“欢迎使用VB6.0”Cls方法形式：[对象.]Cls作用：去除运行时在窗体或图形框中显示文本或图形。注意：不去除在设计时文本和图形。Move方法

形式：[对象.]MoveLeft[，Top[，Width[，Height]]]作用：移动窗体或控件，并可改变其大小。对象：能够是窗体及除时钟、菜单外全部控件。第28页比如：双击窗体，使其移动到屏幕左上角，而且面积减小二分之一。PrivateSubForm_DblClick()Form1.Move0,0,Form1.Width/2,Form1.Height/2EndSub第29页水平滚动字幕：SubMymove()Label1.movelabel1.left+200IfLabel1.left>Form1.widthThenLabel1.left=0EndSub第30页三、标签Label用于显示文本(输出)信息，不能作为输入信息界面。第31页四、文本框是一个文本编辑区域，可在该区域输入，编辑和显示正文内容。

主要属性

Text：正文内容；Maxlength：设置正文最多字符个数，0任意长度值；MultiLine：是否为多行，默认为一行，False；ScrollBars：MultiLine为True时，该属性才有效，表示滚动条形式0-None、1-Horizontal、2-Vertical、3-Both；Locked：是否可被编辑属性，False，表示为可编辑。PassWord：口令字符；Text属性返回输入数据，屏幕显示该字符；SelStart、SelLength、SelText：选汉字本起始、长度、内容。第32页例2-4文本编辑器第33页程序代码：PrivateSubForm_Click()Text1.SelStart=0Text1.SelLength=8Text2.Text=Text1.SelTextEndSub第34页惯用事件

Change：当改变文本框Text属性时会引发该事件。KeyPress(KeyAsciiAsInteger)：同上，并可返回一个KeyAscii参数即所按键值存放在参数KeyAscii中。比如：对回车判断

KeyAscii=13LostFocus：当控件失去焦点时发生。GotFocus：当控件取得焦点时发生。惯用方法

[对象.]SetFocus：是把光标移到指定文本框对象中。比如：Text1.SetFoucs例2-5文本框大小写字母转换，以KeyPress为驱动事件。第35页程序代码：PrivateSubCommand1_Click()Text1.Text=""Text2.Text=""EndSubPrivateSubCommand2_Click()EndEndSub第36页PrivateSubText1_KeyPress(KeyAsciiAsInteger)DimaaAsString*1aa=Chr$(KeyAscii)'将ASCII码转换成字符SelectCaseaaCase"A"To"Z"'大写转换成小写aa=Chr$(KeyAscii+32)Case"a"To"z"'小写转换成大写aa=Chr$(KeyAscii-32)Case""CaseElseaa="*"EndSelect'将转换文本框已经有内容与刚输入并转换字符连接Text2.Text=Text2.Text&aaEndSub第37页五、命令按钮

主要属性Caption：命令按钮显示内容，可设置快捷键，例&Ok，显示Ok。Style：确定显示形式，0只能显示文字，1文字、图形均可。Picture：按钮可显示图片文件(.bmp和.Ico)，当Style为1时有效。ToolTipText：设置图形按钮文字提醒，和Picture结合使用。事件

Click第38页例2-6建立一个允许剪切、复制和粘贴简单记事本程序。

综合应用第39页程序代码:DimstAsStringPrivateSubCommand1_Click()st=Text1.SelTextText1.SelText=""EndSubPrivateSubCommand2_Click()st=Text1.SelTextEndSubPrivateSubCommand3_Click()Text1.SelText=stEndSubPrivateSubCommand4_Click()Text1.FontName="黑体"EndSubPrivateSubCommand5_Click()Text1.FontSize=20EndSubPrivateSubCommand6_Click()EndEndSub第40页例2-7利用文本框，实现加法运算。第41页程序代码：PrivateSubText1_LostFocus()IfNotIsNumeric(Text1)ThenText1=""Text1.SetFocusEndIfEndSubPrivateSubText2_KeyPress(KeyAsciiAsInteger)IfKeyAscii=13ThenIfNotIsNumeric(Text2)ThenText2=""EndIfEndIfEndSubPrivateSubText3_GotFocus()Text3=Val(Text1)+Val(Text2)EndSub第42页本章小节类是同种对象集合与抽象，包含所创建对象属性描述和行为特征定义，是创建对象实例模板。对象三要素：属性、事件、方法窗体是全部控件容器基本控件标签、文本框、命令按钮第43页Move方法形式：[对象.]MoveLeft[，Top[，Width[，Height]]]比如：Command1.Move0,50,Command1.Width/2第44页从右至左滚动字幕：SubMymove()Label1.movelabel1.left-200IfLabel1.left<0ThenLabel1.left=Form1.widthEndSub第45页第三章VB语言基础

数据类型

变量和常量

运算符和表示式

程序结构和编码规则第46页数据类型第47页数值型数据

(1)整数整型：Integer占2字节类型符为%范围：-32768—32767比如：123、-456、30289%长整型：Long占4字节类型符为&范围：-2147483648—2147483647比如：-1234567&、396&

(2)浮点数又称实数，是带有小数部分数值，并可表示为指数形式。单精度：Single占4字节类型符为!范围：-3.4×10-38—3.4×10+38精度达7位。比如：342.54、1.543E+8、0.453E-4双精度：Double占8字节类型符为#范围：-1.7×10-308—1.7×10+308

精度达15位。比如：342.54#、3.432D+67、0.453E-4#第48页数值型数据(3)货币类型Currency占8字节类型符为＠，用于货币计算范围：小数点左边15位，小数点右边4位比如：2347@、3.548@(4)字节类型Byte占1字节无类型符范围：0-255

占一个字节无符号整数。第49页字符型数据字符型：String，类型符为$，用于存放字符型数据，包含全部西文字符和汉字及符号，用双引号括起。范围：0—65535个字符。比如：“abc”、“45gssk”、“程序设计”、“123”注意：“”表示空字符，“”表示有一个空格字符。第50页逻辑型数据

只有True（真）和False（假）两个值，以两个字节存放。用于逻辑判断和逻辑运算。

日期型数据

用于表示时期、时间，占8字节，用#括起来表示。日期范围：01.01.100----12.31.9999时间范围：0:00:00—23:59:59比如：#-7-1212:30:36PM#、#January15，#、#07/13/#、#05/12/#第51页变体型数据

全部未定义变量默认为变体型数据，能够是数值型、字符型、日期型等，依据程序运行需要来处理。编程习惯应“先申明变量，后使用变量”。使用变体型数据内存空间大，运行效率低，不易于调试。对象型数据用于存放程序对象地址，如控件对象，占4字节。如：Command2、Form1第52页VB基本数据类型第53页变量在程序运行过程中，其值能够改变量称为变量。变量需含有：名字、数据类型和作用域。经过Dim语句来申明变量：形式：Dim变量名As数据类型比如：DimAAsIntegerDimabcAsString,sumAsSingle等价于：Dimabc$,sum!即可用类型符代替“As类型”。第54页变量申明比如：DimxAsInteger,yAsInteger,zAsInteger不能写作：Dimx,y,zAsIntegerDimm，nAsInteger,x，yAsSingle

则创建了变体型变量m、x，整型变量n和单精度型变量y第55页变量命名规则必须以字母或汉字开头，由字母、汉字、数字或下划线组成，长度小于等于255个字符不能使用VB中关键字，如If、ThenVB不区分变量名大小写，普通变量名首字母用大写，其余用小写字母表示；常量全部用大写字母表示。第56页变量命名规则正当变量名：A,x3,BOOK_1,sum5,Doc2,abc非法变量名：3st（不能以数字开头）s*T（出现非法字符*）dwht（变量名不能有空格）DimSinAsInteger（Sin是函数名）x-y（变量名中不能出现减号）第57页变量命名规则练习：以下变量名是否正当？a123、a123、a12_3、123_a、yhgx、integer、Sum、Label1、变量名、Avg.1、strName第58页变量默认初值数值型变量：0字符串变量：“”（空）逻辑变量：False如：PrivateSubForm1_Click()DimaAsIntegera=a+2Printa

EndSub第59页隐式申明对变量不加申明而直接使用，其类型为Variant类型。比如：PrivateSubForm1_Click()a=10:b=20Sum=a+bPrint“Sum=”;Sum

EndSub

提议不使用。注意:在通用申明处加OptionExplicit语句可强制显式申明变量。第60页常量在程序运行过程中，其值不能改变量称为常量。1、直接常量各种类型常数值，其常数值直接反应了其类型。

如:123、-123、123%均为整型123&为长整型123.45、123.45！、0.12E+3均为单精度型123.45#为双精度型123.45@为货币型#03/12/#、#-12-3112：30：00PM#均为日期型“12345”、“asddf234”、“程序设计”均为字符型。第61页常量2、用户申明符号常量由用户定义符号来表示常量。形式：Const符号常量名[As类型]=表示式比如：ConstPI=3.14159申明符号常量PI，代表3.14159，单精度型

ConstCOUNTS#=45.67

’COUNTS代表了双精度数45.67第62页常量3、系统提供常量系统提供许多内部常量，在VB中是以vb为前缀。比如：vbRed表示红色vbNormal表示正常Form1.WindowsState=vbNormal’窗口正常Form1.WindowsState=vbMaximized’窗口最大化第63页运算符和表示式运算符是表示实现某种运算符号。VB中运算符可分为：1、算术运算符2、字符串运算符3、关系运算符4、逻辑运算符第64页算术运算符^-*/\mod+—优先级别:从左向右是由高到低。如:2^383*2627^(1/3)310/33.3333333333333310\3310mod3130-True31False+10+”4”14

算术运算符两边应是数值型，如是字符型或逻辑型，则自动转换成数值型再运算。第65页算术运算符ia=3第66页算术表示式表示式中全部运算符和操作数都是并排。a*b*c*d/e/f/g或a*b*c*d/(e*f*g)

数学表示式:(3x+y)-z(xy)4

VB表示式:sqr((3*x+y)-z)/(x*y)^4sin(45*3.14/180)+(exp(10)+log(10))/sqr(x+y+1)第67页算术表示式乘号不能省略。例：应为:S=3.14*r^2括号必须成对出现(均使用圆括号)。表示式：Abs(x+y)+z^5表示式：(-b+Sqr(b*b-4*a*c))/(2*a)表示式：(2*3.14*r+exp(-5))*log(x)第68页数据类型转换算术运算中，假如操作数含有不一样精度，则运算结果数据类型采取精度高数据类型。转换规则：Integer<Long<Single<Double<Currency当Long型数据与Single型数据运算时，结果为Double型。第69页字符串运算符&、+，将两个字符串连接起来。比如：“abcd”+“DFEG”结果：“abcdDFEG”“100”&“sdgf”结果：“100sdgf”&两旁操作数可任意，均转换成字符型后再连接。&与两旁操作数之间要加空格。比如：操作结果"ab"&123"ab123" "12"&456"12456" "12"&True"12True" 第70页字符串运算符+两旁操作数应均为字符型。若操作数为数值型，则进行加法运算。若一为数字字符，一为数值型，则自动将数字字符转换为数值后进行加法运算。若一个为非数字字符，另一个为数值型，犯错。比如：“12”+456结果：468

“1”+“12345”结果：112345“ab”+12结果：犯错1+”123”&100结果：12123100第71页关系运算符关系运算符作用是对两个操作数进行大小比较，若关系成立，则返回True，不然返回False。操作数能够是数值型、字符型。运算符例结果="ABCDE"="ABR"False>"ABCDE">"ABR"False>="bc">="abcde

"True<23<3False<="23"<="3"

True<>"abc"<>"abcde

"True第72页关系运算符比较规则：

1、字符比较时是按其ASCII码值比较大小，而且是从左向右一个一个字符比较。2、汉字字符是按拼音为序进行比较。而且汉字字符大于西文字符。3、数值型数据，直接按其大小进行比较。第73页逻辑运算符逻辑运算符作用是将操作数进行逻辑运算，结果是逻辑值True或False。第74页逻辑表示式例1：选拔优异生条件为：年纪(Age)小于19岁，三门课总分(Total)高于285分，其中有一门为100分，其表示式写为：Age<19AndTotal>285And(Mark1=100OrMark2=100OrMark3=100)例2：表示x是5或者7倍数。第75页运算符优先级算术运算符>字符运算符>关系运算符>逻辑运算符例题：表示算术表示式：

正确VB表示式：3<=xAndx<=7

错误VB表示式：3<=x<=7或3<=xOrx<=7思索：a小数b大数第76页例题在Text1中输入一个小于100正整数，判断输入数据是否正确，若正确则计算其平方根，不然清空Text1重新输入。第77页程序代码PrivateSubCommand1_Click()a=Val(Text1)Ifa>=100Ora<=0OrInt(a)<>aThenText1=""Text1.SetFocusElseText2=Sqr(a)EndIfEndSub第78页惯用函数VB函数包含：内部函数和用户自定义函数内部函数数学函数转换函数字符串函数日期函数Shell函数第79页数学函数-43Int(-3.5)Int(3.5)取小于或等于N最大整数Int(N)2.3Log(10)自然对数Log(N)-33Fix(-3.5)Fix(3.9)取整Fix(N)20.086Exp(3)enExp(N)1Cos(0)余弦函数Cos(N)3.5Abs(-3.5)取绝对值Abs(N)结果实例含义函数名第80页数学函数0Tan(0)正切函数Tan(N)3Sqr(9)平方根Sqr(N)-1Sgn(-3.5)符号函数Sgn(N)0Sin(0)正弦函数Sin(N)-44Round(-3.5)Round(3.5)四舍五入取整Round(N)[0,1)之间数Rnd产生随机数Rnd[(N)]结果实例含义函数名第81页数学函数例：Int(3.2)=3Int(3)=3Int(6.8)=6Int(-3.4)=-4Rnd函数生成[0，1）双精度随机数。例：在马上窗口经过printRnd语句观察随机函数运行效果。第82页应用举例试验B-3我国有13亿人口，年增加率0.8%，多少年后人口超出26亿。计算结果以整数形式输出。PrivateSubCommand1_Click()n=Int(Log(2)/Log(1.008)+1)Label1=n&"年后人数超出26亿"EndSub第83页应用举例生成一个0~100之间随机整数。产生[0，1）随机数：Rnd产生[0，100）随机数：Rnd*100产生[0，100）随机整数：Int(Rnd*100)问题1：生成[0，100]范围内随机整数。问题2：生成[100，200]随机整数。问题3：生成[30，50]随机整数。第84页试验B-5随机产生一个3位正整数，然后逆序输出，产生随机数与其逆序数同时显示。PrivateSubCommand1_Click()Text1=Int(Rnd*900+100)EndSubPrivateSubCommand2_Click()Dimx%,x1%,x2%,x3%x=Val(Text1)x1=xMod10x2=(xMod100)\10x3=x\100Text2=x1*100+x2*10+x3EndSub第85页转换函数"ABC"Ucase("abc")小写字母转为大写字母Ucase(C)"144"Oct$(100)十进制转换成八进制Oct(N)"123.45"Str$(123.45)数值转换为字符串Str(N)123Val("123AB")数字字符串转换为数值Val(C)"abc"Lcase("ABC")大写字母转为小写字母Lcase$(C)64Hex(100)十进制转换成十六进制Hex(N)"A"Chr(65)ASCII码值转换成字符Chr(N)-11-13CDate("/11/13")转换成日期型CDate65Asc("A")字符转换成ASCII码值Asc(C)结果实例功效

函数名第86页字符串函数"BCD"Mid("ABCDE",2,3)取字符子串Mid(C,N1[,N2])"ABCD"Trim("ABCD")去掉字符串两边空格Trim(C)"A3AB3"Replace("ACDABCD","CD","3")用C2替换C1Replace(C,C1,C2)"

"Space(3)产生N个空格字符串

Space(N)4Len("AB教育")字符串长度Len(C)"ABC"Left("ABCDE",3)取字符串左边n个字符Left(C,N)6InStr("EFABCDEFG",“DE")在C1中找C2，若找不到则结果为0InStr(C1,C2)结果实例说明

函数名第87页日期函数Second(#1:12:56PM#)返回秒(0~59)Second(C|N)Time返回系统时间TimeYear(Now)返回年代号(1753~2078)Year(C|N)Now返回系统日期和时间NowMonth(",05,01")返回月份代号(1~12)Month(C|N)Minute(#1:12:56PM#)返回分钟(0~59)Minute(C|N)Hour(#1:12:56PM#)返回小时(0~24)Hour(C|N)Day(",05,01")返回日期代号(1~31)Day(C|N)Date返回系统日期Date实例说明

函数名第88页日期函数例:计算从当前日期到6月30日有多少天？表示式为：DateDiff("d",Now,#-6-30#)计算从当前日期到6月30日有多少周？表示式为：DateDiff(“ww”,Now,#-6-30#)计算从2月14日增加两周后日期：DateAdd("ww",2,#-2-14#)第89页Shell函数Shell函数可调用各种应用程序。格式以下：

Shell(命令字符串[，窗口类型])函数调用成功返回一个任务标识ID，不成功则返回0。例

i=Shell("calc.exe”,1)

j=Shell(“Mspaint.exe”,1)要执行应用程序（扩展名为.com.exe.bat），包含路径执行时窗口大小，范围0~4、6，普通取1表示正常大小。第90页程序结构第91页编码规则(1)VB代码不区分字母大小写关键字首字母自动转换成大写，其余字母转换成小写。用户自定义变量、过程名，以第一次定义为准，以后输入自动向首次定义形式转换。(2)语句书写自由一行上可书写多句语句(用冒号分隔)，一行最多255个字符。单行语句可分若干行书写，在本行后加入续行符(空格和下划线)。第92页综合例题模仿Word字处理软件，实现字符串查找替换功效。第93页综合例题实现思绪：利用替换(Replace)函数实现替换功效。利用查找(InStr)、取子串(Left、Mid)等函数实现替换功效。利用Shell函数调用winword.exe执行Word程序实现替换功效。第94页综合例题程序代码：PrivateSubCommand2_Clic