第6章 VBNet程序设计基础.ppt

《第6章 VBNet程序设计基础.ppt》由会员分享，可在线阅读，更多相关《第6章 VBNet程序设计基础.ppt（77页珍藏版）》请在淘文阁 - 分享文档赚钱的网站上搜索。

1、第13章 VB.Net程序设计基础,Visual Studio.NET是Microsoft公司针对互联网推出的新一代可视化开发工具。Visual Basic.NET就是支持该结构的编程语言之一。,Visual Basic.NET :面向对象的可视化程序设计语言,事件驱动程序 基于Windows程序的基本特点。面向对象编程（OOP） 将特征属性抽象为变量，行为方法编写为函数。用户界面 窗体和控件、菜单等可视化应用程序集成开发环境 编辑、调试、运行,VB.NET的程序开发的特点,解决方案：在.NET环境中，开发工作以解决方案的形式进行组织，每个解决方案包含一个或多个项目.项目：每个项目可以执行一项

2、不同的任务，它由VB.NET代码、图片和文档等相关文件的构成。编程的第一步是新建一个项目。,13.1.1 VB.NET简介,13.1.2 VB.NET可视化集成开发环境,(1)启动VB.NET: 开始/程序/Microsoft Visual Studio.NET2008,“起始页”区域 :显示了最近打开过的项目链接及其修改日期,新建一个项目的操作步骤:,(2)单击“起始页”中间区域中的“新建项目”或选择“文件/新建/项目”,(3) 在“新建项目”对话框中，在“项目类型”列表框中选择“Visual Basic项目”；在“模板”列表框中选择“Windows应用程序”模板；在“名称”文本框中输入项目

3、的名称，这里输入“project1”，并在其下方的“位置”列表框中为项目选定一个保存路径。,(4)单击“确定”按钮，完成了“project1”项目的新建，进入了.NET开发环境。,13.1.3 VB.NET中面向对象的基本概念,1对象和类 (1)对象:一个实体的抽象描述，包括属性和方法，可以识别并响应事件。属性: 对象中的数据，用来描述和反映对象特征的参数。方法: 对象中的程序过程, 可执行的功能，作为方法供用户直接调用。事件: 用户或操作系统执行的操作，如单击控件、鼠标移动、键盘按下等。,在VB.NET程序设计语言中，对象是程序设计的基本单元，也是设计时的核心。,(2) 类 :具有相同操作功

4、能和相同属性的对象的集合和抽象。,在VB.NET中，工具箱内列出的各种控件都是系统设计好的标准控件类。 当把控件设置在窗体上后，才把控件类实例化为对象,即创建了一个控件对象。例如:命令按钮(Button)类，它集中了命令按钮对象的共有特征。在把“命令按钮”画到窗体上之前，“命令按钮”控件对象是不存在的，只有当把“命令按钮”控件设置在窗体上后，才把类实例化为对象，即创建了一个命令按钮控件对象。,设置对象属性的二种方法：(1)设计阶段：在属性窗口中设置(2)在程序代码中设置。格式如下： 对象名.属性=属性值,2对象的属性、方法和事件 （1）对象属性:用以描述和反映对象特征的参数,例如：Button

5、1.Text=”打开”Button1.ForeColor=Color.Red,调用格式如下: 对象名.方法 (参数名表) 注：方括号内内容可省略例如： Text1.Focus() /用该方法把光标置于Text1文本框上。,（2）对象方法:描述了该对象能执行的动作。 是在对象上可执行的动作。是由VB系统已设计好的过程、函数，可供用户直接调用。,（3）对象事件 ：由VB.NET预先设置好的、能够被对象设别的动作。例如单击（Click）、DblClick（双击）等,格式如下：Private Sub 对象名称_事件名称（对象引用，事件信息）Handles 事件处理程序 事件过程代码 End Sub 其

6、中，“对象名称”是对象的Name属性，“事件名称”是该对象能够识别的事件，是VB.NET预先定义好并赋于该对象的。,Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Button1.Text = 打开 Button1.ForeColor = Color.Red End Sub,13.1.4 创建一个简单的应用程序实例,1.建立程序窗体；2.在程序窗体上设置控件对象；3.确定控件对象的属性；4.编写对象的事件驱动代码。5.程序运行和

7、调试13.保存文件,VB.NET程序的基本组成文件包括：解决方案文件（.sln）窗体文件（.frm）Basic模块文件（.vb）资源文件（.resx）,每创建一个解决方案会生成一个文件夹，所有这些文件都在该文件夹下。 如要拷贝所开发程序，应该拷贝整个文件夹。,【例13-1】设计一个小程序。窗体的标题为“VB.NET应用程序设计示例”，在窗体上设置一个文本框显示“您好，欢迎使用VB.NET”，两个命令按钮【下一步】和【结束】，单击【下一步】按钮时，文本框中显示的内容改变为“VB.NET简单易学，功能强大”，单击【结束】按钮时，程序结束。程序运行界面如图13-5和13-6所示。,13.2 VB.N

