VB.NET课件汇总整本书电子教案全套课件完整版ppt最新教学教程最全课件.pptx

《VB.NET课件汇总整本书电子教案全套课件完整版ppt最新教学教程最全课件.pptx》由会员分享，可在线阅读，更多相关《VB.NET课件汇总整本书电子教案全套课件完整版ppt最新教学教程最全课件.pptx（227页珍藏版）》请在淘文阁 - 分享文档赚钱的网站上搜索。

1、第1章走进VB.NET案例引入3【例1-1】飞花令是我国古代的吟诗游戏，本例设计关于圆周率的飞花令。要求依据圆周率为关键词展示诗句。分析：根据题目要求，祖冲之计算3.1415926，那么飞花令第一句就接含有数字3的诗句，第二句接含有数字1的诗词，第三句接含有数字4的诗词，以此类推。圆周率的保留位数可以采用滚动字幕方式，在窗体上逐一显示，并给出与出现数字对应的诗句。1.1VB.NET概述1.1.1 VB.NET1.1.1 VB.NET简介简介Visual Basic.NET通常简称为VB.NET，它是构建于.Net Framework之上的一种面向对象的计算机编程语言。VB.NET所开发的程序源

2、代码并不编译成能够直接在操作系统上执行的二进制本地代码，而是被编译成为中间代码，然后通过.NET Framework的通用语言运行时（CLR）执行。由于VB.NET是由微软的.NET框架实现的。因此，它可以完全访问.Net框架中的所有库。像所有其他.NET语言一样，VB.NET完全支持面向对象的概念。1.1VB.NET概述51.1.2 VB.NET1.1.2 VB.NET主要特点主要特点1.1.面向对象的可视化设计面向对象的可视化设计2.2.事件驱动的编程机制事件驱动的编程机制3.3.支持结构化程序设计支持结构化程序设计4.4.集成式开发环境集成式开发环境5.5.强大的数据库功能强大的数据库功

3、能6.6.网络应用程序开发功能网络应用程序开发功能 7.7.完备的帮助功能完备的帮助功能 1.2VB.NET集成开发环境61.2.1 Visual Studio20101.2.1 Visual Studio2010安装安装1.2VB.NET集成开发环境71.2.2 VB.NET1.2.2 VB.NET集成开发环境简介集成开发环境简介1.1.启动启动VB.NETVB.NET1.2VB.NET集成开发环境81.2.2 VB.NET1.2.2 VB.NET集成开发环境简介集成开发环境简介2.2.主窗口主窗口1.2VB.NET集成开发环境91.2.2 VB.NET1.2.2 VB.NET集成开发环境简

4、介集成开发环境简介3.3.窗体设计器窗口窗体设计器窗口1.2VB.NET集成开发环境101.2.2 VB.NET1.2.2 VB.NET集成开发环境简介集成开发环境简介4.4.工具箱工具箱1.2VB.NET集成开发环境111.2.2 VB.NET1.2.2 VB.NET集成开发环境简介集成开发环境简介5.5.属性窗口属性窗口1.2VB.NET集成开发环境121.2.2 VB.NET1.2.2 VB.NET集成开发环境简介集成开发环境简介6.6.代码窗口代码窗口1.2VB.NET集成开发环境131.2.2 VB.NET1.2.2 VB.NET集成开发环境简介集成开发环境简介7.7.解决方案资源管

5、理窗口解决方案资源管理窗口1.2VB.NET集成开发环境141.2.2 VB.NET1.2.2 VB.NET集成开发环境简介集成开发环境简介8.8.错误列表窗口错误列表窗口1.3创建简单的VB.NET程序151.3.1 1.3.1 建立应用程序的步骤建立应用程序的步骤创建一个VB.NET程序的一般步骤如下。（1）新建VB.NET Windows窗体应用程序项目。（2）建立用户界面。（3）设置对象属性。（4）编写代码。（5）调试运行程序。（6）保存文件。1.3.2一个简单的程序16【例1-2】在计算机屏幕上输出“hello,world”这一串字符串。（1）新建VB.NET Windows窗体应用

