VB最全课件-教程【完整版】

1、第1章 Visual Basic 编程环境沈阳理工大学应用技术学院0.本章内容 可视化与事件驱动型语言 Visual Basic 的启动与退出主窗口其他窗口 2 1.可视化与事件驱动型语言可视化界面设计 VB提供的可视化设计平台，把Windows界面设计的复杂性“封装起来。程序员不必再为界面的设计而编写大量程序代码，只需用系统提供的工具在屏幕上“画出各种对象，程序员所需要编写的只是实现程序功能的那局部代码。事件驱动的编程机制 VB通过事件来执行对象的操作。由用户操作引发某个事件来驱动完成某种特定的功能，或由事件驱动程序调用通用过程来执行指定的操作3 启动VB的方法(1) 在“开始菜单的“程序组

2、中用鼠标单击“Microoft Visual Basic6.0(2) 用鼠标双击桌面上的“Microoft Visual Basic 6.0快捷图标(3) 在“运行中，输入VB 程序所在的路径(4) 进入VB文件夹双击VB 程序文件.exeVB启动后，首先显示“新建工程对话框，缺省状态下“新建工程对话框的选项为“标准EXE ，是典型的应用程序。2.Visual Basic 的启动与退出4 退出VB 单击“关闭按钮，或选择“文件菜单中的“退出命令或按ALT+Q2.Visual Basic 的启动与退出5 3.主窗口由标题栏、菜单栏和工具栏组成 6 菜单栏工具栏代码窗口工具箱窗体窗口立即窗口监视窗

3、口工程窗口属性窗口布局窗口标题栏标题栏 屏幕顶部的水平条，显示窗口的标题名字和工作模式。 VB有三种工作模式：设计模式、 运行模式、中断模式。菜单栏 提供了开发、调试和保存应用程序所需的工具。菜单栏中有13个菜单项，即“文件、“编辑、“视图、“工程、“格式、“调试、“运行、“查询、“图表、“工具、“外接程序、“窗口、“帮助 。3.主窗口由标题栏、菜单栏和工具栏组成 7 工具栏 它以图标按钮的形式提供了常用的菜单命令。单击工具栏上的按钮，那么执行该按钮所代表的操作。按照缺省规定，启动VB之后显示“标准工具栏。3.主窗口由标题栏、菜单栏和工具栏组成 8 4.其他窗口窗体设计器窗口9 窗体设计窗口窗

4、体名窗体文件名 简称窗体，它可以作为自定义窗口。用户可以在窗体中添加控件、图形和图片来创立所希望的外观。每个窗口必须有一个的窗体名字，建立窗体时缺省名为Form1,Form2, . . .。 应注意窗体名即Name属性和窗体文件名的区别 4.其他窗口工程资源管理器窗口工程是指用于创立一个应用程序的文件的集合。工程资源管理器列出了当前工程中的窗体和模块三个按钮：查看代码，查看对象，切换文件夹共有六种文件类型：窗体文件(.frm)程序模块文件(.bas)类模块文件(.cls)工程文件(.vbp)工程组文件.vbg资源文件(.res) 10 4.其他窗口属性窗口属性是指对象的特征，如大小、标题或颜色

5、等数据属性窗口有四局部组成：对象框属性显示框属性列表框当前属性解释框11 4.其他窗口工具箱窗口由工具图标组成。工具分两类:内部控件(标准控件)ActiveX控件。控件就像盖房子使用的门、窗、砖瓦等，都是现成部件，只要到现场组合就可以了VB工具箱中包含了各种VB标准控件。包含一个指针和20个标准控件12 第2章 对象与根本控件沈阳理工大学应用技术学院0.本章内容 对象及其属性设置 窗体 控件 控件的画法和根本操作 文本控件 图形控件 按钮控件14 1.对象及其属性设置VB的对象对象 是VB系统中的根本运行实体，对象分二类：一类是预定义对象，由系统设计好可直接使用或操作窗体和控件；另一类是自定义

6、对象。可以用属性、方法、事件三个方面来描述它。对象的属性每个对象都有其特征，在VB中叫做属性。设置属性有两条途径：在程序设计时设置对象的属性，需要使用属性窗口。在程序运行中更改对象的属性，可以使用VB的赋值语句：对象名.属性名 属性值15 1.对象及其属性设置对象事件 由系统预先设置好的、能被对象识别的动作。如：鼠标的移动(MouseMove)、单击(Click)和双击(Dblclick)，窗体的装载(Load)等。每一种对象能识别的事件是不同的事件过程响应某事件后所执行的程序代码段。 事件过程的语法格式如下 Sub 对象名_事件名() 处理事件的程序代码 End Sub16 1.对象及其属性

7、设置 例如：命令按钮Command1的单击(Click)事件过程为： Private Sub Command1_Click() Forml.Caption = “在窗体上画圆 以圆心(2400，1500)， 半径为800画圆 Forml.Circle (2400,1500),800 End Sub17 1.对象及其属性设置对象方法 方法是对象所能提供的功能。VB的方法用于完成某种特定功能。如对象打印Print方法、显示窗体Show方法、移动Move方法。调用对象方法： 对象名.方法名例： Form1.Cls 消除窗体Form1上的内容 Print Visual BASIC 在当前窗体上显示18