8、ET基本语法,VB.NET作为一种程序设计语言同样规定了编写程序所必须的一些语言元素如常量、变量、基本语句、函数和过程等。,13.2.1数据类型、常量和变量1数据类型 数据类型确定数据在内存中的存储容量和取值范围等。VB.NET的基本数据类型可分为数值型、字符型、字符串型、逻辑型、日期型、对象型等。,表13-1 数值型数据类型,表13-2 其他数据类型,说明：1）Date类型用于表示日期或时间；常量需要用#括起来，格式为：#mm/dd/yyyy#，如：#02/15/2007#。2）Char类型只能接受一个用双引号括起来的字符。String类型表示字符串。字符串是用双引号括起来的字符序列，如AB

9、C。String类型的缺省规定为可变长度的字符串，即在对字符串操作时，其长度可增可减。,2常量和变量(1)常量和变量的命名规则1）必须以英文字母（或汉字）开头，后跟字母、汉字、数字或下划线。字母大小写意义相同。2）常量名、变量名的长度不能超过255个字符。3）在同一个有效范围内，每个常量或变量的名称必须唯一。4）不能使用VB.NET关键字作为常量和变量的名字。,Dim x As Double 声明双精度型变量x Dim m%, v 声明整型变量m和对象型变量v，如缺省类型则为Object Dim f As Boolean=False 声明逻辑型变量f，并设置初值False,(2) 变量声明 基

10、本语法格式： Dim 变量名类型说明符|As 类型,（3）常量 VB.NET中常量有两种形式：直接常量和符号常量。例如:12、-1.23、a为直接常量。 符号常量 :用一个标识符来代表一个数值或字符串。定义符号常量的格式如下: Const常量名As数据类型=表达式例如：Const UserName As String=John 符号常量UserName是字符串常量Const Max As Integer=100 符号常量Max是整型常量,13.2.2 运算符和表达式 1运算符 （1）算术运算符 （乘方运算符）、*（乘法运算符）、/（除法运算符）、（整除运算符）、Mod（模运算符）、+（加法运算