6、程序项目启动Visual Studio2010，在“起始页”选择“新建项目”。在打开的“新建项目”窗口左侧选择“Visual Basic”，中 间 选 择“Windows窗 体 应 用 程 序”，单 击 确 定 可 建 立 一 个 默 认 名 为“WindowsApplication1”的新项目。（2）建立用户界面新建好应用程序后，系统自动创建一个空白的Form窗体。接下来在窗体上添加一个Label标签和一个Button命令按钮。标签Label1用于输出字符串，命令按钮Button1用于执行命令。17（3）设置对象属性单击选中控件对象，通过属性窗口对其进行属性设置，控件属性设置如表1-2，设计

7、完成的程序界面如图1-16所示。控件类别控件名属性值窗体Form1Text例1-2标签Label1Text命令按钮Button1Text显示表1-2 对象属性设置18（4）编写代码要实现相关功能，还需要编写事件过程代码。双击命令按钮Button1，打开代码编辑窗口，系统自动建立Button1_Click事件过程模板。在该事件过程中输入语句，程序代码如下。Public Class Form1 Private Sub Button1_Click(ByVal sender As System.Object,ByVal e As System.EventArgs)Handles Button1.Cli

8、ck Label1.Text=hello,world End SubEnd Class19（5）调试运行程序单击工具栏上的绿色“启动调试”按钮，或按F5键，运行程序。系统进行编译，如果存在语法错误，则在下方“错误列表”窗口显示错误信息，提示用户修改；如果没有语法错误，生成可执行程序并执行。（6）保存文件。单击工具栏上的“全部保存”按钮，打开“保存项目”对话框，如图所示。在“名称”文本框输入项目名，并选择项目保存的位置，单击“保存”按钮，系统在指定位置建立方案文件和项目文件夹，保存该项目所包含的全部文件。1.3.3代码书写规则201.1.不区分字母大小写不区分字母大小写VB.NET语句输入时不区

9、分大小写，系统会对用户编写的代码自动转换。（1）关键字。系统自动把关键字首字母转换为大写，其余字母均为小写。（2）用户自定义。对用户自定义的变量名、过程名、函数名，以第一次定义的为准，以后再次出现时自动转换成首次定义形式。2.2.按行书写按行书写VB.NET编写程序时，通常按行书写，一行一条语句。也可以一条语句分成多行或一行写多条语句。（1）语句续行。当一条语句很长时，为了阅读方便可以分几行书写，在代码行尾加续行符“_”，表示与下一行代码属于同一条语句，编译时作为一行处理，例如：Label1.Text=Label1.Text&i&.&TextBox1.Text&vbCrLf _&StrDup(

10、50,-)&vbCrLf（2）复合语句。对一些简短语句可以将几条语句写在一行，语句之间用冒号“:”分隔。例如：Label1.Text=用户名:Label2.Text=密码:Label3.Text=验证码1.3.3代码书写规则213.3.注释注释程序员为了提升程序的可读性，在代码书写时会加上必要的文字说明，解释关键代码的原理或用途。注释是辅助性文字，在代码窗口中以绿色显示，系统编译时不对注释内容进行编译。（1）单撇“”。撇号后面的内容为注释，出现在整行开头或某条语句后面。可以单击工具栏上的“注释选中行”按钮，将选定行作为注释语句，反之单击“取消对选中行的注释”按钮解除注释。（2）Rem语句。以R

11、em开头的整行语句为注释语句。第2章VB.NET语言基础23案例引入24【例2-1】我们经常会在各种平台发表留言，并希望被采纳展示。设计一个简易留言板实现留言上墙功能分析：根据题目要求，要实现留言上墙，可以利用TextBox文本框输入留言，通过Label标签显示上墙，记录下留言条数。（1）整型变量i统计留言条数（2）连接符&和符号常量vbCrlf实现多行显示信息（3）函数StrDup()在各条留言之间建立分割线。2.1数据类型252.1.1 基本数据类型基本数据类型数据类型关键字类型符占字节数范围数值整型Integer%4-21474836482147483647长整型Long&8-26326