8、 1.对象及其属性设置对象属性设计激活属性窗口的方法：1. 用鼠标单击属性窗口任何部位2. 执行“视图菜单的“属性窗口命令3. 按F4键4. 单击工具栏上的“属性窗口按钮5. 按组合键 Ctrl+PgDn或Ctrl+PgUp对象属性设计的方法：1. 直接输入新属性值2. 选择输入通过下拉列表选择所需属性值3. 利用对话框设置属性值19 2. 窗体窗体的结构与属性窗体的结构：图标、标题栏、控制菜单、最小化按钮、最大化按钮、关闭按钮 20 2. 窗体窗体的属性：窗体的许多属性会影响窗体的外观。用两种方法设置窗体属性： 1通过属性窗口 2通过程序代码设置窗体的常用属性：Name 属性:窗体的名称即标

9、识符(缺省值Form1)Caption 属性:设置标题栏显示的内容Left 属性:设置窗体左上角的横坐标Top 属性:设置窗体左上角的纵坐标Width 属性:设置窗体的宽度Height 属性:设置窗体的高度21 2. 窗体FontBold 属性：设置窗体上输出的字符是否为粗体 FontItalic 属性：设置窗体上输出的字符是否为斜体 FontName 属性：决定窗体上正文的字体(缺省为宋体)FontSize 属性：决定窗体上正文的字体大小Enabled 属性：决定窗体是否对事件产生响应Visible 属性：窗体在程序运行时是否可见BackColor 属性：用于确定窗体的背景颜色ForeCol

10、or 属性：用于确定窗体里显示图片和文本的 前景颜色Moveable 属性：窗体在程序运行时是否可以移动WindowsState 属性：窗体在运行时的大小。 0:常态；1:最小化；2:最大化。Boderstyle 属性：用于确定窗体的边框风格22 2. 窗体窗体事件Click事件(单击) 该事件是在单击一个空白区或一个无效控件时发生。如果单击的是窗体内的控件，那么执行该控件的Click 事件。DbClick事件(双击) 该事件是在双击一个空白区或一个无效控件时发生。Load事件 先把窗体属性设置为初始值，再执行Load事件过程。当应用程序开始运行时，Visual Basic 自动加载并显示应用

11、程序的启动窗体。23 2. 窗体Unload事件 从内存中卸载窗体。关闭窗体时触发的事件。Activate事件与Deactivate事件 每当一个窗体变成活动窗体时，就会产生一个Activate事件；当另一个窗体或应用程序被激活时，就会产生Deactivate事件。Paint事件 当窗体被移动或放大时，或窗口移动时覆盖了一个窗体时，触法该事件。24 3. 控件VB中的控件通常分为3种类型：(1) 内部控件：在默认状态下工具箱中显示的控件都是内部控件，不可从工具箱中删除。如命令按钮、单项选择按钮、复选框等控件。 (2) ActiveX控件：这类控件单独保存在.ocx类型的文件中，其中包括各种版本

12、VB提供的控件，另外也有许多软件厂商提供的ActiveX控件。 (3) 可插入的对象。25 3. 控件内部控件工具箱里列出的是内部控件控件的命名 Name属性值。为了能见名知义，通常用3个小写字母作为对象的Name属性的前缀控件值 用“控件.属性的格式设置一个控件的属性值 如：Text1.Text=“hello!26 4. 控件的画法和根本操作控件的画法单击工具箱中控件按钮，在窗体上拖动鼠标画出控件。双击工具箱中控件按钮，即可在窗体的中央画出控件。 控件的根本操作控件的缩放和移动直接使用鼠标拖动控件到需要的地方。利用鼠标指针对准控件的选中标志8个小方块出现双向箭头时，可以改变控件的大小。在属性

13、窗口修改某些属性来改变控件的大小和位置。与窗体和控件大小及位置有关的控件属性有：Left、Top、Width及Height。27 4. 控件的画法和根本操作控件的根本操作控件的复制与删除在窗体上，控件的复制和删除操作同Windows环境下文件的操作相同。 (1) 选中控件，单击工具栏上的“复制按钮将控件复制到剪贴板中。 (2) 单击“粘贴按钮将控件粘贴到窗体的左上角。在“是否创立控件数组对话框，单击“否。删除活动控件，只需选中控件后按Del键或单击工具栏上的“删除按钮。 28 4. 控件的画法和根本操作控件的根本操作选定多个控件 (1)在窗体的空白区域利用鼠标左键拉出一个矩形框，将需要选中的控

