VB知识讲义

VS.NET2008在线中文MSDN帮助：常用内部函数............................3异常处理.................................13控制台……………………………………………65图像处理.................................82“解决方案”相当于以前的版本中的“工程组”，解决方案中可以含有不同语言开发的项目。解决方案文件的扩展名是.sln。项目文件：其扩展名为.vbproj，每个项目对应一个项目文件。项目通常由引用和代码模块组成，其中引用含有项目运行时所需要的程序集（Assembly）或组件。代码模块文件：其扩展名为.vb。第一章基本知识1．1认识VB.NET计算机语言的分类：面向过程程序设计语言，QBASIC,c程序设计,等等。面向对象程序设计语言，vb,vb.net,vf,vc,java,c#。界面简介：由几个常用窗口：设计窗口：控件的载体。工具箱：存放系统定义好的常用控件。属性窗口：设置控件的属性。代码窗口：编写程序。它主要是在控件的事件过程中编写程序的。输出窗口：显示运行结果。VB.NET软件开发的步骤：1．拖入控件2．设置控件的属性3．编写程序代码4．运行调试5．保存项目试作一个滚动字幕[实验报告1]。程序为：PublicClassForm1PrivateSubTimer1_Tick(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesTimer1.TickLabel1.Left=Label1.Left+50IfLabel1.Left=Me.WidthThenLabel1.Left=-Label1.WidthEndIfEndSubPrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.ClickTimer1.Enabled=NotTimer1.EnabledEndSubEndClass试作一个闪烁的灯泡[实验报告2]。程序为：PublicClassForm1PrivateSubTimer1_Tick(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesTimer1.TickPictureBox2.Visible=NotPictureBox2.VisibleEndSubEndClass程序中用到的属性：Enabled—可用与否。Interval--Visible—可见与否。Text—界面文字控件的事件、方法、属性事件：加载在控件上的操作或动作。方法：控件完成的操作，它是由系统定义好的，直接用。属性：控件特征的描述。1．2窗体与标签的应用窗体的作用：是其它控件的载体，窗体本身也是一个控件，所以它有自身的属性、方法、事件。Text:显示界面文字Visible:可见与否Enabled:可用与否Font:文字字体、字号等等Forcolor:前景颜色，如文字Backcolor:背景颜色标签：主要作用显示文字，常用属性为：Text：显示文字语句：程序结构：1．3文本框与字符串文本框的作用：提供一个空间，可以输入内容或显示内容除外，文本框还可以文字编辑器。Text属性：用以输入、输出，数据类型为，字符串型。Multiline：当为true时，内容可以多行显示。常用事件：change—内容变化时激发此事件。应用：试编程序，往第一个文本框中输入内容，然后在下面标签中显示输入内容的大写、小写。程序见，P13程序为：PublicClassForm1PrivateSubTextBox1_TextChanged(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesTextBox1.TextChangedLabel1.Text=(TextBox1.Text).ToUpperLabel2.Text=(TextBox1.Text).ToLowerEndSubEndClass1．4常用数据类型一、整型：byteshortintegerlong二、小数类型：singledouble三、字符型：char表示单个字符。四、字符串型：string(string*6)五、布尔型：boolean只有两个值：true,false1.5运算符与表达式表达式：由运算符、运算量构成的式子。如：2*3.14*r运算符：连接符号，共有：算术运算符：+-*/\mod字符串运算符：+&关系运算符：、=、、=、=、逻辑运算符：notandor运算量：常数（量）、变量、函数(或属性值)。常量：Constpi=3.14变量：DimrAsIntegerDimp,sAsSingle实例：任意输入圆的半径r，求圆的周长P与面积s。[实验报告3]程序见，输入圆的半径r求周长面积，程序为：PublicClassForm1PrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.ClickDimrAsIntegerDimp,sAsSingler=Val(TextBox1.Text)p=2*3.14*rs=3.14*r*rTextBox2.Text=pTextBox3.Text=sEndSubPrivateSubButton2_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton2.ClickEndEndSubEndClass1．6常用内部函数数学函数：此类函数在命名空间：system.math中（如：math.sqrt(m)）此命名空间是系统默认命名空间，即此空间中的函数可以直接使用。字符串函数：此类函数在命名空间：microsoft.visualbasic中。（如：microsoft.visualbasic.len(s)）ucase=toupperlcase=tolowerLen(s)—求串长度；串中取子串：left,rithg,mid转换函数：此类函数在命名空间：microsoft.visualbasic中。Val—把字符串（数字字符串）转换成数字。Str—把数字转换成字符串Int—取整，即去掉小数部分。日期函数：此类函数在命名空间：microsoft.visualbasic中。Now—取系统的时间与日期Year--取系统日期中的年，monthdayHour--取系统时间中的小时，minutesecond说明：命名空间可以试先指明，形式是：imports命名空间，它必须放在所有程序的最前面。随机函数：Randmize—随机数种子Rnd—产生随机数（0—1）:返回一个Single类型的随机数.注：PublicSharedFunctionRnd[(Number)]AsSingle如果Number为Rnd生成小于零每次都相同的数字，并将Number用作种子。大于零序列中的下一个随机数。等于零最近生成的数字。未提供序列中的下一个随机数。Rnd函数返回小于1但大于或等于0的值。Number的值决定了Rnd生成随机数的方式。由于每一次后续调用Rnd函数都用序列中前一个生成的数作为下一个数的种子，因此对于任何给定的初始种子都会生成相同的数字序列。在调用Rnd之前，先使用无参数的Randomize语句初始化随机数生成器，该生成器具有一个基于系统计时器的种子。若要生成某给定范围内的随机整数，可使用下面的公式：randomValue=CInt(Math.Floor((upperbound-lowerbound+1)*Rnd()))+lowerbound安全说明：由于Random语句和Rnd函数从一个种子值开始，然后生成位于有限范围内的数字，因此，如果某个人知道生成这些数字的算法，他就可以预测结果。因此，不应使用Random语句和Rnd函数生成加密使用的随机数。本示例使用Rnd函数在范围1到6之间生成一个随机整数值：'Initializetherandom-numbergenerator.Randomize()'Generaterandomvaluebetween1and6.DimvalueAsInteger=CInt(Int((6*Rnd())+1))SubMain()DimkAsInteger'Initializetherandom-numbergenerator.Randomize()'Generaterandomvaluebetween1and6.Fork=1To10Console.WriteLine(CInt(Int((6*Rnd())+1)))NextConsole.ReadLine()EndSub实例：任意生产两个100以内的正整数，试编程求其和，并对结果的对与错作出评定。即加法器软件。[实验报告4]程序为：PublicClassForm1Dima,bAsIntegerPrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.ClickRandomize()a=Int(Rnd()*100)TextBox1.Text=ab=Int(Rnd()*100)TextBox2.Text=bEndSubPrivateSubButton3_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton3.ClickEndEndSubPrivateSubButton2_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton2.ClickIf(Val(TextBox3.Text)=a+b)ThenTextBox4.Text=对了！ElseTextBox4.Text=错了！EndIfEndSubEndClass试着做一个电子表，程序见，电子表。实例：试制作一个定时时钟[实验报告5]程序见，定时时钟，程序为：PublicClassForm1Dimh,mAsIntegerPrivateSubButton3_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton3.ClickEndEndSubPrivateSubTimer1_Tick(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesTimer1.TickDimaAsDateDimb,c,dAsIntegerDimxAsStringa=Microsoft.VisualBasic.Nowb=Microsoft.VisualBasic.Hour(a)c=Microsoft.VisualBasic.Minute(a)d=Microsoft.VisualBasic.Second(a)Label1.Text=b&:&c&:&dIf(h=bAndm=c)ThenBeep()EndIfEndSubPrivateSubButton2_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton2.Clickh=8888m=9999EndSubPrivateSubButton1_Click(ByValsenderAsSystem.O