12、3-1短整型Short2-3276832767单精度型Single!4-3.4E38+3.4E38双精度型Double#8-1.79E308+1.79E308十进制数型Decimal16-292-1292-1字节型Byte10255字符字符型Char$2单个Unicode字符字符串型String可变动020亿个Unicode字符逻辑型Boolean2True或False日期型Date81/1/000112/31/9999对象型Object4任何对象类型2.1.2标识符26VB.Net中标识符的命名基本规则如下：（1）标识符通常由英文字母（不区分大小写）和数字以及其它字符构成。首字符为英文字母、

13、下划线或汉字。（2）程序设计语言中，预先定义了一些作专门用途的标识符，即保留的关键字，用户命名的标识符不能与关键字相同。例如，Exit、For、Sub等。合法的标识符：Avg、H、xY、a11。不合法的标识符：2a、x-y、xiao ming、Sin。2.2常量与变量272.2.1 常量常量1.普通常量普通常量常量值可以直接反映数据的类型，例如：（1）数值常量：即常数，100、&H1B、3.14159、-9.87E+10（2）字符常量：用一对双引号括起来的字符，”a”、”.NET”、”123”、”北京”、”1*9=”。（3）逻辑常量：只有两个值，True、False。（4）日期常量：用一对#括

14、起表示某一具体日期和时间，#12/31/2020 11:59:00 PM#。2.2常量与变量282.2.1 常量常量2.符号常量符号常量表示形式如下：Const 符号常量名 As 数据类型=表达式例如：Const PI=3.14定义符号常量PI，单精度浮点型Const MIN As Integer=100定义符号常量MAX，整型2.2常量与变量292.2.1 常量常量3.系统常量系统常量常量说明vbCrLfchr(13)&chr(10)，回车并换行组合符vbCrchr(13)，回车符vbLfchr(10)，换行符vbNewLinechr(13)&chr(10)，新建一行vbNullCharNu

15、ll，空字符vbNullString，不是一个零长度的字符串vbObjectError错误编号2.2常量与变量302.2.2 变量变量VB.Net中的变量声明的语句形式如下：Dim 变量名 As 类型=初始值例如Dim s As Integer=0声明整型变量s，初始值为0Dim i As Long,j As String 声明一个长整型变量i和一个字符串变量jDim a,b,c As Single声明三个单精度变量a，b，cDim m%,n!使用数据类型符声明变量Dim avg avg为Object对象类型变量Dim a1,a2 As Integer=123错误说明：如果多个变量类型相同，可

16、以用一个As来指定类型，但此时不能给变量同时赋一个初值。2.3运算符与表达式312.3.1 运算符运算符常用运算符有包括算术运算符、字符串运算符、关系运算符和逻辑运算符等。1.算术运算符32运算符含义优先级实例（a=7,i=2）结果乘方1ai49-负号2-a-7*乘3a*i14/除3a/i3.5整除4ai3Mod取余5amodi1+加6a+i9-减6a-i52.字符串运算符33运算符实例说明结果+123+456将两个字符串连接起来123456123+456将123转换为数值123，再进行加法运算579123+456加法运算579abc+123非数字字符与数值不能运算，转换无效错误&123&45

17、6将操作数转换为字符型，再连接123456123&456123456123&456123456abc&123abc1233.关系运算符34运算符含义实例结果大于12345True=大于等于123=45False小于ACABC”False=小于等于abc=”bcTrue=等于A=a”False不等于Aa”TrueLike字符串匹配VB.NETLikeNETTrue4.逻辑运算符35运算符含义优先级说明实例结果Not逻辑非1求反，当操作数为False时，结果为True；当操作数为True时，结果为FalseNotTrueFalseNotFalseTrueAnd逻辑与2两个操作数同为True，结果为

18、 True；只 要 有 一 个 为False时，结果为FalseTrueAndTrueTrueTrueAndFalseFalseOr逻辑或3两个操作数有一个为True时，结果为True；均为False时，结果为FalseTrueOrFalseTrueFalseOrFalseFalseXor逻辑异或4两个操作数互斥，一个为True，另一个为False时，结果为True，否则为FalseTrueXorFalseTrueTrueXorTrueFalse5.运算符优先级36算术运算符字符串运算符关系运算符逻辑运算符2.3.2表达式371.表达式的组成表达式的组成一系列的运算符将常量、变量、函数分隔开组