14、件圈上即可选定多个控件。 (2)先按住Shift键，再用鼠标单击所要选中的控件。 通过属性窗口改变对象的位置和大小 29 5. 文本控件标签根本属性 Name、Height、Width、Top、Left、Enabled、Visible、Font、ForeColor、BackColor等与窗体的使用相同常用属性 Caption：用来改变Label控件中显示的文本。Alignment：设置Caption属性中文本的对齐方式，共有三种可选值： 0 左对齐(Left Justify) 1 右对齐(Right Justify) 2 居中对齐(Center Justify)30 5. 文本控件BackSt

15、yle：确定标签的背景是否透明。值为0时，表示背景透明，标签后的背景和图形可见；值为1时，表示不透明，标签后的背景和图形不可见。AutoSize：确定标签是否会随标题内容的多少自动变化。值为True，随Caption内容大小自动调整控件本身的大小，且不换行；值为False，表示标签的尺寸不能自动调整，超出尺寸范围的内容不予显示。 WordWrap：设置标签的标题文字是否能自动换行。True-自动换行, AutoSize=True False-不自动换行31 5. 文本控件32 【例1】在窗体上放置5个标签，其名称使用默认值Label1Label5，它们的高度与宽度相同，在属性窗口，按下表设置它

16、们的属性 默认控件名Name标题Caption有关属性设置Label1左对齐Alignment=0， BorderStyle =1 Label2水平居中Alignment=1，BorderStyle =1Label3自动AutoSize=True， WordWarp=False， BorderStyle =1Label4背景白BackColor= &H00FFFFFF&， BorderStyle =0Label5前景红ForeColor= &H000000FF&， BorderStyle =05. 文本控件事件支持Click(单击)事件和DblClick(双击)事件一般情况不对它进行编程33

17、设置后各标签的显示如以下图5. 文本控件文本框根本属性 Name、Height、Width、Top、Left、Enabled、Visible、Font、ForeColor、BackColor等与窗体的使用相同常用属性 Text：显示的正文内容。当程序运行时，用户通过键盘输入正文内容，保存在Text属性中。文本框没有Caption属性Maxlength： 设置正文最多字符的个数, 0任意长度值。 MultiLine： 是否为多行， False默认一行 。34 5. 文本控件ScrollBars： 当MultiLine为True时,该属性才有效。滚动条的形式：0-None：无滚动条1-Horizo

18、ntal：水平滚动条2-Vertical垂直滚动条3-Both水平和垂直滚动条Locked：是否可被编辑属性，False表示可编辑。PassWordChar：为了掩盖文本框中输入的字符。该属性的设置只有在MultiLine设为 False才有效SelStart：确定在文本框选中文本的起始位置。 第一字符的位置为0。假设没有选择文本，那么用于返回或设置文本的插入点位置如果SelStart的值大于文本的长度，那么SelStart取当前文本的长度：35 5. 文本控件SelLength：设置或返回文本框中选定的文本字符串长度字符个数。SelText：设置或返回当前选定文本中的文本字符串。事件和方法C

19、hange ：当改变文本框的Text属性时会引发该事件。当用输入一个字符，就会触发一次Change事件GotFocus ： 当控件获得焦点时发生LostFocus ： 当控件失去焦点时发生SetFocus：文本框最常用的方法，是把光标移到指定的文本框对象中。使用形式： 对象.SetFocus36 5. 文本控件37 【例2】在窗体上放置3个文本框和1个命令按钮，用Change事件改变文本框的Text属性 Private Sub Command1_Click() Text1.Text = Microsoft Visual Basic 6.0End SubPrivate Sub Text1_Cha

20、nge() Text2.Text = LCase(Text1.Text) Text3.Text = UCase(Text1.Text)End Sub运行程序后单击命令按钮，输出结果是：5. 文本控件38 【例3】设置密码，在窗体上放置2个文本框和2个命令按钮5. 文本控件39 编写按钮的事件过程： Private Sub Command1_Click() If Text1.Text = 123456 Then Text2.Text = OK,come in! Else Text2.Text = 密码错误，重新输入！ End IfEnd SubPrivate Sub Command2_Click

21、() Text1.Text = Text2.Text = Text1.SetFocusEnd Sub运行程序后单击命令按钮，输出结果是：6. 图形控件图片框和图象框根本属性 与窗体属性相同的属性。注意对象名称不能省略，必须是具体的图片框或图象框的名。常用属性 CurrenX和CurrenY：设置下一个输出的水平或垂直坐标。省略为当前坐标 。 Stretch ：为True 时，依据控件大小调整图片的大小，这可能使图片变形。Picture ：用于设置在图片框中要显示的图像文件属性窗口中设置运行时用Loadpicture 函数装入 Picture1.Picture=LoadPicture(图形文件名

22、)40 6. 图形控件图形文件的装入 图片框和图象框的区别图片框是容器控件，可以作为父控件，而图像框不能作为父控件。图片框可以通过Print 方法接收文本，并可接收由像素组成的图形，而图像框不能接收图像框比图片框占用的内存少，显示速度快。在设计阶段装入图形文件通过属性窗口中的Picture 属性装入图形通过剪贴板把图形粘贴到图片框和图像框中在运行阶段装入图形文件格式为: 对象.Picture = LoadPicture(“文件名)41 6. 图形控件42 Private Sub Form_Load() Show Picture1.Print 在图片框内写字和画圆 Picture1.Circle