11、符或正值运算符）、-（减法运算符或负值运算符）、&（连接运算符）,例如：1913.7=2 19 Mod 6=1 19 Mod 6=1 23.67 Mod 7.88=0,abcd+efg=abcdefg 123 + 123 =246123 & abcd =123abcd abc + 123 (不允许）,（2）复合赋值运算符在赋值运算符（=）之前加上一些算术运算符，可以构成复合的赋值运算符。例如：a+=3 等价于a=a+3 “+=”称为“自反加赋值运算符” x*=y+8 等价于x=x*(y+8) “*=”称为“自反乘赋值运算符” m=2 等价于m=m2 “=”称为“自反指数赋值运算符”,VB.NE

12、T中还可使用以下的复合赋值运算符：-=（自反减赋值运算符） /=（自反浮点除赋值运算符）=（自反整除赋值运算符） &=(自反字符串连接赋值运算符),（3）关系运算符 （大于运算符）、（不等于运算符）=（大于等于运算符）、 b Then 如果ab，交换a和b的值 t = a a = b b = t End If MsgBox(较小数 & a & & 较大数 & b, , 从小到大排序) 报告结果End Sub,图13-13 两数排序结果,或:If a b Then t = a：a = b：b = t,2）If语句格式2 If 条件 Then 语句1 Else 语句2 EndIf或：If 条件 T

13、hen 语句1 Else 语句2,【例】计算分段函数的值,程序1:Dim a, x, y As Singlea = Val(InputBox(请输入a 的值, 计算分段函数)x = Val(InputBox(请输入x 的值, 计算分段函数)If x -a) And (x a / 2 Then y = xMsgBox (a= & a & x= & x & y= & y),程序2If x -a) And (x a / 2 Then y = xEnd IfMsgBox (a= & a & x= & x & y= & y),3）多分支If语句If 条件表达式1 Then 语句块1ElseIf 条件表达

14、式2 Then 语句块2 Else 语句块n,图13-15 多分支语句的流程图,不管有几个分支,当某条件满足,执行相应的语句块,其余分支不再执行。,4）If语句的嵌套If语句的嵌套是指If语句中的语句块又包含If语句。语句格式如下；If 条件表达式1 Then If 条件表达式11 Then 语句块1 EndIfEndIf,（2）Select Case语句 Select Case语句也称为情况语句，它可以用来实现多分支选择结构程序。,语句格式：Select Case 表达式 Case 表达式列表1 语句块1 Case 表达式列表2 语句块2 Case Else 语句块nEnd Select,C

15、ase子句的表达式可以由以下几种形式构成： 表达式1 to 表达式2： Case 1 To 5 表达式值在1到5范围内。Is运算表达式：Case Is5 表达式的值大于5的值。枚举常量：Case “q”, “Q” 表达式的值等于”q”或”Q”。多种表达混合：Case 1 To 5, IsMin 表达式的值在1到5或大于Min的值。,测试表达式可以是变量、函数、数值表达式、字符串表达式或逻辑表达式。Case子句中表达式列表的数据类型应当与表达式的数据类型一致。,【例13-3】从键盘输入一个字符，判断它是大写字母、小写字母、数字字符还是其他字符。本例使用标签Label1报告结果，首先在窗体上添加一

16、个Label1。,Private Sub Form1_Click() Handles MyBase.Click Dim ch As Charch = InputBox(请输入字符, 字符判断, , 200, 200)Select Case chCase A To ZLabel1.Text = ch + 是大写字母 Case a To zLabel1.Text = ch + 是小写字母Case 0 To 9Label1.Text = ch + 是数字字符Case ElseLabel1.Text = ch + 是其他字符End SelectEnd Sub,3循环结构VB.NET提供了两种类型的循环

17、控制：计数循环控制与条件循环控制。,For I=1 To 10 Step 1 TextBox1.Text = TextBox1.Text & I & Next I,一般用于循环次数已知的情况,（1）计数循环控制语句（For Next语句）语法格式：For 循环变量 = 初值To 终值 Step 步长值 语句块 Exit For 语句块Next 循环变量,循环次数,图13-17 For循环语句流程图,说明： (1)循环变量必须是数值型变量。(2)初值、终值、步长值可以是表达式。类型必须与循环变量的类型相同。(3)步长值可以是正数（初值小于终值）或负数（初值大于终值）。缺省值为1。(4)Exit

18、For：退出循环，执行Next语句的后继语句。(5)For与Next中间的语句称为循环体，可以是多个语句。,Private Sub Form1_Click() Handles MyBase.ClickDim s As Single, num As Integer, smax As Integer, smin As Integer s读入成绩, num学号, smax最高分, smin最低分Dim nummax As Integer, nummin As Integer nummax最高分学号, nummin最低分学号Dim sum As Integer, ave As Single, ch A

19、s String sum总分, ave平均分, ch为InputBox提示smax = -1 : smin = 101 最高分赋值为-1, 最低分赋值为101For num = 1 To 10 ch = 请输入第 & num & 个学生的成绩 s = InputBox(ch) ： 输入学生成绩 sum = sum + s 学生成绩累加 If s smax Then smax = s : nummax = num 保留最高分及对应学号 If s = 10 Then TextBox1.Text = TextBox1.Text & k & Else TextBox1.Text = TextBox1.

20、Text & k & EndIf Next n TextBox1.Text = TextBox1.Text & vbCrLf Next m,外重循环执行一次，内重循环执行一遍。,13.2.6 数组 1数组的定义 一维数组定义格式： Dim 数组名（下标上界）As 类型名称注意：下标下界为0，一维数组的大小为上界+1。 无数据类型表示Object类。例如：Dim A (10) As Integer 定义了一个一维数组，该数组的名字为A，类型为Integer(整型)，该数组由11个数组元素组成，即A (0)- A (10)）,二维数组定义格式：Dim 数组名（第一维下标上界，第二维下标上界）As

21、类型名称例如：Dim Page(1,2) As Integer定义了一个二维数组，该数组的名字为Page，类型为Integer(整型)，共6个数组元素，分别是：,Page(0,0)、Page(0,1)、Page(0,2)Page(1,0)、Page(1,1)、Page(1,2),2数组的初始化和引用 （1）数组的初始化 1)一维数组元素初始化格式如下： Dim 数组名（ ）As 类型名称=值1,值2,值n注意:VB.NET规定不允许对指定上界的数组进行初始化，所以圆括号中必须为空，根据实际初值的个数确定数组的上界。,例如：Dim Season() As String = 春天,夏天,秋天,冬天

22、定义了一个字符串数组Season该数组有4个初值，分别为： Season(0)=“春天”、Season(1)=“夏天”、 Season(2)=秋天、Season(3)=冬天,2）二维数组元素初始化格式如下：Dim 数组名（,）As 类型名称=第一行值,第二行值,第n行值例如：Dim AI(,) As Integer=1,2,3,4,5,6定义了一个二维数组AI，内层花括号的个数表示数组的行数，每个内层花括号中数值个数表示数组的列数，该语句定义了一个2行3列的数组，即AI(2,3)。各元素的值分别为： AI(0,0)=1 AI(0,1)=2 AI(0,2)=3 AI(1,0)=4 AI(1,1)

23、=5 AI(1,2)=6,（2）数组元素的引用 只能逐个引用数组元素而不能一次引用整个数组，数组元素的表示形式如下。 数组名(下标1,下标2) 其中，下标可以是整型常量或整型表达式，例如: A(5)、Season(2)、AI(1,1)、 AI(1+1,2)。数组元素可以出现在表达式中，也可以被赋值。,【例13-7】设计一个应用程序，使用数组对新进榜歌曲按输入顺序逆序排列并显示结果。该程序窗体界面有2个标签Label1和Label2、1个命令按钮Button1 。,Private Sub Button1_Click() Handles Button1.Click Const n = 6 声明常量

24、,歌曲数目为6首 Dim i As Integer, j As Integer i为循环控制变量, i和j为数组下标变量 Dim t As String t用于逆序排列的中间变量 Dim Song(n - 1) As String 声明字符串数组变量，下标上界为n-1 为数组元素赋值，建立歌曲榜单，并显示在标签Label1上 For i = 0 To n - 1 Song(i) = InputBox(请输入歌曲名称：) Label1.Text = Label1.Text & & Song(i)图13-19程序运行结果 Next i 采用首尾元素对换完成逆序排列 For i = 0 To (n

25、- 1) 2 j = n - 1 - i t = Song(i) Song(i) = Song(j) Song(j) = t Next i 在标签Label2上输出逆序排列结果 For i = 0 To n - 1 Label2.Text = Label2.Text & & Song(i) Next iEnd Sub,【例13-8】编写程序，要求能输入4名学生的英语、数学、政治、物理四门课的考试成绩。计算并输出每名学生的平均分。,Private Sub Form1_Click() Handles MyBase.Click Const StuNum = 4, CourseNum = 4 Dim

26、StuGrade(StuNum - 1, CourseNum - 1) As Single StuGrade成绩二维数组 Dim AveGrade(StuNum - 1) As Single AveGrade平均成绩一维数组 Dim CurrentGrade As String Dim i As Integer, j As Integer, k As Integer TextBox1.Text = TextBox1.Text & 学号 & 英语 _图13-20 程序运行结果 & 数学 & 政治 & 物理 & 平均 & vbCrLf For i = 0 To StuNum - 1 k = 0 T

27、extBox1.Text = TextBox1.Text & i & For j = 0 To CourseNum - 1 输入一个人各门课成绩, 并计算和，输出成绩 CurrentGrade = 请输入 & i + 1 & 号学生第 _ & j + 1 & 门课程的成绩 StuGrade(i, j) = InputBox(CurrentGrade) k = k + StuGrade(i, j) TextBox1.Text = TextBox1.Text & StuGrade(i, j) & Next j计算平均成绩并输出 AveGrade(i) = k / 4 TextBox1.Text =

28、 TextBox1.Text & AveGrade(i) & vbCrLf Next iEnd Sub,13.2.7 子程序过程与函数过程 通用过程分为两类：子程序过程和函数过程。子程序过程又称为Sub过程，函数过程称为Function过程或自定义函数。Sub过程与自定义函数的区别在于：（1）过程较为灵活，可以带参数，也可以不带参数，而且不返回值。（2）函数通常都要求带参数，并有返回值。,1Sub过程的定义和调用（1）Sub过程的定义定义Sub过程的格式如下：Private|Public Static Sub 过程名(形式参数表) 局部变量和常量声明 语句块 Exit Sub 语句块EndSu

29、b,过程必须以Sub开始,使用说明：1）过程必须以Sub开始，EndSub结束。Public（默认）为全局（公有）过程，全局有效；Private 为局部（私有）过程，本模块有效；Static为静态过程（每次调用该过程后，都将保留其中的局部变量值）。2）形式参数（简称形参）是过程与主程序（调用过程的程序）之间进行数据传递的变量。多个参数之间用逗号分隔。 形参有两种类型，格式如下：ByVal | ByRef 参数名 () As 数据类型其中：ByVal表示该参数以传值的方式传递数据（值传递）。ByRef表示以传地址的方式传递数据。3）过程中说明的变量和常量仅在该过程中有效。4）Exit Sub表示退出过程，返回到调用过程的主程序的下一个语句继续执行。,（2）Sub过程的建立通用过程不属于任何一个事件过程，因此不能用事件过程定义。通用过程可以在窗体、模块或类中建立, 由程序员在程序代码窗口直接输入整个过程，包括框架。,