19、成表达式2.表达式的书写规则表达式的书写规则（1）运算符不能相邻。x+-y是错误的。（2）乘号不能省略。x 乘以y 应写成：x*y。（3）括号必须成对出现，均使用圆括号。（4）表达式从左到右在同一基准上书写，无高低、大小之分。2.4常用内部函数38函数的一般格式为：函数名(参数列表)2.4.1数学函数39函数含义实例结果Abs(x)求x的绝对值Abs(-1.9)1.9Cos(x)求x的余弦值Cos(1)1Exp(x)求e的x次方Exp(1)2.71828182845905Log(x)求以e为底的自然对数Log(1)0Max(x,y)求x和y的最大值Max(1,9)9Min(x,y)求x和y的最

20、小值Min(1,9)1Round(x)对x四舍五入求整Round(1.9)2Round(-1.9)-2Sin(x)求x的正弦值Sin(0)0Sqrt(x)求x的算术平方根Sqrt(9)3Tan(x)求x的正切值Tan(0)02.4.2字符函数40函数含义实例结果Len(s)求字符串s长度Len(中国China)7Left(s,n)取字符串s左边n个字符Left(中国China,2)中国Right(s,n)取字符串s右边n个字符Right(中国China,5)ChinaMid(s,n1,n2)取字符串s中从第n1个字符开始的n2个字符Mid(中国China,5,1)iReplace(s,s1,s

21、2)在字符串s中用s2替换s1Replace(ABCAB,A,E)EBCEBInstr(s1,s2)在字符串s1中找字符串s2的位置Instr(中国China,Ch)3StrDup(n,c)产生n个c字符StrDup(4,)IsNumeric(s)判断字符串s是否为数字字串，如果是则返回True，否则返回FalseIsNumeric(123a)FalseLcase(s)字符串s转换为小写Lcase(CHINA)chinaUcase(s)字符串s转换为大写Ucase(China)CHINASpace(n)产生n个空格Space(3)Trim(s)去掉字符串s前后的空格Trim(中国)中国41【例

22、2-2】根据数字得到对应的是星期几。要求输入一个1-7的数字，输出对应的星期，例如输入6，输出“星期六”。程序运行界面如图2-2所示。分析：根据题目要求，在窗体上添加2个标签，2个文本框和1个命令按钮，并设置相应属性。2.4.3日期/时间函数42函数含义实例结果Now返回系统日期和时间Now2019/12/1316:15:45Today返回系统日期Today2019/12/13TimeOfDay返回系统时间TimeOfDay16:15:45Year(d)返回d的年份19999Year(Now)2019Month(d)返回d的月份112Month(Now)12Day(d)返回d的日期131Day

23、(Now)13Hour(d)返回d的小时023Hour(Now)16Minute(d)返回d的分钟059Minute(Now)15Second(d)返回d的秒059Second(Now)45Weekday(d)返回日期对应的星期数17Weekday(Now)6MonthName(n)返回整数n对应的月份名称MonthName(12)十二月WeekdayName(n)返回整数n对应的星期名称WeekdayName(5)星期四2.4.4转换函数43函数含义实例结果ASC(s)字符转换为ASCII码值Asc(a)97Chr(n)ASCII码值转换为字符Chr(97)aVal(s)数字字符转换为数值V

24、al(123)123Str(n)数值转换为字符串Str(123)123Fix(n)返回整数部分Fix(9.7)9Fix(-9.7)-9Int(n)返回不大于n的最大整数Int(9.7)9Int(-9.7)-10CInt(n)数值四舍五入后取整CInt(9.7)10CInt(-9.7)-10Hex(n)十进制转换为十六进制Hex(28)1COct(n)十进制转换为八进制Oct(8)10LCase(s)大写字母转换为小写字母LCase(CHINA)chinaUCase(s)小写字母转换为大写字母UCase(china)CHINA2.4.5其他函数441.随机函数随机函数随机函数Rnd用于产生一个0