23、(1200, 1000), 600, RGB(0, 0, 255) End Sub【例4】在窗体上放置1个图片框，在其中显示文字和画图编写窗体的事件过程： 6. 图形控件直线和形状根本属性 与窗体属性相同的属性。 Shape控件和Line控件只用于外表装饰，不支持任何事件。 常用属性 BorderColor ：用来设置颜色BorderStyle：用来确定边界线的线型,有以下7种0Transparent 透明1Solid ( 缺省值)实线 _2Dash 虚线3Dot 点线. 4DashDot 点划线-.-.-.-.-.-. 5DashDotDot 双点划线-.-.-.-.6InsideSolid

24、 内收实线 _ 43 6. 图形控件BorderWidth ：用来设置形状边界线和直线的宽度BackStyle ：用于决定形状是否被指定的颜色填充值为0默认：表示形状边界内的区域是透明的值为1： 该区域由BackColor 所指定的颜色填充FillColor：用来定义形状的内部颜色FillStyle：决定了形状控件内部的填充样式,有8种:0Solid 实线1Transparent (缺省值) 透明2Horizontal Line 水平直线3Vertical Line 垂直直线4 Upward Diagonal 上斜对角线5 DownwardDiagonal 下斜对角线6 Cross 十字线7D

25、iagonalCross 交叉对角线44 6. 图形控件Shape ：用来确定所画形状的几何特性0 VbShapeRectangle (缺省值)矩形 1 VbShapeSquare 正方形2 VbShapeOvel 椭圆形 3VbShapeCircle 圆形4VbShape-RoundedRectangle 圆角矩形5VbShape-RoundedSquare 圆角正方形45 7. 按钮控件命令按钮根本属性 Name、Height、Width、Top、Left、Enabled、Visible、Font等与窗体的使用相同常用属性 Cancel：逻辑值，设置为Ture时，程序运行时按Esc键与单击

26、此命令按钮的效果相同。注意：在一个窗体只能有一个按钮的Cancel设置为Ture Default：逻辑值，设置为True时，按Enter键相当于用鼠标器单击了该按钮。注意：在一个窗体只能有一个按钮的Default设置为Ture46 7. 按钮控件Value: 检查该按钮是否按下. 该属性在设计时无效Picture : 按钮可显示图片文件(.bmp和.Ico)，只有当Style属性值设 为1时有效Style : 确定显示的形式. 0 只能显示文字, 1 文字、图形均可事件最常用的事件是Click(单击)事件不支持DblClick(双击)事件47 7. 按钮控件48 【例5】编写程序，模拟交通信号

27、灯的切换。在窗体上画红、黄、绿3个图像框和2个命令按钮，按下表设置它们的属性 7. 按钮控件49 编写事件过程：Private Sub Form_Load() image2.Visible = False image3.Visible = FalseEnd Sub Private Sub Command1_Click() If image1.Visible = True Then image1.Visible = False image2.Visible = True ElseIf image2.Visible = True Then image2.Visible = False image3

28、.Visible = True Else image3.Visible = False image1.Visible = True End IfEnd SubPrivate Sub Command2_Click() EndEnd Sub运行程序后单击命令按钮，输出结果是：第3章 建立简单VB应用程序沈阳理工大学应用技术学院0.本章内容语句编写简单的VB应用程序程序的保存、装入和运行VB 应用程序的结构与工作方式51 1. 语句语句的书写规那么自动语法检查如果设置了“自动语法检测选项卡，那么在输入语句的过程中，VB将自动对输入的内容进行语法检查。格式化处理VB会按约定对语句进行简单的格式化处理，

29、例如关键字、函数的第一字母自动变为大写，运算符前后加空格等。复合语句行每个语句以回车键结束。VB允许使用复合语句行，把几个语句放在一个语句行中，语句之间用冒号“:隔开。语句的续行当一条语句很长时，用续行符“_将一个较长的语句分为多个程序行。52 1. 语句赋值语句是把指定的值赋给某个变量或带有属性的对象。格式：Let目标操作符=源操作符源操作符为: 变量简单或下标变量，表达式数值、字符串或逻辑表达式，常量，带有属性的对象目标操作符：变量或带属性的对象 “=“ 称为赋值符号，有时序性和方向性功能：把“源操作符的值赋给“目标操作符说明：表达式中的变量必须是赋过值的，否那么变量的初值自动取零值(变长

30、字符串变量取空字符)。例如： a= 1 c= a + b + 3 b未赋过值，为0 执行后，c 值为 453 1. 语句利用赋值语句，可以改变变量的值，因此，同一变量在不同时刻可以取不同的值。Private Sub Form_Click() a = 3 : Print *A= & a a = 7 : Print *A= & a a = a * 2 + 3 : Print *A= & a End Sub 运行程序后单击窗体，输出的结果如下： *A=3 *A=7 *A=17赋值语句跟数学中等式具有不同的含意，例如赋值语句x=x+1，表示把变量x的当前值加上1后再将结果赋给变量 “先读后写：读出x的

