第二章(2)程序结构

1、第二章第二章 Visual Basic.NET语法基础语法基础 本章主要介绍以下内容：本章主要介绍以下内容：l l Visual Basic.NET数据类型数据类型 l l 变量与常量变量与常量 l l运算符与表达式运算符与表达式 l l三种基本语法结构三种基本语法结构 l l数组数组 l l 过程与函数过程与函数l l 程序调试程序调试 l l 作业作业 InputBox函数函数在一对话框中显示提示，等待用户输入文字或单在一对话框中显示提示，等待用户输入文字或单击按钮，然后返回包含文本框内容的字符串。击按钮，然后返回包含文本框内容的字符串。PublicFunctionInputBox(ByV

2、alPromptAsString,)AsString参数参数Prompt必选项。以消息形式显示在对话框中的必选项。以消息形式显示在对话框中的String表达式。表达式。例：例：Dim N01 As Integer Dim N02 As Integer输入数据N01 = InputBox(请输入第一个数：)N02 = InputBox(请输入第二个数：) MsgBox函数函数在对话框中显示消息，等待用户单击按钮，然后在对话框中显示消息，等待用户单击按钮，然后返回一个整数，指示用户单击了哪个按钮。返回一个整数，指示用户单击了哪个按钮。PublicFunctionMsgBox(ByValPrompt

3、AsObject)AsMsgBoxResult参数参数Prompt必选项。以消息形式显示在对话框中的必选项。以消息形式显示在对话框中的String表达式。表达式。Prompt的最大长度大约为的最大长度大约为1024个字符，具体取决于所用字符个字符，具体取决于所用字符的宽度。如果的宽度。如果Prompt中包含多个行，则可在各行之间用回车中包含多个行，则可在各行之间用回车符符(Chr(13)、换行符换行符(Chr(10)或回车换行符的组合或回车换行符的组合(Chr(13)&Chr(10)分隔各行分隔各行例：例：MsgBox(“你好！”)2.4 三种基本语法结构三种基本语法结构 VB.NET

4、 VB.NET 应用程序的执行是由应用程序的执行是由事件驱事件驱动动的，当用户触发某一事件时，执行相的，当用户触发某一事件时，执行相应的事件过程。应的事件过程。 这些事件过程之间并没有特定的执这些事件过程之间并没有特定的执行次序。但在每一个事件过程内部，是行次序。但在每一个事件过程内部，是有一定的执行控制流程的，这就是通常有一定的执行控制流程的，这就是通常所说的三种基本结构：所说的三种基本结构：顺序结构、分支顺序结构、分支结构、循环结构结构、循环结构 一、一、顺序结构顺序结构顺序结构是最简单的一种结构，该结构按语句排列的先后顺序，顺序结构是最简单的一种结构，该结构按语句排列的先后顺序，执行完一

5、条语句后依次执行下一条语句。执行完一条语句后依次执行下一条语句。【案例【案例2-3】 顺序结构编程举例。从键盘输入顺序结构编程举例。从键盘输入2个数，使用信息个数，使用信息框显示其平均值。框显示其平均值。Private Sub Form1_Click(Private Sub Form1_Click(ByValByVal sender As Object, sender As Object, ByValByVal e e As _ System.As _ System.EventArgsEventArgs) Handles ) Handles MyBaseMyBase.Click.Click 声

6、明变量声明变量 Dim N01 As IntegerDim N01 As Integer Dim N02 As Integer Dim N02 As Integer Dim AVER As Integer Dim AVER As Integer 输入数据输入数据 N01 = N01 = InputBoxInputBox(请输入第一个数：请输入第一个数：) N02 = N02 = InputBoxInputBox(请输入第二个数：请输入第二个数：) 处理数据处理数据 AVER = (N01 + N02) / 2AVER = (N01 + N02) / 2 输出数据输出数据 MsgBoxMsgBo

7、x(2(2个数的平均值为个数的平均值为: & : & AVER)AVER)End SubEnd Sub VBNET编程代码的书写规则编程代码的书写规则 每种编程语言都有自己的书写规则，每种编程语言都有自己的书写规则， VB.NET编程代码的书编程代码的书写规则如下：写规则如下：l lVisual Basic.NET代码不区分字母的大小写，系统可对代码不区分字母的大小写，系统可对用户程序代码进行用户程序代码进行自动自动转换；转换；l l在同一行上可以书写多个语句，语句间用在同一行上可以书写多个语句，语句间用冒号冒号 “：”分隔；分隔；l l单行语句可分若干行书写，在本行后加入单行

8、语句可分若干行书写，在本行后加入续行符（空格和续行符（空格和下划线下划线“_”），但需要注意的是在续行符后不能加注释语句；，但需要注意的是在续行符后不能加注释语句；l l一行最多允许书写不超过一行最多允许书写不超过255个字符；个字符；l lVisual Basic.NET 程序中有两种注释方法：一种是以程序中有两种注释方法：一种是以 Rem 关键字关键字开头，并且开头，并且Rem关键字与注释内容之间要加一个空关键字与注释内容之间要加一个空格符；另一种是在注释内容前添加格符；另一种是在注释内容前添加“ ”符号。注释可以是单独符号。注释可以是单独一行，也可以添加在被注释语句的后面；一行，也可以添

9、加在被注释语句的后面； 二、分支结构二、分支结构 使用分支结构可以控制程序的流程，也使用分支结构可以控制程序的流程，也可以编写进行判断和重复操作的可以编写进行判断和重复操作的VisualBasic.NET 代码。在代码。在 VisualBasic.NET 中，中，分支结构有以下两种语句：分支结构有以下两种语句：l lIFThenEndif 语句语句l lSelectCase语句语句If语句语句1、IfThen语句语句(单分支结构单分支结构)IfThen语句块语句块EndIf表达式 语句块TF图1-3-7 单分支结构2 2、IfIfThenThenElseElse语句语句( (双分支结构双分支结

10、构) ) If If ThenThen 1 ElseElse 2 End IfEnd If表达式F图1-3-9 双分支结构 语句块1T 语句块23. 3. IfIfThenThenElseIfElseIf语句语句( (多分支结构多分支结构) ) If If 1 ThenThen 1 ElseIfElseIf 2ThenThen 2 Else Else 语句块语句块 n+1 n+1 End If End If 不管有几个分支不管有几个分支, ,依次判断，当某条件满足，执行相依次判断，当某条件满足，执行相应的语句块，其余分支不再执行；若条件都不满足，且应的语句块，其余分支不再执行；若条件都不满足，

11、且有有ElseElse子句，则执行该语句块，否则什么也不执行。子句，则执行该语句块，否则什么也不执行。 ElseIfElseIf不能写成不能写成 Else IfElse If。表达式1表达式2表 达 式nTFTF图 1-3-10 多分支结构 语句块 n语 句 块n+1 语句块 2 语句块 1FT例：例： 输入一学生成绩，评定其等级。方法是：输入一学生成绩，评定其等级。方法是：9010090100分为分为“优秀优秀”，80898089分为分为“良好良好”，70797079分为分为“中等中等”，60696069分为分为“及格及格”，6060分以下为分以下为“不合格不合格”Ifx=90thenMsg

12、Box(“优秀优秀”)ElseIfx=80ThenMsgBox(“良好良好”)ElseIfx=70ThenMsgBox(“中等中等”)ElseIfx=60ThenMsgBox(“及格及格”)ElseMsgBox(“不及格不及格”)EndIft【案例【案例2-4】IF语句举例。输入一个数，判断其为偶数还是语句举例。输入一个数，判断其为偶数还是奇数。奇数。PrivateSubForm1_Click(ByValsenderAsObject,ByValeAsSystem.EventArgs)HandlesMyBase.ClickDimXAsIntegerDimYAsStringX=InputBox(请

13、输入请输入X X的值的值:):) IfXMod2=0ThenY= 是偶数是偶数! ! ElseY=是奇数是奇数! MsgBox( 您输入您输入X X的值为的值为: :&X&Space(3)&Y) )EndSub 【案例【案例2-5】 块块IF语句举例。输入一个数，判断其为偶数还是语句举例。输入一个数，判断其为偶数还是奇数；若是奇数，则进一步判断其能否被奇数；若是奇数，则进一步判断其能否被3或或5整除。整除。PrivateSubForm1_Click(ByValsenderAsObject,ByValeAs_System.EventArgs)HandlesMyBase.C

14、lickDimXAsIntegerDimYAsStringX=InputBox(请输入请输入X的值的值:)IfXMod2=0ThenY=是偶数！是偶数！ElseIfXMod3=0ThenY=是奇数！，且能被是奇数！，且能被3整除！整除！IfXMod5=0ThenY=是奇数！，且能被是奇数！，且能被3和和5整除！整除！EndIfElseY=是奇数！，且不能被是奇数！，且不能被3和和5整除！整除！EndIfMsgBox(您输入您输入X的值为的值为:&X&Space(3)&Y)EndSub5、SelectCase语句（条件分支）语句（条件分支）多分支选择结构的特点是：从多个选

15、择结构中，选多分支选择结构的特点是：从多个选择结构中，选择第一个条件为真的路线作为执行的路线。语法格择第一个条件为真的路线作为执行的路线。语法格式为：式为： SelectCase Case 表达式列表表达式列表1 语句组语句组1 Case表达式列表表达式列表2 语句组语句组2 CaseElse 语句组语句组n+1 EndSelectSelectCaseCase情况情况1Case情况情况2Case情况情况n执行语执行语句组句组1执行语执行语句组句组2执行语执行语句组句组n执行语执行语句组句组n+1CaseElseEndSelect多分支选择结构流程图多分支选择结构流程图形式形式示例示例说明说明表

16、达式表达式Case50*b数值和字符串表达式数值和字符串表达式表达式表达式To表达式表达式Case1To10Case“a”To“m”用来指定用来指定1个数值范围。个数值范围。Is关系表达式关系表达式CaseIs200CaseIs=5,8,20可以配合比较运算符可以配合比较运算符来指定来指定1个数值范围。个数值范围。这里这里Is是关键字。是关键字。Case表达式列表的形式表达式列表的形式下列下列Case子句的写法是正确的：子句的写法是正确的：例：例：DimxASINTEGER=6SelectCasexCase1 Case2,3,8 Case1To5 Case1,6To9 Case1To3,6To

17、8 CaseIs20EndSelectt例：例：DIMXASINTEGER=100SelectCasexCase90to100CONSOLE.WRITELINE(优秀优秀)Case80to89CONSOLE.WRITELINE(良好良好)Case70to79CONSOLE.WRITELINE(中等中等)Case60to69CONSOLE.WRITELINE(及格及格)CaseElseCONSOLE.WRITELINE(不及格不及格)EndSelecttSelectCase 后不能出现多个变量后不能出现多个变量Case子句后不能出现变量子句后不能出现变量【案例【案例2-6】SelectCase语

18、句举例。编程，使程序完成以下功能：根据输入的语句举例。编程，使程序完成以下功能：根据输入的X X整数的整数的值，在窗体上给出相应提示。值，在窗体上给出相应提示。当当 x50时时 显示显示X50当当 50=x=100时时 显示显示50X102时时 显示显示“x102” PrivateSubForm1_Click(ByValsenderAsObject,ByValeAs_System.EventArgs)HandlesMyBase.ClickDimxAsIntegerDimYAsString x=InputBox(“请输入请输入x x的值的值:”) SelectCasexCaseIs50Y=“X1

19、02EndSelectMsgBox(Y)EndSub三、三、循环结构循环结构对某一段程序进行重复执行的程序结构，这种被重对某一段程序进行重复执行的程序结构，这种被重复执行的程序结构叫循环程序结构；被重复执行的程序复执行的程序结构叫循环程序结构；被重复执行的程序段叫循环体。段叫循环体。 当然，重复是有条件的，即在满足一定条件下才执当然，重复是有条件的，即在满足一定条件下才执行循环体，或者满足一定条件就不再循环。行循环体，或者满足一定条件就不再循环。 循环控制结构的功能就是决定在什么条件下进入或循环控制结构的功能就是决定在什么条件下进入或退出循环。退出循环。VisualBasic.NET中的循环结

20、构分为三种：计数循环中的循环结构分为三种：计数循环（For-Next循环）、当循环（循环）、当循环（While-End WhileWhile-End While循环）和循环）和Do循环（循环（Do-Loop循环）循环）1 1、FOR-NEXT循环控制结构（计数循环）循环控制结构（计数循环）For循环也称为循环也称为For.Next循环或计数循环。循环或计数循环。For循环适用于循环适用于已知循环次数已知循环次数时。时。格式：格式：For 循环变量循环变量= =初值初值 To 终值终值 Step步长步长 循环体循环体 ExitFor Next 循环变量循环变量 例：例：DimIAsInteger

21、ForI=1to10Step2TextBox1.Text=I.ToString()Next输出结果：9例：例：vbCrLf：字符串常量，其值为包含回车符和换字符串常量，其值为包含回车符和换行符的字符串行符的字符串DimIAsIntegerForI=1to10Step2TextBox1.Text+=I.ToString()+vbCrlfNext输出结果：13579例：编写一个计算正整数的阶乘的程序。例：编写一个计算正整数的阶乘的程序。K!=(k-1)!kDimiAsIntegerDimresultAsDouble=1Fori=1To15result=result*iNextTextBox1.Te

22、xt=i.ToString()+!=+result.ToString()15!=1301674368000【案例【案例2-7】FOR-NEXT循环控制结构举例。循环控制结构举例。运行下列程序，并分析结果运行下列程序，并分析结果IMPORTSSYSTEMCLASSMAINPublicSharedSubMAIN()DimIAsIntegerDimJAsIntegerForI=1To3Step1大循环大循环IFI=3THENEXITFOR退出循环退出循环ENDIFConsole.WriteLine(第第&I&次大循环次大循环)ForJ=1To2Step1小循环小循环Console.W

23、riteLine(第第&J&次小循环次小循环)NextJNEXTIConsole.WriteLine(退出循环时退出循环时,I=&I)EndSubEndClass 2、While-EndWhile循环循环( (当循环控制结构当循环控制结构) )While-EndWhile循环适用于在给定的条件为循环适用于在给定的条件为True时，时，重复一语句序列重复一语句序列( (循环体循环体) )的执行。的执行。格式：格式：While条件条件语句块语句块EndWhile例例计算计算1-1001-100的整数和（的整数和（1+2+3+1+2+3+100+100）While i=100

24、While i= 0.0001 While MATH.Abs(t) = 0.0001 PI + = t PI + = t 在在VB.NETVB.NET中中,PI + = tPI + = t等同于等同于VB6VB6中的中的 PI=PI+ t PI=PI+ t n += 2 n += 2 第第n n项的分母是第项的分母是第n-1n-1项的分母加上项的分母加上2 2 s = -s s = -s 改变符号改变符号 t = s / nt = s / n END While END While PI = PI PI = PI * * 4 4 当用当用+连接字符串时连接字符串时, ,使用使用tostringtostring方法将方法将PIPI的类型转为字符型的类型转为字符型 Console.Console.WriteLineWriteLine(使用近似公式计算的使用近似公式计算的 + PI. + PI.tostringtostring)