25、,1)范围内的随机浮点数，语法格式如下：Rnd(N)产生一个a,b）之间的随机整数，通用方法如下：Int(Rnd()*(b-a)+a)例如产生一个0100的整数，表达式为Int(Rnd()*100)45【例2-3】简易两位数加法器。要求能够随机生成一道加法运算式，并实现两位整数加法计算，程序运行界面如图2-3所示。分析：根据题目要求，利用Rnd和Int函数随机产生2个两位整数，利用Val函数将数字字符转换为数值并求和。在窗体上添加2个标签，3个文本框和2个命令按钮，并设置相应属性。462.Format函数函数字符含义实例结果0实际数字位数小于符号位数，不足部分补0，否则四舍五入Format(3

26、.14159,00.000000)Format(3.14159,0.000)03.1415903.142#实际数字位数小于符号位数，按实际显示，否则四舍五入Format(3.14159,#.#)Format(3.14159,#.#)3.141593.14.小数点Format(314159,0.00000)3.14159,千分位Format(314159,000,000)314,159%数值乘以100，加%Format(3.14159,#.#%)314.159%$数值前加$Format(3.14159,$0.00)$3.14E+指数表示Format(314159,0.00E+00)3.14E+0

27、52.5面向对象的程序设计基础472.5.1 对象和类对象和类1.对象对象对象在现实生活中就是一个实体2.类类类是对同一种对象的集合与抽象。2.5.2对象的属性、事件和方法481.对象属性对象属性每个对象都有其不同于其他对象的特征，称之为对象的属性（Property）。2.对象事件对象事件事件（Event）是指在对象上所发生的事情。VB.NET为对象预先设置好了一系列能够被对象识别的动作。事件过程的一般格式如下：Private Sub 对象名_事件(对象引用，事件信息)Handles 对象名.事件 事件过程代码End Sub493.对象方法对象方法面向对象的程序设计提供了一种特殊的过程和函数，

28、称为方法（Method）。对象方法的调用格式为：对象名.方法名（参数）2.6VB.NET基本控件50窗体和控件都是对象，窗体是可视化程序设计的基础界面，窗体是所有其他控件的容器，控件是窗体上使用的可视化组件。2.6.1窗体（Form）511.主要属性主要属性属性说明Name窗体的名称。创建时自动提供默认名称Form1、Form2依次类推Text窗体使用的默认标题为Form1MaximizeBox是否显示窗体右上角的最大化按钮。默认值为True，若设置为False，隐藏窗体最大化按钮MinimizeBox是否显示窗体右上角的最小化按钮。默认值为True，若设置为False，隐藏窗体最小化按钮Co

29、ntrolBox是否在窗体左上角显示控制菜单。默认值为TrueBackgroundImage指定一个图形文件，以平铺方式设置为窗体的背景BackgroundImageLayout设置背景图像的显示方式，平铺、居中或伸缩BackColor设置窗体的背景颜色FormBorderStyle设置窗体边框类型，决定窗体的标题栏状态和可缩放性：None，窗体无边框、最大化、最小化等按钮，无法移动及改变窗体大小FixedSingle，窗体为单线边框，不可改变窗体边框大小，有最大化、最小化按钮Fixed3D，显示3D边框效果Sizable，默认属性，可改变窗体边框大小，有最大化、最小化按钮WindowStat

30、e窗体的窗口状态，0常规（默认属性）、1最大化、2最小化形式显示Size窗体的大小，Width宽度、Height高度Icon设置窗体标题栏上显示的图标AcceptButton设置一个值，该值是一个按钮的名称，当按下Enter键相当于单击该按钮。通常窗体上的确定按钮被设置为窗体的AcceptButtonCancelButton设置一个值，该值是一个按钮的名称，当按下Esc键相当于单击该按钮。通常，窗体上的“取消”按钮被设置为CancelButtonStarPosition指定运行时窗体的起始位置2.事件52事件说明Click单击窗体时触发该事件DoubleClick双击窗体时触发该事件Shown