31、内容 加1写回x覆盖原有内容54 1. 语句注释语句在程序的适应位置加上必要的注释，可以提高程序的可读性。格式：Rem 注释内容 或 注释内容功能：在程序中参加注释内容，以便于对程序的理解。例如： Rem 交换变量a和b的值 c = a c为临时单元 a = b b = c55 1. 语句说明：非执行语句，起注释作用，不编译在程序清单中，但被完整列出。 任何字符都可作注释内容。通常放在过程、模块开头做标题，在执行语句单行或复合语句行的后面，必须是最后一个语句。不能放在续行符-后面。如果使用关键字Rem，在Rem和注释内容之间要加一个空格。 在其他语句后使用Rem关键字，必须使用冒号(:)与前面

32、的语句隔开。注释符(单引号)可以直接写在其他语句后面。56 1. 语句暂停语句Stop格式： Stop 功能：暂停程序的运行。可用于调试程序设置断点也可以通过单击工具栏上的“中断按钮来实现使用 Ctrl + Break组合键 用于暂停程序的执行，执行时将自动翻开立即窗口。程序调试结束后，生成可执行文件前应删去所有的Stop语句。57 1. 语句结束语句End格式： End 功能：结束程序的运行。 也可以单击工具栏上的“结束按钮。 End Sub 结束一个Sub过程 End Function 结束一个Function过程 End If 结束一个If 语句块 End Type 结束记录类型的定义

33、End Select 结束情况语句58 2. 编写简单的VB应用程序设计VB应用程序的步骤建立用户界面的对象窗体设置对象的属性值编写程序代码进入事件过程(翻开“代码窗口的)4种方法双击已建好的控件；执行“视图菜单的“代码窗口命令；按F7键；单击“工程资源管理器窗口的“查看代码按钮。 59 2. 编写简单的VB应用程序【例1】在窗体上画3个命令按钮和1个文本框，窗体标题设置为“VB程序设计例如 ，3个命令按钮标题分别设置为“显示、“去除、“结束，文本框内容设置为空白。程序运行后，单击第1个命令按钮，文本框里显示“欢送使用VB;单击第2个命令按钮，去除文本框内容；单击第3个命令按钮，结束程序。设计

34、步骤如下：1. 建立用户界面60 2. 编写简单的VB应用程序2. 设置对象属性 在默认在“属性窗口中设置以下对象的属性：设置窗体Form1的Caption(标题名)属性为“VB程序设计例如 设置文本框Text1的Text(文本内容)属性为空设置按钮Command1 的Caption属性为“显示设置按钮Command2 的Caption属性为“去除设置按钮Command3 的Caption属性为“结束。 61 2. 编写简单的VB应用程序3. 编写程序代码 62 2. 编写简单的VB应用程序【例2】设计一个应用程序，由用户输入正方形的边长，计算并输出正方形的面积 分析：要创立的应用程序用户界面

35、如图：63 文本框Text1文本框Text2命令按钮Command1命令按钮Command2标签Label1标签Label2窗体Form12. 编写简单的VB应用程序窗体上含有两个标签、两个文本框和两个命令按钮两个标签分别用于显示文字“边长和“面积两个文本框用于输入数据和显示计算结果程序功能要求： 运行时，用户在“边长文本框中输入某一个数，当单击“计算按钮时，那么在“面积文本框中显示该数的平方数。单击“结束按钮，那么结束程序的运行。64 2. 编写简单的VB应用程序设计步骤如下： 1. 建立用户界面 在默认窗体Form1上添加控件，以构建用户界面 在Form1窗体上添加以下控件：标签Label

36、1：用于显示文字“边长； 标签Label2：用于显示文字“面积。文本框Text1：用于边长数；文本框Text2：用于显示计算结果(平方数)。命令按钮Command1：用于计算输入数的平方，并把结果显示在文本框Text2中；命令按钮Command2：用于结束应用程序的运行。65 2. 编写简单的VB应用程序2. 设置对象属性 在默认在“属性窗口中设置以下对象的属性：设置窗体Form1的Caption(标题名)属性为“计算正方形的面积 。设置标签Label1的Caption属性为“边长。设置标签Label2的Caption属性为“面积。设置文本框Text1的Text(文本内容)属性为空。设置文本框

37、Text2的Text属性为空。 设置按钮Command1 的Caption属性为“计算。设置按钮Command2 的Caption属性为“结束。其他属性采用默认值 66 2. 编写简单的VB应用程序3. 编写程序代码，建立事件过程 程序说明：Dim语句； 数据类型Single(单精度)； Val函数； 语句“Text2.Text=x*x的作用67 3. 程序的保存、装入和运行程序的保存保存窗体文件 窗体文件 .frm保存工程文件工程文件 .vbp程序的装入 就是装入工程文件 程序的运行 解释运行 生成可执行文件执行“文件菜单中的“生成exe命令 68 4. VB 应用程序的结构与工作方式构成:

38、 3类模块 窗体模块(.frm) 标准模块(.bas) 类模块(.cls) 69 5. 小测验工程的管理工程中的文件常用 工程文件 .vbp 窗体文件 .frm 标准模块文件 .bas创立、翻开和保存工程创立工程 ；翻开工程；保存工程；关闭工程 添加、删除和保存文件 添加文件 、删除文件和保存文件生成可执行文件 两种运行程序的方式：解释方式；编译方式 执行“文件菜单中的“生成exe命令 70 第4章 数据类型、运算符与表达式沈阳理工大学应用技术学院0.本章内容 根本数据类型 常量与变量 变量的作用域 常用内部函数 运算符与表达式 72 1.根本数据类型 数值型 73 字符串(String) 数

39、值数据类型 货币(Currency) 变体(Variant) 其他 整型数 整数Integer) 长整数(Long)浮点数 单精度(Single) 双精度(Double)1.根本数据类型 字符串用双引号括起来的一串字符。例如: “Canton 1+2=? Good Morning “ 在VB中，分变长字符串(长度不固定)和定长字符串(长度固定)二种。定长字符串定义变量格式为： String * 常数 如：Dim name as String * 1074 1.根本数据类型 数值整型数 不带小数局部的数，表示正整数、负整数和零整数Integer): 2个字节长整数 (Long) ：4个字节浮点数

40、 表示带有小数局部的数单精度数(Single)： 4个字节双精度数(Double)： 8个字节75 1.根本数据类型 货币专门为处理货币而设计的数据类型它可最多保存小数点右边4位和小数点左边15位变体是一种可变的数据类型，可以存放任何类型的数据 包括数值、字符串、日期/时间等其他数据类型字节Byte):1个字节布尔Boolean): 2个字节日期Date): 8个字节 用两个“#符号把日期和时间的值括起来如：#08/20/2001#、#2001-08-20#对象Object): 4个字节 可用来表示应用程序中的对象 76 2.常量和变量 常量文字常量字符串常量 例如： “Visual Basi

41、c ,“ 3+5 等数值常量 有4种：整型数，长整型数、货币型数和浮点数例如：123，-263，235.987E-8 等布尔常量 (逻辑常量 有Ture和False 两个值日期常量 例如：#05/16/2007#符号常量 格式： PublicPrivate Const 常量名 As 数据类型=表达式 例如： Const PI=3.14159 As Single 77 2.常量和变量系统常量VB提供可在程序中直接使用 78 2.常量和变量 变量变量的命名规那么变量名必须以字母开头；只能由字母、数字和下划线组成。不能含有小数点、空格等字符；字符个数不得超过255个；不能使用VB的关键字(如语句名、

42、函数名等)。例如，Print、Sub、End等不区分变量名中字母的大小写79 2.常量和变量变量的命名的本卷须知要见名知义。比方用sum或s代表求和。尽可能简单明了。 变量名不能与过程名和符号常量名相同。尽量采用VB建议的变量名前缀或后缀的约定来命名。如：intMax。VB不区分变量名和其他名字中字母的大小写。为便于阅读，每个单词开头的字母一般用大写，例如PrintText。 80 2.常量和变量变量的类型和定义 用类型说明符来标识 放在变量名的尾部。其中 %表示整型；&表示长整型；！表示单精度型；#表示双精度型；表示货币型；$表示字符串型。 例如：Total% Amount# Lname$定

43、义变量时指定类型 格式：Declare 变量名 As 类型 其中 “Declare可以是 Dim、Static、Public或Private “As是关键字 “类型是根本数据类型或用户定义类型81 2.常量和变量 说明：Dim：用于标准模块、窗体模块或过程中定义变量或数组。每次引用时其值会被重新设置 例如： Dim sum As Integer 把sum定义为整型变量 Static：定义静态变量和数组变量。每次引用时其值会继续保存 Public：用于标准模块中定义全局变量或数组 82 3.变量的作用域 局部变量与全局变量 局部变量 在过程内定义的变量模块变量窗体变量和标准模块变量全局变量83

44、3.变量的作用域 84 名称作用域声明位置使用词句局部变量过程过程中Dim或Static模块变量窗体模块或标准模块模块的声明部分Dim或Private全局变量整个应用程序标准模块的声明部分Public或Global3.变量的作用域 默认声明 就是向程序说明要使用的变量声明变量(显式声明)用Dim、Public、Private或Static语句来声明变量 例如：Dim sum As Integer 把sum定义为整型变量隐式声明不加说明就直接使用变量，此时默认的变量类型为变体类型(Variant)也允许使用类型符来声明变量的类型，如Num%，Sum!85 4.常用内部函数 转换函数 用于数据类型

