第2章VBNET编程基础.ppt

《第2章VBNET编程基础.ppt》由会员分享，可在线阅读，更多相关《第2章VBNET编程基础.ppt（92页珍藏版）》请在三一办公上搜索。

1、VB.NET程序设计第2章 VB.NET编程基础,东北大学软件学院2013-2014第一学期,主要内容,2.1 数据类型2.2 常量与变量2.3 运算符2.4 数组2.5 基本语法和语句2.6 过程2.7 字符串操作,2.1数据类型,字符型（Char）Nothing（默认值）字符串型（String）Nothing（默认值）,0,65635,2字节,0,65635,2字节,字符个数,Dim a As Chara=“b”a=ChrW（98）,Dim a As Stringa=“b”a=“”,试一试：假设有A和B两个变量，分别为字符型和字符串型的变量，则通过如下的赋值语句，其最终结果是什么？,A=“

2、Hello”B=“Hello”,A=“H”B=“Hello”,字节型（Byte）,短整型（Short）,整型（Integer）,长整型（Long）,单精度型（Single）,双精度型（Double）,小数型（Decimal）,1个字节。0（默认值）255。,2个字节。-3276832767。0（默认值）。,4个字节。-21474836482147483647。0（默认值）。,8个字节。0（默认值）。,4个字节。-3.4028231038-1.40129810-45（负数）1.40129810-453.4028231038（正数）0.0（默认值）。,8个字节。0.0（默认值）。,16个字节。0D

3、（默认值）。,判定下列变量的赋值是否正确？A=20.1（A为单精度型变量）B=3.5E39（B为单精度型变量）C=256（C为字节型变量）D=256（D为整型变量）,布尔型（Boolean）Nothing（默认值）日期型（Date）8个字节。范围：公元100年1月1日公元9999年12月31日。#12：00：00AM#（默认值）。,2字节,True（-1或非0）,False（0）,日期：#月/日/年#或#月-日-年#,时间：#时：分：秒 AM#或#时：分：秒 PM#,日期时间：#月/日/年 时：分：秒 AM#或#月/日/年时：分：秒 PM#月-日-年 时：分：秒 AM#或#月-日-年时：分：秒

4、 PM#,对象型（Object）4字节+数据类型所占空间。可以保存任何数据类型。Nothing（默认值）,Dim x As IntegerDim yDim z As Long,Y为对象型变量,结构Private|PublicStructure 结构名 Dim 字段名1 As 数据类型1 Dim 字段名2 As 数据类型2 Dim 字段名n As 数据类型nEnd Structure,枚举Private|PublicEnum 枚举类型名 As 数据类型 枚举成员名1=常量表达式1 枚举成员名2=常量表达式1 枚举成员名n=常量表达式nEnd Enum,定义一个包含学号、姓名和性别字段的结构。,S

5、tructure Student Dim StuNo As String Dim StuName As String Dim StuSex As StringEnd Structure,Dim Stu As Student Stu.No=“20070001”Stu.Name=“张三”Stu.Sex=“男”,定义一个包含红、绿、蓝三种颜色的枚举。,Enum MyColor Red Red=0 Green Green=1 Blue Blue=2End Enum,Enum MyColor Red=2 Red=2 Green Green=3 Blue=5 Blue=5End Enum,Dim Col

6、As MyColor Col=MyColor.Green,2.2 常量与变量,变量的命名规则,首字符,其他字符,英文字母,汉字,数字,下划线,空格,关键字,其他字符,255个字符,下列哪些变量名是正确的？,1.good luck2.Seven_eleven3.7_eleven4.B&Q5.goodLuck 6.As7._score8._,2,5,7,Dim,变量名,As,数据类型,合法变量名,13种数据类型之一,Dim Age，Years As Integer Dim Score As Single,声明变量,变量的有效范围,决定了Visual Basic.NET程序中变量的可访问性。在有效范

7、围内变量是可用的，有效范围之外，变量是无效的，对该变量的任何使用均会导致程序报错。,Dim y As IntegerFor y=1 To 10 x=10 Dim x As Integer x=20Next yx=30,错误:x 未声明,错误:x已超出有效范围,常量是在程序运行中不变的量Const 常量名 As 类型 表达式常量名的命名规则中，其长度最长为40个字符，其他同变量命名规则。例如：Const PI 3.14159声明了常量PI，代表3.14159，Single型Const MAX As Integer O144声明了常量MAX，代表了八进制数144，整型Const COUNTS 12