31、窗体第一次显示时触发该事件Closed关闭窗体时触发该事件Activate窗体的激活事件，当窗体变为活动窗体时触发该事件Deactivate与Activate事件相反，当窗体失去焦点变为非活动窗体时触发该事件Load装载窗体时触发该事件，通常Load事件是第一个被执行的过程，常用来对程序中的对象或变量进行初始化处理Resize当窗体第一次显示或改变窗体大小时触发该事件Disposed窗体被关闭从屏幕消失时触发该事件3.方法53方法说明Show显示窗体Hide隐藏窗体ShowDialog将窗体显示为模式对话框Refresh刷新并重画窗体Activate激活窗体，并使窗体获得焦点Close关闭窗体

32、54【例2-4】设计两个窗体，一个窗体装入时添加背景图像，一个窗体单击时改变背景颜色为红色Public Class Form1 Private Sub Form1_Load()Handles MyBase.Load Me.BackgroundImage=Image.FromFile(road.jpg)Me.BackgroundImageLayout=ImageLayout.Stretch End SubPrivate Sub Form1_DoubleClick()Handles Me.DoubleClick Me.Hide()主窗体Form1隐藏 Form2.Show()Form2窗体显示 E

33、nd SubEnd ClassPublic Class Form2 Private Sub Form2_Click(.)Handles Me.Click Me.BackColor=Color.Red End SubEnd Class2.6.2标签（Label）551.主要属性主要属性属性说明Name标签的名称Text标签上显示的文本TextAlign标签中文本的对齐方式，默认值为TopLeft文本在标签中安左上方对齐，其他对齐方 式：TopCenter、TopRight、MiddleLeft、MiddleCenter、MiddleRright、BottomLeft、BottomCenter、B

34、ottomRightFont标签文本的字体、字号AutoSize控件是否自动调整大小，默认值为True，根据标签内容的多少自动变化BackColor标签背景色，默认与窗体背景色一致BorderStyle标签边框样式，默认值为None无边框，FixedSingle单直线边框，Fixed3D三维凹陷边框562.事件事件标签一般响应单击Click事件。【例2-5】计算时长。随着中国的不断发展，中国被世界赋予了基建狂魔的称号，除了各种世界之最的桥梁以外，我国的高铁行业在世界的地位也是名列前茅的，更高速度试验列车CIT500，最高的实验速度已经达到了605公里每小时。已知北京至深圳高铁里程约2300公里

35、，如果按照实验速度计算从北京到深圳坐高铁需要多长时间？Public Class Form1 Private Sub Form1_Click()Handles Me.Click Label1.Text=Label1.Text&CInt(2300/605)&小时 End SubEnd Class2.6.3文本框（TextBox）571.重要属性重要属性属性说明Name文本框的名称Text显示或输入的文本内容Textlength文本框中文本的长度，即字符个数Maxlength设置文本框可输入的文字最大长度。默认值为0，表示可以输入任意长字符串。MultiLine文本框是否可以输入或显示多行文本，默认

36、值为False，若为True时可多行ScrollBars文本框是否出现滚动条，None无滚动条、Horizontal水平滚动条、Vertical垂直滚动条、Both同时加水平和垂直滚动条。当MultiLine为True时，ScrollBars才有效PasswordChar设置显示文本的替代符，一般用于输入密码口令时设置为“*”Locked指定文本控件是否可被编辑，默认值为False(可编辑)，当设置为True时，文本控件相当于标签控件的作用ReadOnly是否可以输入、编辑、修改文本，默认值为False，若为True时文本框只读58事件事件事件说明TextChanged当文本框内容发生改变时引

37、发该事件，即文本框每输入一个字符就引发一次事件KeyPress按下并且释放键盘上的一个键时，引发焦点所在控件的KeyPress事件LostFocus对象失去焦点时发生的事件GotFocus与LostFocus事件相反，当一个对象获得焦点时发生方法59方法说明Focus()为文本框设置焦点Copy()将文本框当前选定的内容复制到剪贴板Cut()将文本框当前选定的内容移动到剪贴板Paste()用剪贴板的内容替换文本框当前选定的内容Select（start，length）在文本框设定起始位置，选择指定长度文本Clear()清除文本60【例2-6】简单的人机对话。Public Class Form1