45、的转换例如：Val(A12) 的值为 0 Val(12A12) 的值为 12【例1】使用转换函数的例如(留给学生分析) 86 Private Sub Form_Click() x = 123 y = 123 a = Chr(Asc(x) + 5) b = Str(Val(x) + 5) c = Val(Str(y) + 5) Print a,b, c End Sub运行程序后单击窗体，输出结果如下： 6 128 1235注: 检验函数操作可在立即窗口(CTL+G)中用直接方式执行4.常用内部函数 数学函数三角函数的自变量单位是弧度 如Sin47应写成 Sin(47*3.14159/180)函数

46、Int是求小于或等于x的最大整数 例如 Int(2.7)=2, Int(-2.5)=-3当x0时就直接舍去小数，假设x0那么舍去小数位后再减1 利用Int函数可以对数据进行四舍五入。对一个正数x可采用如下式子： Int(x+0.5)用Rnd函数返回随机数，先用Randomize语句来初始化生成a, b区间范围内的随机整数，可以采用 Int(b-a+1)*Rnd + a)87 4.常用内部函数 【例2】通过随机函数产生2个两位正整数，求和并显示出来 编写的窗体单击事件过程代码如下：88 再次运行程序，单击窗体后输出另一组结果是： 产生的两个随机数：18 37 和数：55Private Sub F

47、orm_Click() Dim a As Integer, b As Integer, c As Integer Randomize 初始化随机数生成器 a = Int(90 * Rnd + 10) 产生10,99区间内的随机整数 b = Int(90 * Rnd + 10) c = a + b 求两数之和 Print 产生的两个随机数: ; a, b Print 和数: ; c End Sub 运行程序，单击窗体后输出结果是： 产生的两个随机数：56 71 和数：1274.常用内部函数 日期与时间函数提供某个事件何时发生及持续时间长短的信息【例3】使用日期/时间函数例如(留给学生分析)89

48、Private Sub Form_Click() x = #1/1/2021# a = x - Date b = Weekday(x) c = Year(Date) d = Month(Date) e = Hour(Time) f = Minute(Time) Print 现在距离2021奥运会还有： ; a; 天 Print 2021奥运会是：星期; b-1 Print 本月份是：; c; 年; d; 月 Print 现在是：; e; 时; f; 分 End Sub运行程序后单击窗体，输出结果如下： 现在距离2021奥运会还有：184天 2021奥运会是：星期1 本月份是：2007年2月 现

49、在是：16时27分4.常用内部函数 字符串函数删除空白字符函数 LTrim$(S) RTrim$(S) Trim$(S)字符串截取函数 Left$(S,n) Right$(S,n) Mid$(S,p,n)字符串长度测试函数 Len(S)90 4.常用内部函数 String$函数 String$(n,S)空格函数 Space$(n)字符串匹配函数 Instr(f, 字符串1,字符串2,k)字母大小写转换 Ucase$(S) Lcase$(S)插入字符串语句Mid$ Mid(字符串, p,n) = 子字符串91 4.常用内部函数 【例4】使用字符串函数例如 先从字符串a中找出某个指定字符(本例为空

50、格)，再以此字符为界拆分成两个字符串。92 Private Sub Form_Click() Dim a As String, b As String, c As String, n As Integer a = VisualFoxPro 表示空格 n = InStr(a, ) 查找空格位置 b = Left(a, n - 1) 取左边局部 c = Mid(a, n + 1) 取右边局部 Print b 显示左边局部 Print c 显示右边局部End Sub运行程序后单击窗体，输出结果如下： VisualFoxPro4.常用内部函数 Shell函数调用各种应用程序 shell命令字符串，窗口

51、类型 命令字符串：可执行文件的名字 窗口类型：6种93 5.运算符与表达式 算术运算符 指数运算 例如： 82=64浮点数除法与整数除法 / 和 的区别：/用于普通除法； 用于整数除法，如果参加运算的数据含有小数，首先将它们四舍五入，再进行运算，结果去掉小数局部。 例如： 1/2=0.5，12=0 ，25.58 6.91=3取模运算 用来求整型数除法的余数 例如： 9 Mod 7 结果为 2 ， 25.58 Mod 6.91结果为 5 94 5.运算符与表达式 算术运算符的优先级 (乘方) -(求负) */ Mod +-同级左到右95 5.运算符与表达式 字符串连接 连接符有两个：&和+都是将

52、两个字符串连接起来，结果是一个字符串 & 专门字符串连接符，+ 可作加法连接符例如： “计算机& “网络的结果是“计算机网络 “123 + “45的结果是：“12345 123 & “ABC 的结果是：“123ABC 96 5.运算符与表达式 关系运算符与逻辑运算符 关系运算符用一个比较运算符把两个表达式(如算术表达式)连接起来的式子。 值为True(真)和False(假)8种： = = Like Is数值型、日期型看成yyyymmdd位整数按数值大小比较。字符型数据按其ASCII码比较。汉字字符大于西文字符例：Print 5 3 True Print #3/1/2003# #3/11/200