8、.34R声明了常量COUNTS，代表12.34，double型,2.3 运算符,算术运算符,字符串连接符,关系运算符,逻辑运算符,-（负号）*，/Mod+、-,&,=、=、Like、Is,赋值运算符,Not And Or Xor AndAlso OrElse,=、+=、-=、*=、/=、=、=,Like：按样式比较字符串,#单个数字？单个字符*任意字符charlist 字符列表中的单个字符!charlist非字符列表中的单个字符,Like：按样式比较字符串,“123”Like“#23”“Hello”Like“H?llo”“Hello”Like“H*”“X”Like“D-Z”“X”Like“!D

9、-Z”,True,False,下列语句执行后x的值应该是多少？,X=7+3*3 2 1 X=10X=2 Mod 2+2*2 2/2 X=3X=(3*9*(3+(9*3/(3)X=324,哪个方程式是正确的？,假设 z=9e7-mA.z=9*(e7-m)B.z=(9*e)7-mC.z=9*(e7)-mD.z=9*e(7-m),下列“&”运用正确的是？,A.“Hello”&“World！”B.213&“213”C.FirstName&LastName(假设两个变量均为字符串变量)D.a&b(假设a，b均为字符串变量),下列表达式的值是多少？,假设a=-1，b=-2，c=3A.a And b And

10、 cB.Not a And Not b And Not c C.a Or b And cD.a Xor b Xor cTrue:A,C,DFalse:B,2.4 数组,数组的逻辑表现形式,a(0),a(1),a(2),a(3),a(4),a(5),下面的说法正确吗？,如果要求数组a前两个元素的和，并把结果赋值给Sum，可以用下面的方法获得：Sum=a（0）+a（1）“数组的第i个元素”与“数组元素i”的含义是相同的。,正 确,错 误,数组的声明,Dim 数组名(下标1,下标2)As 类型,Dim 数组名 As 类型()数组名=New 类型（下标）,Dim 数组名()As 类型数组名=New 类

11、型（下标）,声明具有10个整数元素的数组A,Dim A(9)As IntegerDim A As Integer()A=New Integer(9)Dim A()As Integer=New Integer（9）Dim A As Integer()=New Integer(9),数组的初始化,声明同时初始化Dim Score()As Single=80.1,90,68Dim b(,)As Integer=1,1,2,2先声明后赋值Score(0)=80.1:Score(1)=90:Score(2)=68b(0,0)=1:b(0,1)=1:b(1,0)=2:b(1,1)=2,示例,某商场随机向1

12、0名顾客询问该商场的服务质量，让他们按照15的分级进行评价。其中1表示“非常不满意”，5表示“非常满意”。现要求将10个答案保存在一个整型数组中，并确定每种评价的出现频率。,Dim Responses As Integer()=New Integer()2,3,1,5,4,5,3,4,5,5Dim frequency(5)As IntegerDim s As Strings=等级 频率For answer As Integer=0 To Responses.GetUpperBound(0)frequency(Responses(answer)+=1NextFor answer As Integ

13、er=1 To 5 s&=vbCrLf&answer.ToString&frequency(answer).ToStringNextMessageBox.Show(s),具体代码,如何获取数组的长度？,使用Length方法例如，数组a的长度可用下面的表达式确定a.Length,如何对数组进行排序？,使用Array类的Sort方法Array类位于System名字空间中,Imports System升序排列Array.Sort(数组名),Imports System降序排列Array.Sort(数组名)Array.Reverse(数组名),升序排序,降序排序,二分搜索法：BinarySearch,

14、适用范围大型数组数组已排序主要参数参数1：数组名称参数2：搜索键值返回结果找到：返回该值的索引值未找到：返回一个负值,Array.BinarySearch(a,searchKey),动态数组,ReDim语句可以在执行时修改一个数组所包含的元素数量。但是不能修改数组的维数。也不能修改数组的类型。Preserve关键字可以用来保留数组中的原值，缺省该关键字，数组中的值为该类型的缺省值。,ReDim a(4),ReDim Preserve a(4),ReDim a(2),ReDim Preserve a(2),2.5 基本语法和语句,IfThenElse语句,If（条件）Then Then语句块El

15、se Else语句块End If,If Score60 ThenMessageBox.Show(“合格”)Else MessageBox.Show(“不合格”)End If,IfThenElseIf与Select Case语句,If（条件1）Then Then 语句块1ElseIf（条件2）Then ElseIf 语句块2ElseIf（条件n）Then ElseIf 语句块nElse Else 语句块End If,Select Case 表达式 Case 值1 满足值1的语句块 Case 值2 满足值2的语句块 Case 值n 满足值n的语句块 Case Else 不满足以上值的语句块 End

16、 Select,If Score=90 Then Grade=A ElseIf Score=80 And Score=70 And Score=60 And Score=69 Then Grade=DElse Grade=EEnd If,Select Case Score Case Is=90 Grade=A Case 80 To 89 Grade=B Case 70 To 79 Grade=C Case 60 To 69 Grade=D Case Else Grade=E End Select,练一练,分别使用If.then.else语句和Select Case 结构将一年中的12个月份，分

17、成四个季节输出,ForNext语句,For 计数器=初始值 To 终值Step 步长 语句块 Exit For 语句块 Next 计数器,Sum=0 For i=1 To 10 Sum+=i Next,For EachNext语句,For Each 变量名 In 数组名语句块 Exit For 语句块 Next,For Each number In aIf number=90 Then Messagebox.Show(“找到了！”)End If Next,练一练,分别使用For.Next语句和For Each.Next语句对具有10个数组元素的整形数组进行求和,Do While|UntilLo

18、op与DoLoop While|Until语句,Do While|Until（条件）语句块 Exit Do 语句块Loop,Do 语句块 Exit Do 语句块Loop While|Until（条件）,Do While i=10 Sum+=i i+=1Loop,Do Until i10 Sum+=i i+=1Loop,Do Sum+=i i+=1Loop While i=10,Do Sum+=i i+=1Loop Until i10,改错（1）,假设a被初始化为32。下列语句对0到32的值进行求和,While a=0 sum+=aEnd While,While a=0 sum+=a a-=1E

19、nd While,改错（2）,打印1到8的平方,Dim number As Integer=1Do While number 8 Console.WrithLine(number2)While End,Dim number As Integer=1Do While number 8 Console.WrithLine(number2)number+=1While End,练一练,分别使用Do While|Until语句和Do.While|Until语句对具有10个数组元素的整形数组进行求和,2.6 过程,在Visual Basic中，通用过程分为两类：子程序过程（Sub过程）函数过程（Func

20、tion过程）,Sub过程的定义Shared Private Public Sub 过程名（参数表）语句序列End SubSub前面的Shared、Private和Public指定过程或其中定义的变量的有效范围Sub过程定义以Sub（除前面的Shared、Private和Public外）开始，以End Sub结束，中间是描述过程功能的语句序列，称为过程体。,过程名与变量的命名规则相同参数表指定在调用该过程时，应该传递的参数的个数和类型。每个参数项的形式如下：ByVal|ByRef 参数名()As 类型End Sub表明过程的结束。Sub过程不能嵌套,Sub Multiple（ByVal x A

21、s Integer，ByVal y As Integer）Messagebox.Show(x*y)End Sub,Sub 过程1（）Sub 过程2（）EndSubEnd Sub,Function过程的定义 Shared Private Public Function 过程名(参数表)As 类型名 语句序列End FunctionFunction过程以Function（除前面的Shared、Private和Public外）开始，以End Function结束，中间是描述过程功能的语句序列，称为过程体或函数体。,过程体中至少有一条Return语句，形式为 Return 表达式当调用该过程时，过程的

22、返回值即此表达式的值。“As 类型名”指定Function过程返回值的数据类型。其他部分同Sub过程的定义。,Function Multiple（ByVal x As Integer，ByVal y As Integer）As Integer Return x*yEnd Sub,Function Multiple（ByVal x As Integer，ByVal y As Integer）As Integer Mutiple=x*yEnd Sub,调用Sub过程，即执行该过程中的代码。调用Sub过程的形式如下：过程名(实际参数表)其功能是：运行该过程名对应的过程。由于Function过程返回一

23、个值，可以像其它函数一样来调用。一般它作为表达式或表达式的一部分出现。其在表达式中出现的形式为：变量=过程名（参数表）,Public Function Sum(ByVal a As Integer,ByVal b As Integer)As Integer Sum=a+bEnd Function,Public Sub Sum(ByVal a As Integer,ByVal b As Integer,ByRef c _As Integer)c=a+bEnd Sub,调用语句：C=Sum（3，4）,调用语句：Sum（3，4，C）,练一练,求两个整数的最大值。要求分别用过程和函数编写，这两个数由两

24、个文本框输入，单机按钮后求最大值。,方法的重载,同一个名称创建多个方法，但是使用不同的签名签名就是不同数量和类型的形参，或者是不同的形参顺序适用场合：创建几个具有相同名称并在不同类型的数据上执行类似任务的方法,Function Example1(ByVal a As Double,ByVal b As Double)As IntegerFunction Example1(ByVal a As Double,ByVal b As Double)As Double,下面的重载方法的声明是否正确？,Function Example2(ByVal a As Integer,ByVal b As Dou

25、ble)As Integer Function Example2(ByVal a As Double,ByVal b As Integer)As Integer,Function Example3(ByVal a As Integer)As Integer Function Example3(ByVal a As Integer,ByVal b As Integer)As Integer,形参的数量或顺序不同,OK,形参的数量相同但类型不同,Function Example2(ByVal a As Integer,ByVal b As Integer)As Integer Function E

26、xample2(ByVal a As Double,ByVal b As Double)As Integer,Function Example2(ByVal a As Integer,ByVal b As Integer)As Integer Function Example2(ByVal a As Double,ByVal b As Double)As Double,OK,可选参数,运行调用方法传递不同数量的实参一般情况下，灵活性较重载方法弱些可选参数可为多个可选参数必须在非可选参数的右侧用关键字“Optional”修饰可选参数必须有默认值,ByVal value1 As 类型,ByVal

27、valuen As 类型,_Optional ByVal ovalue1 As 类型=默认值1，,_Optional ByVal ovaluen As 类型=默认值n,语法格式,举例,Sub Example(ByVal value1 As Boolean,_ Optional ByVal value2 As Integer=0)下列调用正确的是？A.Example()B.Example(False)C.Example(True,3),顾客在某商场购买商品是，通常不打折，但是在特殊的时间可以打不同的折扣，具体的折扣可以指定，试利用可选参数进行实现。,具体代码,可变长度的形参列表,使用关键字“Pa

28、ramArray”来创建接受可变数量的参数“ParamArray”关键字只能修饰一维数组参数“ParamArray”修饰的参数必须放在参数列表的最后“ParamArray”只能用ByVal修饰,练一练,分别用函数和子过程来计算可变长度的数组元素的和求1,2,3,4,5的和求1,2,3,4,5,6,7,8,9,10的和,2.7 字符串操作,如何比较两个字符串？,判断两字符串是否相等（True或False）假设有两个字符串String1和String2并且都已赋值String1=String2String1.Equals(String2)String2.Equals(String1),如何比较两个

29、字符串？,CompareTo方法可以对字符串进行比较 0。两字符串相等-1。调用字符串小于参数字符串 1。调用字符串大于参数字符串,判断返回值,String1=“Hello”String2=“hello”String1.CompareTo(String2)String2.CompareTo(String1),如何在字符串中查找字符和子字符串？,使用IndexOf方法和LastIndexOf方法,IndexOf(查找首次出现的位置),LastIndexOf查找最后一次出现的位置,含一个参数,一个字符或子字符串用于查找一个字符或子字符串中首次出现的索引值返回值：字符串中的索引位置值。找到-1。未找

30、到,含两个参数,第一个参数：要搜索的字符或子字符串第二个参数：搜索起始位置/最高索引位置返回值：字符串中的索引位置值。找到-1。未找到,含三个参数,第一个参数：要搜索的字符或子字符串第二个参数：搜索起始位置/最高索引位置第三个参数：搜索的字符数量返回值：字符串中的索引位置值。找到-1。未找到,如何从字符串中抽取子字符串？,SubString方法。通过复制一个现有字符串的一部分来创建一个新的字符串返回值：一个新的字符串,一个参数,SubString(整型参数)整型参数：复制的起始索引值,S1,两个参数,第一个参数：复制的起始索引值第二个参数：子串的长度,S1,连接字符串的方法,Concat方法用于连接两个字符串返回值：一个新的字符串。包含了两个源字符串中的所有字符String.Concat(字符串1，字符串2),String1,String2,String.Concat(String1,String2),