38、Private Sub TextBox1_KeyPress(ByVal sender As Object,ByVal e As System.Windows.Forms.KeyPressEventArgs)Handles TextBox1.KeyPress If Asc(e.KeyChar)=13 Then表示按回车键输入结束 TextBox2.Text=TextBox1.Text+同学：好好学习，天天向上。前途定无量！End If End SubEnd Class2.6.4按钮（Button）611.重要属性重要属性属性说明Name按钮的名称Text按钮上显示的文本Image按钮上显示的图像

39、TextAlign按钮上文本的对齐方式DialogResult单击按钮时返回值，默认值None，其他返回值OK、Cancel、Abort、Retry、Ignore、Yes、NoFlatStyle设置按钮外观样式Size设置按钮的宽度和高度62事件事件按钮最常用的是Click事件，即鼠标单击按钮时发生。【例2-7】目标心率计算。目标心率=(220-a-r)*运动强度%+r，a是年龄，r是静止心率。Public Class Form1 Private Sub Button1_Click(.)Handles Button1.Click Dim a,r,tr As Integer a=Val(Text

40、Box1.Text)年龄 r=Val(TextBox2.Text)心率 tr=(220-a-r)*0.7+r计算目标心率 TextBox3.Text=tr End SubEnd Class2.6.5图片框（PictureBox）63属性说明Name图片框的名称Image图片框显示的图像Width图片框的宽度Height图片框的高度BorderStyle图片边框样式，默认值为None无边框，FixedSingle单直线边框，Fixed3D三维凹陷边框SizeMode图片框中图像显示模式：Normal默认值，当图片大小超过图片框时，图片被裁剪StretchImage，图片随图片框大小而缩放Auto

41、Size，图片框随图片大小而缩放CenterImage，图片在图片框居中显示Zoom，与StretchImage相似，图片随图片框大小而缩放，并保持原图片的纵横比例64【例2-8】图片处理。利用图片框实现对加载的图片放大、缩小、还原和替换等功能。2.6.6定时器（Timer）651.重要属性重要属性属性说明Name定时器的名称Interval两个Tick事件之间的时间间隔，以毫秒为单位Enabled定时器是否可用，默认值为False，此时不产生Tick事件66事件事件定时器的主要事件只有Tick事件，每隔Interval时间间隔就触发一次该事件。【例2-9】热气球升空。Public Class

42、 Form1 Private Sub Timer1_Tick(.)Handles Timer1.Tick PictureBox1.Top=PictureBox1.Top 20图片上移 PictureBox1.Left=PictureBox1.Left+30图片右移 PictureBox1.Width=PictureBox1.Width*0.9图片缩小 PictureBox1.Height=PictureBox1.Height*0.9 End SubEnd Class第3章顺序结构程序设计68案例引入69【例3-1】人均债务。当前，全球债务形势变得愈发严峻，债务水平不断创新高，请设计一个人均债务

43、水平计算器，根据全球和本国的债务总额、人口总数，计算人均债务和对全球债务的贡献率。Private Sub Button1_Click(.)Handles Button1.Click Dim d1，d2，p1，p2，pe1，pe2，r As Single d1=Val(TextBox1.Text)d2=Val(TextBox2.Text)p1=Val(TextBox3.Text)p2=Val(TextBox4.Text)pe1=d1/p1全球人均债务 pe2=d2/p2本国人均债务 r=p2/p1本国债务对全球债务的贡献 TextBox5.Text=Format(pe1，0.00)保留2位小数