53、3# Flase Print abc = ABC“ True97 5.运算符与表达式 逻辑运算符 用逻辑运算符把关系表达式或逻辑值连接起来的式子6种按优先级：Not(非) 、And(与)、Or(或)、Xor(异或)、Eqv (等价) 、Imp(蕴含)例： Not (23) 2=3 And 45+1 两个关系表达式为真，结果为真 3 = 3 Or 53 “3=3为真，结果为真98 5.运算符与表达式 字符串表达式与日期表达式 字符串表达式 用连接符&将字符串常量、字符串变量、字符串函数连接起来的式子日期表达式： 用运算符(+或-)将算术表达式、日期型常量、日期型变量和函数连接起来的式子两个日期型

54、数据相减，其结果是一个数值型数据(相差的天数)。 例如：#8/8/2001# - #6/3/2001# 的结果为：66日期型数据加上天数，其结果为一个日期型数据。 例如：#12/1/2000#+31 的结果为：#01/01/2001#日期型数据减去天数，其结果为一个日期型数据。 例如：#12/1/2000#-32 的结果为：#10/30/2000#99 5.运算符与表达式 表达式的执行顺序 算术运算优先于关系运算，关系运算优先于逻辑运算。首先进行函数运算接着进行算术运算，其次序为： 幂() 取负(-) 乘、浮点除(*、/) 整除() 取模(Mod) 加法和减法(+、-) 字符串连接(&)然后进

55、行关系运算 相等(=)、不等()、小于()、小于等于(=)(注：6 个运算符同级) 最后进行逻辑运算 非(Not) 与(And) 或(Or) 异或(Xor) 等价(Eqv) 蕴涵(Imp)100 5.运算符与表达式 【例5】判断某一年是否闰年。判断条件：年号(y)能被4整除，但不能被100整除；或者能被400整除用逻辑表达式来表示这个条件，写成： (y Mod 4=0 And y Mod 1000) Or (y Mod 400=0)也可写成：(Int(y/4)=y/4 And Int(y/100)y/100) Or Int(y/400)=y/400)101 第5章 数据输入输出沈阳理工大学应用

56、技术学院0.本章内容使用Print方法输出数据使用InputBox函数输入数据 MsgBox函数和 MsgBox语句字形 打印机输出 103 1.使用Print方法输出数据Print方法格式：对象名.Print 表达式列表说明：使用的对象可以是窗体、图片框或打印机 Print “程序设计 在当前窗体上输出 Picture1.Print “程序设计 在图片框上输出表达式列表是一个或多个表达式，如果省略，那么输出一个空行有计算和输出双重功能，先计算后输出。输出数值数据时，前面有一个符号位(正号以空格表示)，后面留有一个空格；输出字符串时，前后不留空格。104 1.使用Print方法输出数据【例1】

57、 Private Sub Form_Click() a = 2 b = VB Print 50 * a 计算并输出表达式的值 Print b 输出变量的值 Print 输出空行 Print The Total is 输出字符串常量 End Sub105 运行结果：1.使用Print方法输出数据当输出多个表达式时，各表达式之间用分号“；(紧凑格式)或逗号“，(按区格式)隔开。按区格式(14个字符位置)假设语句行末尾有分号或逗号,那么输出本行输出项后不换行106 【例2】 Private Sub Form_Click() a = 3: b = 4 Print a, b, 4 + a, Print

58、2 * b Print a, , b Print a=; a, b=; b End Sub运行结果：1.使用Print方法输出数据【例3】使用Print方法输出全班学生的平均年龄。 18岁6人，19岁21人，20岁23人，21岁15人。107 Private Sub Form_Click() Dim a As Integer, b As Integer, c As Integer Dim d As Integer, s As Integer, m As Single a = 6 : b = 21 : c = 23 : d = 15 s = a + b + c + d m = (a * 18 +

59、 b * 19 + c * 20 + d * 21) / s 以下舍入到小数后1位 Print 平均年龄：; Int(m * 10 + 0.5) / 10End Sub运行程序后单击窗体，输出结果是：平均年龄：19.71.使用Print方法输出数据与Print方法有关的函数和方法 Tab函数 函数格式：Tab(n) 功能：把输出位置移到第n列，要输出的内容放在Tab函数后面，并用分号隔开。如： Print Tab(2);学号；Tab(11);姓名；Tab(21);成绩 输出结果是(1个汉字占2个位置)： 学号姓名成绩108 1.使用Print方法输出数据109 程序代码如下：Private S

60、ub Form_Click() Print Print Tab(15); 学号; Tab(26); 姓名; Tab(36); 成绩 Print Tab(14); String(27, -) 输出27个减号字符“- Print Tab(14); “19011001; Tab(26); 张小三; Tab(36); 57 Print Tab(14); “19011003; Tab(26); 李小四; Tab(36); 69 Print Tab(14); “19011012; Tab(26); 马小五; Tab(36); 92 Print Tab(14); String(27, -) 输出27个减号字