《任务二应用选择结构完善系统.ppt》由会员分享，可在线阅读，更多相关《任务二应用选择结构完善系统.ppt（34页珍藏版）》请在三一办公上搜索。
1、VB.NET程序设计,任务二 应用选择结构完善系统,学习目标,1、了解VB.NET常用的数据类型2、了解运算符和表达式3、掌握变量声明、变量作用域4、掌握选择结构的使用5、掌握MessageBox类的常用方法6、了解常见错误类型，掌握错误处理的方法,VB.NET常用数据类型,变量与常量变量,变量的声明通过类型符号：直接在变量名后面加上类型符号 S&=10 声明S为长整型变量 2.使用声明语句：Dim 变量名 As 类型=初始值 Dim 变量名 类型符 例如，下面两条声明语句的效果相同：Dim a As Integer,b As Long,c As Single,d As Double Dim
2、a%,b&,c！,d#注意：定义好的变量要在程序中使用，否则会有警告（未使用的变量）。,变量与常量变量,变量的命名由字母、汉字、数字或下划线组成，第一个字符必须是字母或汉字或下划线。如果名称以下划线开头，必须包含至少一个字母或数字。长度不超过1023个字符。不要与VB.NET中的关键字同名。VB.NET对变量中字母的大小写不加以区分。最好利用“匈牙利命名”规则给变量起名，即变量名由“前缀+后缀”组成。例如:IntCountor,DblSum,变量与常量变量,静态变量的声明自动变量：用Dim声明，变量值只在过程执行期间才存在 静态变量：用Static声明，变量值在程序运行期间一直存在 例 统计单
3、击窗体的次数,变量与常量变量,变量的作用域块级变量：用Dim声明，在特定的代码块中声明。如条件语句块.局部变量：在一个过程内部声明的变量,它只在本过程内有效。用Dim或Static来声明。窗体和模块级变量:在窗体和模块的声明部分定义的变量,它对一个窗体或模块的不同过程都有效.用 Dim或Private来声明。全局变量:在模块文件中用Public关键字声明的变量.它可以被应用程序中的所有模块引用。,变量与常量常量,常量：就是其值固定不变的量常量的命名和声明命名：遵循变量名命名的规则声明格式：Const 常量名 As 类型=表达式 例：Const conMax As Integer=9 声明Int
4、eger型常量 Const conDate=#10/5/2002#声明Date型常量 Const CodeName=“ASCII”声明String型常量 声明Double型常量,运算符,1.算术运算符,运算符,2.字符串运算符运算符：&和+例：VB=“Visual”+“Basic”连接为字符串“Visual Basic”第&Str(N)&条记录 Str为数值型转字符型函数。若N为1，标签上显示“第1条记录”说明：使用+号，要求连接的两个表达式均为字符串型使用&号，连接的两个表达式可以为任何类型，但结果为字符串型，如“当前日期”
/8/2002#,运算符,3.关系运算符,Is：判定两个Ob
5、ject类型的变量是否引用同一个对象Like：判定左边的字符串是否与右边的字符串匹配,运算符,4.逻辑运算符 常用：Not、And、OrNot：表达式数为True时，结果为False；反之亦然。例如，Not(4 5)，结果为True And：两个表达式均为True时，结果为True 例如，(4 5)And(8 7)，结果为False Or：两个表达式均为False时，结果为False 例如，(4 5)Or(8 7)，结果为True,运算符,4.逻辑运算符,表达式,表达式：用运算符和圆括号将常量、变量、函数和常数连接起来组成的有意义的式子。如，数值表达式 Cos(180*Pi/180)*100
6、逻辑表达式(N=0)And(N Mod 2 0)运算优先顺序(从高到低)：函数算术运算(乘方取负乘/除整除求余加/减)字符串运算符关系运算符逻辑运算符(NotAndOr)用括号可以改变运算顺序乘方和负号相邻时，取负优先。例如：2-2 的结果是0.25，相当于2(-2),属性、事件,1、属性指对象(如窗体或控件)的特征，称为对象的属性。2、事件指能被对象识别的动作，如单击、双击等。3、事件过程指一段独立的代码。当在对象上发生了某个事件，该对象就会响应这个事件，去执行这段独立的代码。,属性的设置及代码的编写,属性的设置有2种方法：1、利用属性窗口，找到相应对象的属性直接设置2、在程序代码中，通过赋
7、值语句来设置，格式为：对象名.属性名=属性值例：Label1.Text=“请输入姓名”编写事件过程代码的步骤：1、打开代码窗口（方法有很多种）2、在左边的下拉列表框中选择“对象名”3、在右边的下拉列表框中选择“事件名”,选择结构,选择结构：当设定条件成立时执行某些语句，条件不成立时则跳过这些语句或执行其它的语句。选择结构中要使用选择语句，有两路分支和多路分支两种情况，对应的选择语句有If语句(两路出口)和Select Case语句(多路出口)。,选择结构If条件语句,1、If语句结构 If Then End If If Then Else End If,选择结构If条件语句,2、If语句嵌套
8、If语句嵌套使用可形成多分支的条件语句结构 If Then ElseIf Then Else End If,选择结构If条件语句举例,例1：用户登录界面的代码 用于返回登陆结果 Public bResult As Boolean=False 登陆用户的ID Public UserId As String=登陆的用户名 Public UserName As String=登陆的用户密码 Private UserPwd As String=Private Sub btnSubmit_Click(ByVal sender As System.Object,ByVal e As System.Even
9、tArgs)Handles btnSubmit.Click 判断用户输入密码的合法性 If UserPwd=“123”And UserName=“123 Then 合法用户 bResult=True Me.Close()Else 密码错误 bResult=False MessageBox.Show(请确认你的用户名或密码是否正确)End If End Sub Private Sub btnClear_Click(ByVal sender As System.Object,ByVal e As System.EventArgs)Handles btnClear.Click 关闭登陆对话框 Me.
10、Close()关闭整个程序 Application.Exit()End Sub,选择结构If条件语句举例,例2：将分数按等级划分(在“控制台应用程序”中录入如下代码)Dim sYourScore As String Dim iScore As Integer(请输入你的考试分数（0-100之间）：)sYourScore=()iScore=Integer.Parse(sYourScore)If(iScore 100)Then(不可能的分数！)ElseIf(iScore=100)Then(你真不可思议，太棒了！)ElseIf(iScore 85)Then(你真优秀！)ElseIf(iScore 6
11、0)Then(不错不错！)Else(下次加油哦！)End If(),选择结构Select Case选择语句,语法格式：Select Case Case Case Case Else End Select功能：根据测试表达式的值，决定程序的流向。值的类型是数值型、字符串型、日期型等，一旦与某个Case后的值相等，则执行这个Case中的，完成后执行End Select后的语句。如果所有的Case后的都不与项匹配，则执行Case Else后的。,选择结构Select Case选择语句,例3：将例2改写为Select Case结构。Dim sYourScore As String Dim iScore
12、 As Integer(请输入你的考试分数（0-100之间）：)sYourScore=()iScore=Integer.Parse(sYourScore)Select Case iScore Case 100(你真不可思议，太棒了！)Case 85 To 99(你真优秀！)Case 60 To 84(不错不错！)Case 0 To 59(下次加油哦！)Case Else(不可能的分数！)End Select(),MessageBox类,MessageBox类的常用方法：Show方法：利用该方法给用户一些提示信息。例:MessageBox.Show(“请确认密码是否正确”),课堂实训,用户登录界
13、面代码：用于返回登陆结果 Public bResult As Boolean=False 登陆用户的ID Public UserId As String=登陆的用户名 Public UserName As String=登陆的用户密码 Private UserPwd As String=Private Sub btnSubmit_Click(ByVal sender As System.Object,ByVal e As System.EventArgs)Handles btnSubmit.Click 判断用户输入密码的合法性 If UserPwd=“123”And UserName=“123
14、 Then 合法用户 bResult=True Me.Close()Else 密码错误 bResult=False MessageBox.Show(请确认你的用户名或密码是否正确)End If End Sub Private Sub btnClear_Click(ByVal sender As System.Object,ByVal e As System.EventArgs)Handles btnClear.Click 关闭登陆对话框 Me.Close()关闭整个程序 Application.Exit()End Sub,常见错误类型,语法错误运行错误逻辑错误,错误处理,使用TryEnd Tr
15、y结构来处理“运行错误”Try可能产生运行错误的语句Catch一旦发生运行错误就执行的语句Finally不管错误是否发生都会被执行的语句End Try,错误处理,处理磁盘驱动器错误TryPictureBox1.Image=Image.Fromfile(“a:fileopen.bmp”)CatchMessageBox.Show(“Please insert disk in the drive A!”)End Try,错误处理,使用Finally子句完成清除任务TryPictureBox1.Image=Image.Fromfile(“a:fileopen.bmp”)CatchMessageBox.
16、Show(“Please insert disk in the drive A!”)FinallyMessageBox.Show(“Error handle complete”)End Try注意：无论Try语句是否产生运行错误，都可能需要在错误处理程序结束时实现某项任务，如更新变量、使用消息框显示结果或禁用窗体上不需要的对象，此时就需要使用Finally子句。,错误处理,使用Err对象获取较详细的错误信息Err对象：每次产生运行错误时，该对象都会被赋予详细的错误处理信息。常用属性：Err.Number：提供运行错误的编号Err.Description：描述运行错误的简短信息,错误处理,检测多
17、个运行错误TryPictureBox1.Image=Image.Fromfile(“a:fileopen.bmp”)Catch When Err.Number=53 文件不存在错误MessageBox.Show(“Check pathname and disk drive!”)Catch When Err.Number=7 内存不足错误MessageBox.Show(“Is this really a bitmap?”)Catch When Err.Number=7 内存不足错误 MessageBox.Show(Err.Description)End Try,错误处理,指定重试次数指多次尝试一
18、种操作,如果问题仍得不到解决则禁用该操作。例：先声明Retries变量为窗体级变量,然后在Button1的单击事件过程中写如下代码:Try PictureBox1.Image=Image.Fromfile(“a:fileopen.bmp”)Catch Retries+=1 If Retries=2 ThenMessageBox.Show(“please insert the disk in drive A!”)Else MessageBox.Show(“文件载入3次失败,请退出!”)Button1.Enabled=False End IfEnd Try,错误处理,抛出错误调试程序或指定重试次数是时使用。方法1：Err.Raise(7)产生一个内存不足错误方法2：Throw New Exception 抛出一个异常,作业,实训1：应用选择结构完善登录窗体(见PPT25页)实训2：设计一个小型计算器,