44、TextBox6.Text=Format(pe2，0.00)Label14.Text=全球人均债务：&TextBox5.Text&万美元，我国的人均债务：&TextBox6.Text&万美元。占全球债务的：&Format(r，#.#%)End Sub3.1语句703.1.1赋值语句赋值语句1.1.简单赋值语句简单赋值语句简单赋值语句一般格式为：变量名=表达式计算表达式的值，再将此值赋给变量或对象名.属性名=表达式 计算表达式的值，再将此值赋给对象的属性 例如n=n+1 计数累加 Label1.Text=HELLO 把字符串赋值给标签注意：赋值号左边只能是变量，不能是常量、常数符号、表达式。下面

45、均为错误的赋值语句：3.14=x 左边是常量错误a+b=c 左边是表达式错误712.2.复合赋值语句复合赋值语句运算符含义实例+=累加a+=10等价于a=a+10-=连减a-=10等价于a=a-10*=连乘a*=b+10等价于a=a*(b+10)=整除a=10等价于a=a10/=连除a/=10等价于a=a/10=幂运算a=10等价于a=a103.1.2注释、暂停与结束语句721.1.注释语句注释语句注释是辅助性文字，一般用单撇“”引导注释内容，注释部分（在程序代码中显示为绿色）不会被解释和编译，在程序运行时不被执行。2.2.暂停语句暂停语句Stop语句用来暂停程序的执行，把解释程序置为中断模式

46、，以便对程序进行检查和调试。3.3.结束语句结束语句End语句用于结束一个程序的执行。当在程序中执行End语句时，将终止当前程序，清除所有变量，并关闭所有数据文件。3.2数据的输入和输出73一般通过文本框TextBox和标签Label等控件来实现人机交互，也可以利用Inputbox输入信息对话框和MsgBox消息提示对话框来实现。3.2.1InputBox输入框74一般格式为：InputBox(Prompt,Title ,DefaultResponse ,XPos ,YPos)75【例3-2】许愿池。输入姓名和梦想，在许愿池中展示。分析：根据题目要求，利用InputBox输入对话框完成姓名和梦

47、想的输入.3.2.2MsgBox消息框76一般格式为：MsgBox（Prompt，Buttons ，Title）77【例3-3】考试提醒。给定一个考试时间，计算从现在到考试还有多少天，如果日期临近自动警示。Public Class Form1 Private Sub Button1_Click(.)Handles Button1.Click Dim mye As Date，ds As Intege声明日期型变量mye，变量ds存放相隔天数 mye=#3/16/2020#假设考试日期为2020年3月16日 ds=DateDiff(d，Today，mye)当前日期为2020年3月9日 Label1

48、.Text=距离考试还有&ds&天显示剩余天数 If ds=10 Then日期临近消息框提示 MsgBox(还有&ds&天要考试啦，加油哦！，0+48，提示)End If End SubEnd Class3.3程序调试78通过程序的调试可以纠正程序中的错误。3.3.1常见程序错误类型791.1.语法错误语法错误语法错误是最常见的错误类型，由编译器或解释器发现。3.3.1常见程序错误类型802.2.运行时错误运行时错误运行错误是指程序没有语法错误，在编译通过后，运行代码时发生的错误。3.3.1常见程序错误类型813.3.逻辑错误逻辑错误在程序运行后没有得到所希望的结果或实现要求的功能。代码的意思

49、和设计要求的意思不一样，这种情况通常是由于程序出现了逻辑错误。如：运算符使用不正确，语句的次序不对、循环语句的起始终止值不正确。3.3.2程序调试821.1.设置和删除断点设置和删除断点设置断点的方法主要有以下几种（1）代码窗口中，单击要设置断点的那一行代码，然后按F9键。（2）代码窗口中，在要设置断点的那一行代码，单击鼠标右键选择“插入断点”命令。（3）代码窗口中，在要设置断点的那一行代码的左边界灰色区域单击。3.3.2程序调试832.2.跟踪程序的执行跟踪程序的执行通过执行【调试】菜单中的相应菜单命令或单击【调试】工具栏上的相应按钮来实现。3.3.3结构化异常处理84VB.NET结构的异常

50、处理分为三个语句块：Try、Catch和Finally，一般形式如下Try .Catch 选择块 .Finally .End Try第4章选择结构程序设计86案例引入87【例4-1】闰年计算器。输入一个年份，判断是否是闰年分析：根据题目要求，闰年分为普通闰年和世纪闰年。普通闰年，年份是4的倍数，且不是100的倍数（如2020年就是闰年）；世纪闰年，年份是整百数，且是400的倍数才是世纪闰年（如2000年是闰年，1900年不是闰年）。故闰年条件为，能被4整除且不能被100整除，或能被400整除。4.1If条件语句88If条件语句有多种形式：单分支、双分支和多分支。4.1.1单分支选择结构89语句