VB基础培训.ppt

第第6 6章章 VB.NetVB.Net程序设计基础程序设计基础 VisualStudio.NET是是Microsoft公司针对互联网推出公司针对互联网推出的新一代可视化开发工具。的新一代可视化开发工具。VisualBasic.NET就是支就是支持该结构的编程语言之一。持该结构的编程语言之一。VisualBasic.NET:面向对象的可视化程序设计语言n事件驱动程序 基于Windows程序的基本特点。n面向对象编程（OOP）将特征属性抽象为变量，行为方法编写为函数。n用户界面 窗体和控件、菜单等n可视化应用程序集成开发环境 编辑、调试、运行VB.NET的程序开发的特点的程序开发的特点解决方案：解决方案：在在.NET.NET环境中，开发工作以环境中，开发工作以解决方案解决方案的形式进的形式进行组织，每个解决方案包含一个或多个项目行组织，每个解决方案包含一个或多个项目.项目：每个项目可以执行一项不同的任务，它由项目：每个项目可以执行一项不同的任务，它由VB.NETVB.NET代码、图片和文档等相关文件的构成。代码、图片和文档等相关文件的构成。编程的第一步是新建一个项目。编程的第一步是新建一个项目。6.1.1 VB.NET简介简介 6.1.2 VB.NET可视化集成开发环境可视化集成开发环境(1)(1)启动启动VB.NET:开始开始/程序程序/Microsoft Visual Studio.NET2003“起始页起始页”区域区域 :显示了最近显示了最近打开过的项目链接及其修改打开过的项目链接及其修改日期日期 解决方解决方案资源案资源管理器管理器子窗口子窗口 新建一个项目的操作步骤新建一个项目的操作步骤:(2)(2)单击单击“起始页起始页”中间区域中中间区域中的的“新建项目新建项目”或选择或选择“文文件件/新建新建/项目项目”(3)(3)在在“新建项目新建项目”对话框中，在对话框中，在“项目类型项目类型”列表框中选择列表框中选择“Visual Basic项目项目”；在；在“模板模板”列表框中选择列表框中选择“Windows应用程序应用程序”模板；在模板；在“名称名称”文本框中输入项目文本框中输入项目的名称，这里输入的名称，这里输入“project1”，并在其下方的，并在其下方的“位置位置”列列表框中为项目选定一个保存路径。表框中为项目选定一个保存路径。(4)(4)单击单击“确定确定”按钮，完成了按钮，完成了“project1”项目的新建，进项目的新建，进入了入了.NET开发环境。开发环境。控件工具箱 解决方案资源管理器 属性窗口 设计窗口 双击窗体进入代码窗口6.1.3 VB.NET中面向对象的基本概念中面向对象的基本概念 1 1对象和类对象和类 (1)(1)对象对象:一个实体的抽象描述，包括属性和方法，可以识别一个实体的抽象描述，包括属性和方法，可以识别并响应事件。并响应事件。属性属性:对象中的数据，用来描述和反映对象特征的参数。对象中的数据，用来描述和反映对象特征的参数。方法方法:对象中的程序过程对象中的程序过程,可执行的功能，作为方法供用户可执行的功能，作为方法供用户直接调用。直接调用。事件事件:用户或操作系统执行的操作，如单击控件、鼠标移动、用户或操作系统执行的操作，如单击控件、鼠标移动、键盘按下等。键盘按下等。在在VB.NET程序设计语言中，对象是程序设计的基本单元，程序设计语言中，对象是程序设计的基本单元，也是设计时的核心。也是设计时的核心。调用格式如下调用格式如下:对象名对象名.方法方法 (参数名表参数名表)注：方括号内内容可省略注：方括号内内容可省略例如：例如：Text1.Focus()/用该方法把光标置于用该方法把光标置于Text1文本框上。文本框上。（2 2）对象方法）对象方法:描述了该对象能执行的动作。描述了该对象能执行的动作。n是在对象上可执行的动作。是在对象上可执行的动作。n是由是由VBVB系统已设计好的过程、函数，可供用户直系统已设计好的过程、函数，可供用户直接调用。接调用。（3 3）对象事件）对象事件 ：由：由VB.NETVB.NET预先设置好的、能够被对象设别预先设置好的、能够被对象设别的动作。的动作。例如单击（例如单击（Click）、）、DblClick（双击）等（双击）等。事件过程事件过程：事件的处理程序。事件的处理程序。格式如下：格式如下：Private Sub Private Sub 对象名称对象名称_ _事件名称（对象引用，事件信息）事件名称（对象引用，事件信息）Handles Handles 事件处理程序事件处理程序 事件过程代码事件过程代码 End SubEnd Sub 其其中中，“对对象象名名称称”是是对对象象的的NameName属属性性，“事事件件名名称称”是是该该对对象象能能够够识识别的事件，是别的事件，是VB.NETVB.NET预先定义好并赋于该对象的。预先定义好并赋于该对象的。Private Sub Private Sub Button1_ClickButton1_Click(ByVal sender As System.Object,ByVal e As (ByVal sender As System.Object,ByVal e As System.EventArgs)Handles Button1.ClickSystem.EventArgs)Handles Button1.Click Button1.Text=Button1.Text=打开打开 Button1.ForeColor=Color.Red Button1.ForeColor=Color.Red End Sub End Sub6.1.4 创建一个简单的应用程序实例创建一个简单的应用程序实例1.1.建立程序窗体；建立程序窗体；2.2.在程序窗体上设置控件对象；在程序窗体上设置控件对象；3.3.确定控件对象的属性；确定控件对象的属性；4.4.编写对象的事件驱动代码。编写对象的事件驱动代码。5.5.程序运行和调试程序运行和调试6.6.保存文件保存文件VB.NET程序的基本组成文件包括：程序的基本组成文件包括：n解决方案文件（.sln）n窗体文件（.frm）nBasic模块文件（.vb）n资源文件（.resx）每创建一个解决方案会生成一个文件夹，所有这些文件都在该文件夹下。如要拷贝所开发程序，应该拷贝整个文件夹。【例例6-1】设计一个小程序。窗体的标题为设计一个小程序。窗体的标题为“VB.NET应用应用程序设计示例程序设计示例”，在窗体上设置一个文本框显示，在窗体上设置一个文本框显示“您好，您好，欢迎使用欢迎使用VB.NET”，两个命令按钮，两个命令按钮【下一步下一步】和和【结束结束】，单击，单击【下一步下一步】按钮时，文本框中显示的内容改变按钮时，文本框中显示的内容改变为为“VB.NET简单易学，功能强大简单易学，功能强大”，单击，单击【结束结束】按钮按钮时，程序结束。程序运行界面如图时，程序结束。程序运行界面如图6-5和和6-6所示。所示。6.2 VB.NET基本语法基本语法 VB.NET VB.NET作为一种程序设计语言同样规定了编写程序所必作为一种程序设计语言同样规定了编写程序所必须的一些语言元素如常量、变量、基本语句、函数和过程须的一些语言元素如常量、变量、基本语句、函数和过程等。等。6.2.1数据类型、常量和变量数据类型、常量和变量1 1数据类型数据类型 数据类型确定数据在内存中的存储容量和取值范围等。数据类型确定数据在内存中的存储容量和取值范围等。VB.NETVB.NET的基本数据类型可分为数值型、字符型、字符串型、的基本数据类型可分为数值型、字符型、字符串型、逻辑型、日期型、对象型等。逻辑型、日期型、对象型等。表6-1 数值型数据类型数据类型类型符存储空间范围Byte（字节型）1个字节0 到 255（无符号）Short（整型）2个字节-32 768 到 32 767Integer（整型）%4个字节-2 147 483 648 到2 147 483 647Long（长整数）&8个字节-9 223 372 036 854 775 808 到 9 223 372 036 854 775 807Single（单精度浮点数）!4个字节负数：-3.402 823E+38到-1.401 298E-45；正数：1.401 298E-45到3.402 823E+38Double（双精度浮点数）#8个字节负数：-1.797 693 134 862 31E308到-4.940 656 458 412 47E-324；正数：4.940 656 458 412 47E-324到1.797 693 134 862 31E308Decimal（数值型）16个字节0 到 79 228 162 514 264 337 593 543 950 335不带小数点的数；0 到 7.922 816 251 426 433 759 354 395 033 5带28位小数的数表6-2 其他数据类型数据类型类型符存储空间范围Boolean（逻辑型）2个字节True或FalseChar（字符型）2个字节一个字符Date（日期型）8个字节0001年1月1日 0:00:00到9999年12月31日 11:59:59Object（对象型）4个字节任何类型数据都可存储在该类型的变量中String（字符串）$实际可用内存空间0到大约20亿个字符说明：1）Date类型用于表示日期或时间；常量需要用#括起来，格式为：#mm/dd/yyyy#，如：#02/15/2007#。2）Char类型只能接受一个用双引号括起来的字符。String类型表示字符串。字符串是用双引号括起来的字符序列，如ABC。String类型的缺省规定为可变长度的字符串，即在对字符串操作时，其长度可增可减。2 2常量和变量常量和变量(1)(1)常量和变量的命名规则常量和变量的命名规则1 1）必必须须以以英英文文字字母母（或或汉汉字字）开开头头，后后跟跟字字母母、汉汉字字、数数字字或或下下划划线线。字母大小写意义相同。字母大小写意义相同。2 2）常量名、变量名的长度不能超过）常量名、变量名的长度不能超过255255个字符。个字符。3 3）在同一个有效范围内，每个常量或变量的名称必须唯一。）在同一个有效范围内，每个常量或变量的名称必须唯一。4 4）不能使用）不能使用VB.NETVB.NET关键字作为常量和变量的名字。关键字作为常量和变量的名字。例如：例如：Dim x As DoubleDim x As Double 声明双精度型变量声明双精度型变量x x Dim m%,v Dim m%,v 声明整型变量声明整型变量m m和对象型变量和对象型变量v v，如缺省类型则为，如缺省类型则为ObjectObject Dim f As Boolean=False Dim f As Boolean=False 声明逻辑型变量声明逻辑型变量f f，并设置初值，并设置初值False False(2)(2)变量声明变量声明 基本语法格式：基本语法格式：Dim Dim 变量名变量名 类型说明符类型说明符|As|As 类型类型 （3 3）常量）常量 VB.NETVB.NET中常量有两种形式：直接常量和符号常量。中常量有两种形式：直接常量和符号常量。例如例如:12:12、-1.23-1.23、a a为直接常量。为直接常量。符号常量符号常量 :用一个标识符来代表一个数值或字符串。用一个标识符来代表一个数值或字符串。定义符号常量的格式如下定义符号常量的格式如下:Const Const常量名常量名AsAs数据类型数据类型=表达式表达式例如：例如：Const UserName As String=John Const UserName As String=John 符号常量符号常量UserNameUserName是字符串常量是字符串常量Const Max As Integer=100 Const Max As Integer=100 符号常量符号常量MaxMax是整型常量是整型常量 6.2.2 6.2.2 运算符和表达式运算符和表达式 1 1运算符运算符 （1 1）算术运算符）算术运算符 （乘方运算符）、（乘方运算符）、*（乘法运算符）、（乘法运算符）、/（除法运算符）、（除法运算符）、（整除运（整除运算符）、算符）、ModMod（模运算符）、（模运算符）、+（加法运算符或正值运算符）、（加法运算符或正值运算符）、-（减法（减法运算符或负值运算符）、运算符或负值运算符）、&（连接运算符）（连接运算符）例如：例如：196.7=2 19 Mod 6=1 19 Mod 196.7=2 19 Mod 6=1 19 Mod 6=1 23.67 Mod 7.88=06=1 23.67 Mod 7.88=0“abcdabcd”+“efgefg“=”abcdefgabcdefg“”123123”+123=246+123=246123&abcd123&abcd“=123abcd=123abcd “abcabc”+123(+123(不允许不允许）（2 2）复合赋值运算符）复合赋值运算符在在赋赋值值运运算算符符（=）之之前前加加上上一一些些算算术术运运算算符符，可可以以构构成成复合的赋值运算符。复合的赋值运算符。例如：例如：a+=3 a+=3 等价于等价于a=a+3 a=a+3 “+=+=”称为称为“自反加赋值运算符自反加赋值运算符”x*=y+8 x*=y+8 等价于等价于x=x*(y+8)x=x*(y+8)“*=*=”称为称为“自反乘赋值运算符自反乘赋值运算符”m=2 m=2 等价于等价于m=m2 m=m2 “=”称为称为“自反指数赋值运算符自反指数赋值运算符”VB.NETVB.NET中还可使用以下的复合赋值运算符：中还可使用以下的复合赋值运算符：-=-=（自反减赋值运算符）（自反减赋值运算符）/=/=（自反浮点除赋值运算符）（自反浮点除赋值运算符）=（自反整除赋值运算符）（自反整除赋值运算符）&=(&=(自反字符串连接赋值运算符自反字符串连接赋值运算符)（3 3）关系运算符）关系运算符 （大大于于运运算算符符）、（小小于于运运算算符符）、=（等等于于运运算算符符）、（不不等等于于运运算算符符）=（大大于于等等于于运运算算符符）、=b Then If a b Then 如果如果abab，交，交换换a a和和b b的的值值 t=a t=a a=b a=b b=t b=t End If End If MsgBox(MsgBox(较较小数小数&a&a&较较大数大数&b,&b,从小到大排序从小到大排序)报报告告结结果果End SubEnd Sub图6-13 两数排序结果或或:If a b Then t=a:If a b Then t=a：a=ba=b：b=tb=t 2 2）IfIf语语句格式句格式2 2 If If 条件条件 Then Then 语语句句1 1 Else Else 语语句句2 2 EndIf EndIf或：或：If If 条件条件 Then Then 语语句句1 Else 1 Else 语语句句2 2图6-14双分支语句的流程图条件表达式语句块1语句块2TrueFalse【例例】计计算分段函数的算分段函数的值值程序程序1:1:Dim a,x,y As SingleDim a,x,y As Singlea=Val(InputBox(a=Val(InputBox(请输请输入入a a 的的值值,计计算分段函数算分段函数)x=Val(InputBox(x=Val(InputBox(请输请输入入x x 的的值值,计计算分段函数算分段函数)If x=-a Then y=0If x -a)And(x -a)And(x a/2 Then y=xIf x a/2 Then y=xMsgBox(a=&a&x=&x&y=&y)MsgBox(a=&a&x=&x&y=&y)程序程序2Ifx-a)And(xa/2Theny=xEndIfMsgBox(a=&a&x=&x&y=&y)3 3）多分支）多分支IfIf语语句句If If 条件表达式条件表达式1 Then 1 Then 语语句句块块1 1ElseIf ElseIf 条件表达式条件表达式2 Then 2 Then 语语句句块块2 2 Else Else 语语句句块块n n图6-15多分支语句的流程图不管有几个分支不管有几个分支,当某条件当某条件满满足足,执执行相行相应应的的语语句句块块,其余分支不再其余分支不再执执行行。4 4）IfIf语语句的嵌套句的嵌套IfIf语语句的嵌套是指句的嵌套是指IfIf语语句中的句中的语语句句块块又包含又包含IfIf语语句。句。语语句格式如下；句格式如下；If If 条件表达式条件表达式1 Then 1 Then If If 条件表达式条件表达式11 Then 11 Then 语语句句块块1 1 EndIf EndIfEndIfEndIf（2 2）Select CaseSelect Case语句语句 Select CaseSelect Case语句也称为情况语句，它可以用来实现多分支语句也称为情况语句，它可以用来实现多分支选择结构程序。选择结构程序。语句格式：语句格式：Select Case Select Case 表达式表达式 Case Case 表达式列表表达式列表1 1 语语句句块块1 1 Case Case 表达式列表表达式列表2 2 语语句句块块2 2 Case Else Case Else 语语句句块块n nEnd SelectEnd SelectCase子句的表达式可以由以下几种形式构成：子句的表达式可以由以下几种形式构成：表达式表达式1 to 1 to 表达式表达式2 2：Case 1 To 5 Case 1 To 5 表达式表达式值值在在1 1到到5 5范范围围内。内。IsIs运算表达式：运算表达式：Case Is5 Case Is5 表达式的表达式的值值大于大于5 5的的值值。枚枚举举常量：常量：Case Case“q q”,“Q Q”表达式的表达式的值值等于等于”q q”或或”Q Q”。多种表达混合：多种表达混合：Case 1 To 5,IsMin Case 1 To 5,IsMin 表达式的表达式的值值在在1 1到到5 5或大于或大于MinMin的的值值。测试表达式可以是变量、函数、数值表达式、字符串表达式或逻辑表达式。Case子句中表达式列表的数据类型应当与表达式的数据类型一致。【例例6-36-3】从键盘输入一个字符，判断它是大写字母、小写从键盘输入一个字符，判断它是大写字母、小写字母、数字字符还是其他字符。字母、数字字符还是其他字符。本例使用标签本例使用标签Label1Label1报报告结果，首先在窗体上添加一个告结果，首先在窗体上添加一个Label1Label1。Private Sub Form1_Click(Private Sub Form1_Click()Handles MyBase.Click)Handles MyBase.Click Dim ch As CharDim ch As Charch=InputBox(ch=InputBox(请输入字符请输入字符,字符判断字符判断,200,200),200,200)Select Case chSelect Case ch Case A To Z Case A To Z Label1.Text=ch+Label1.Text=ch+是大写字母是大写字母 Case a To z Case a To z Label1.Text=ch+Label1.Text=ch+是小写字母是小写字母 Case 0 To 9 Case 0 To 9 Label1.Text=ch+Label1.Text=ch+是数字字符是数字字符 Case Else Case Else Label1.Text=ch+Label1.Text=ch+是其他字符是其他字符“End SelectEnd SelectEnd SubEnd Sub 3 3循循环结环结构构VB.NETVB.NET提供了两种提供了两种类类型的循型的循环环控制：控制：计计数循数循环环控制与条控制与条件循件循环环控制。控制。For I=1 To 10 Step 1For I=1 To 10 Step 1 TextBox1.Text=TextBox1.Text&I&TextBox1.Text=TextBox1.Text&I&Next INext I一般用于循环次数已知的情况（1 1）计数循环控制语句（）计数循环控制语句（For NextFor Next语句）语句）语法格式：语法格式：For For 循循环变环变量量 =初初值值To To 终值终值 Step Step 步步长值长值 语语句句块块 Exit ForExit For 语语句句块块Next Next 循循环变环变量量 0初值终值=1时,可省略终值=0死循环步长循环次数图6-17 For循环语句流程图说说明：明：(1)1)循环变量必须是数值型变量。循环变量必须是数值型变量。(2)(2)初初值值、终终值值、步步长长值值可可以以是是表表达达式式。类类型型必必须须与与循循环环变量的类型相同。变量的类型相同。(3)(3)步步长长值值可可以以是是正正数数（初初值值小小于于终终值值）或或负负数数（初初值值大大于终值）。缺省值为于终值）。缺省值为1 1。(4)Exit For(4)Exit For：退出循环，执行：退出循环，执行NextNext语句的后继语句。语句的后继语句。(5)For(5)For与与NextNext中间的语句称为循环体，可以是多个语句中间的语句称为循环体，可以是多个语句。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 As 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 smin Then smin=s:nummin=num 保留最低分及对应学号Next numave=sum/(num-1)计算平均成绩,注意学生总数为num-1MsgBox(最高分=&smax&学号=&nummax&vbCrLf&_ vbCrLf是回车换行符最低分=&smin&学号=&nummin&vbCrLf&_ vbCrLf=Chr(13)+Chr(10)总分=&sum&平均分=&ave)End Sub【例例6-4】学生分数统计。通过键盘输入学生分数统计。通过键盘输入10个学生某一门课程的成绩，如个学生某一门课程的成绩，如69，70，80，99，78。每个数据按前后次序对应学生的学号，即：第一个数据是。每个数据按前后次序对应学生的学号，即：第一个数据是1号号学生的成绩，第二个数据是学生的成绩，第二个数据是2号学生的成绩，号学生的成绩，最后一个数据是最后一个数据是10号学生的成绩。号学生的成绩。试编写一程序统计该课程的总分、平均分、最高分及对应的学号、最低分及对应的试编写一程序统计该课程的总分、平均分、最高分及对应的学号、最低分及对应的学号。学号。（2 2）条件循环控制语句）条件循环控制语句1.Do WhileLoop和Do UntilLoop语句DoWhileLoopDoUntilLoop语句格式DoWhile条件条件语语句句块块ExitDo语语句句块块LoopDoUntil条件条件语语句句块块ExitDo语语句句块块Loop执行流程举例（密码检验）PW=InputBox(输入密码)DoWhilePWABCD“PW=InputBox(输入密码)LoopPW=InputBox(输入密码)DoUntilPW=ABCD“PW=InputBox(输入密码)Loop（2 2）条件循环控制语句）条件循环控制语句2）DoLoop While和DoLoop Until语句DoWhileLoopDoUntilLoop语句格式Do 语句块语句块 Exit Do 语句块语句块Loop While条件条件 Do 语句块语句块 Exit Do 语句块语句块Loop Until条件条件 执行流程举例（密码检验）DoPW=InputBox(输入密码)LoopWhilePWABCDDoPW=InputBox(输入密码)LoopUntilPW=ABCD【例例6-56-5】编写一个译码程序，将一个由大写字母组成的英语句子译成数字编写一个译码程序，将一个由大写字母组成的英语句子译成数字代码。译码规则是：以数字代码。译码规则是：以数字1 1代替字母代替字母A A、数字、数字2 2代替字母代替字母B B、数字、数字2626代替字母代替字母Z Z，如遇空格则输出，如遇空格则输出*号。英语句子以句号结束。号。英语句子以句号结束。Private Sub Form1_Click(Private Sub Form1_Click()Handles MyBase.Click)Handles MyBase.Click Dim Code As Integer,Letter As String Dim Code As Integer,Letter As String TextBox1.Text=TextBox1.Text=Letter=InputBox(Letter=InputBox(请输入一个大写字母请输入一个大写字母(输入小数点结束程序输入小数点结束程序)：)Do While Letter .Do While Letter .If Letter=Then If Letter=Then TextBox1.Text=TextBox1.Text&*&Space(3)TextBox1.Text=TextBox1.Text&*&Space(3)Space(3)Space(3)是是3 3个空格字符串个空格字符串 ElseElse Code=Asc(Letter)-Asc(A)+1 Code=Asc(Letter)-Asc(A)+1 TextBox1.Text=TextBox1.Text&Code&Space(3)TextBox1.Text=TextBox1.Text&Code&Space(3)End If End If Letter=InputBox(Letter=InputBox(请输入一个大写字母请输入一个大写字母(输入小数点结束程序输入小数点结束程序)：)Loop Loop TextBox1.Text=TextBox1.Text&.TextBox1.Text=TextBox1.Text&.End Sub End Sub 译码算法如下：译码算法如下：Code=ASC(Letter)-ASC(A)+1Code=ASC(Letter)-ASC(A)+1 （3 3）循环嵌套）循环嵌套 所谓循环嵌套就是在一个循环结构的循环体内包含另一所谓循环嵌套就是在一个循环结构的循环体内包含另一个或多个循环结构，也称为多重循环。个或多个循环结构，也称为多重循环。对于循环的嵌套，要注意以下事项：对于循环的嵌套，要注意以下事项：1)1)内循环变量与外循环变量不能同名；内循环变量与外循环变量不能同名；2)2)外循环必须完全包含内循环，不能交叉；外循环必须完全包含内循环，不能交叉；3)3)不能从循环体外转向循环体内，也不能从外循环转向内循不能从循环体外转向循环体内，也不能从外循环转向内循环，环，反之则可以。反之则可以。【例例6-6】编写一个程序输出九九乘法表。该程序窗体界面有编写一个程序输出九九乘法表。该程序窗体界面有1个命令个命令按钮按钮Button1和和1个文本框个文本框TextBox1，需将，需将TextBox1的的Multiline属性设属性设置为置为TrueTrue，并拖至足够大。，并拖至足够大。For m=1 To 9For m=1 To 9 For n=1 To 9 For n=1 To 9 k=m*n k=m*n If k=10 Then If k=10 Then TextBox1.Text=TextBox1.Text&k&TextBox1.Text=TextBox1.Text&k&Else Else TextBox1.Text=TextBox1.Text&k&TextBox1.Text=TextBox1.Text&k&EndIf EndIf Next n Next n TextBox1.Text=TextBox1.Text&vbCrLf TextBox1.Text=TextBox1.Text&vbCrLf Next m Next m外重循环执行一次，内重循环执行一遍。6.2.6 6.2.6 数组数组 1 1数组的定义数组的定义 一维数组定义格式：一维数组定义格式：Dim Dim 数组名（下标上界）数组名（下标上界）As As 类型名称类型名称注意：下标下界为注意：下标下界为0 0，一维数组的大小为上界，一维数组的大小为上界+1+1。无数据类型表示无数据类型表示ObjectObject类。类。例如：例如：Dim A(10)As IntegerDim A(10)As Integer 定定义义了了一一个个一一维维数数组组，该该数数组组的的名名字字为为A A，类类型型为为Integer(Integer(整整型型)，该该数数组由组由1111个数组元素组成，即个数组元素组成，即A(0)-A(10)A(0)-A(10)）二维数组定义格式：二维数组定义格式：Dim Dim 数组名（第一维下标上界，第二维下标上界）数组名（第一维下标上界，第二维下标上界）As As 类型名称类型名称例如：例如：Dim Page(1,2)As IntegerDim Page(1,2)As Integer定定义义了了一一个个二二维维数数组组，该该数数组组的的名名字字为为PagePage，类类型型为为Integer(Integer(整整型型)，共共6 6个数组元素，分别是：个数组元素，分别是：Page(0,0)Page(0,0)、Page(0,1)Page(0,1)、Page(0,2)Page(0,2)Page(1,0)Page(1,0)、Page(1,1)Page(1,1)、Page(1,2)Page(1,2)2 2数组的初始化和引用数组的初始化和引用 （1 1）数组的初始化）数组的初始化 1)1)一维数组元素初始化格式如下：一维数组元素初始化格式如下：Dim Dim 数组名数组名()As()As 类型名称类型名称=值值1,1,值值2,2,值值nn注意注意:VB.NETVB.NET规定不允许对指定上界的数组进行初始化，所以圆括号中必规定不允许对指定上界的数组进行初始化，所以圆括号中必须为空，根据实际初值的个数确定数组的上界。须为空，根据实际初值的个数确定数组的上界。例如：例如：Dim Season()As String=春天春天,夏天夏天,秋天秋天,冬天冬天定义了一个字符串数组定义了一个字符串数组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)=5 AI(1,2)=6 （2）数组元素的引用）数组元素的引用 只能逐个引用数组元素而不能一次引用整个数组，数组元素只能逐个引用数组元素而不能一次引用整个数组，数组元素的表示形式如下。的表示形式如下。数组名数组名(下标下标1,下标下标2)其中，下标可以是整型常量或整型表达式，例如其中，下标可以是整型常量或整型表达式，例如:A(5)、Season(2)、AI(1,1)、AI(1+1,2)。数组元素可以出现在表达式中，也可以被赋值。数组元素可以出现在表达式中，也可以被赋值。【例例6-76-7】设计一个应用程序，使用数组对新进榜歌曲按输入顺序设计一个应用程序，使用数组对新进榜歌曲按输入顺序逆序排列并显示结果。该程序窗体界面有逆序排列并显示结果。该程序窗体界面有2 2个标签个标签Label1Label1和和Label2Label2、1 1个命令按钮个命令按钮Button1 Button1。Private Sub Button1_Click()Handles Button1.Click Const n=6 声明常量,歌曲数目为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)图6-19程序运行结果 Next i 采用首尾元素对换完成逆序排列 For i=0 To(n-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 【例例6-86-8】编写程序编写程序，要求能输入要求能输入4 4名学生的英语、数学、政治、物名学生的英语、数学、政治、物理四门课的考试成绩。计算并输出每名学生的平均分。理四门课的考试成绩。计算并输出每名学生的平均分。Private Sub Form1_Click()Handles MyBase.Click Const StuNum=4,CourseNum=4 Dim 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&学号&英语 _图6-20 程序运行结果&数学&政治&物理&平均&vbCrLf For i=0 To StuNum-1 k=0 TextBox1.Text=TextBox1.Text&i&For j=0 To CourseNum-1 输入一个人各门课成绩,并计算和，输出成绩 CurrentGrade=请输入&i+1&号学生第 _&j+1&门课程的成绩 StuGrade(i,j)=InputBox(CurrentGrade)k=k+StuGrade