Visual BasicNET 程序设计第三章.pptVIP

语句格式：For Each 元素 [As 数据类型] In 对象或集合、数组 语句块 [Exit For] Next 语句功能：可以列出数组中每一个元素，或一个集合中的每一个元素。 注意：数组和对象集合中的元素只能是对象（Object）变量，且不能使用用户自定义类型。 [程序代码] Dim obj As Control Dim s As String = For Each obj In Me.Controls s += “Name:“ obj.Name “,Text:“ obj.Text “,类型:“ TypeName(obj) vbCrLf Next MsgBox(s) [代码说明] ●Dim obj As Control ：定义控件类型变量。由于窗体上每一个控件都是对象，也可以定义为Object类型。当然，也可以仅仅列出某一种类型的控件，如按钮类型，按钮类型的类型名为Button。 ●Me.Controls：窗体上所有控件的集合。 ●TypeName：系统函数，取得对象的类型名。 [运行结果] 程序运行如图3-10所示。 图3-10 案例3-8的运行结果。 案例3-9 用While循环实现1到100的累加。 [知识点分析] While循环结构有几种形式，如表3-1所示。 表3-1 While循环结构的形式 表中While结构1～3实现相同的功能，只是写法不同，这种结构称为“当型”循环结构。即：当满足条件时，执行循环体（语句块）。While结构4是“直到型”循环结构，无论是否满足条件，至少执行循环体（语句块）一次，直到不满足条件才退出循环。 While结构1 While结构2 While结构3 While结构4 While 条件 语句块 [Exit While] End While While条件 语句块 [Exit While] Wend Do While条件 语句块 [Exit While] Loop Do 语句块 [Exit Do] Loop While 条件 ［程序代码］ 分别采用四种While结构编写程序代码，见表3-2。 表3-2 用四种While结构编写的程序代码 Dim i As Integer = 1 Dim sum As Integer While i = 100 满足条件则循环 sum += i i += 1 循环变量必须自己加 End While While i = 100 满足条件则循环 sum += i i += 1 循环变量必须自己加 While Wend Do While i = 100 满足条件则循环 sum += i i += 1 循环变量必须自己加 Loop do sum += i i += 1 循环变量必须自己加 Loop While i = 100 MsgBox(sum) [案例进阶] 求从1累加到100过程中，结果超过1000时的数是多少。 [程序代码] Dim i As Integer = 1 Dim sum As Integer While (1) 形式上是无限循环，在循环体中必须有退出的判断 sum += i If sum 1000 Then Exit While 当满足条件时,退出循环 i += 1 End While MsgBox( “当结果超过时,该数为:“ i) 思考：请读者自己分析以上程序代码。 3.3 函数和过程 函数是完成某一功能的程序代码段，又称程序模块。该段程序代码以一定格式实现并通过函数名来调用。编写函数的目的是便于维护，避免代码重复编写，提高程序设计效率。一般来说，函数是有返回值的，函数的返回值即函数执行的结果。实际上，过程也是函数，只是没有返回值的函数；方法则是存在于某个对象中的函数或过程。 1. 自定义函数 函数分为系统函数和自定义函数。系统函数是VB.net提供的内部函数，可以直接通过函数名调用，如MsgBox()函数、Len()函数等，读者可参阅附录A。自定义函数是用户自己设计的函数。 案例3-10 定义一个函数Add，实现两个整数相加，并返回相加的结果。 [知识点分析] 根据案例要求，需要设计一个自定义函数。 自定义函数格式：Function 函数名(参数列表) as 返回值类型 代码段 [Exit Function] [Return 结果] End Function 说明： ●关键字Functi