最新VB基础知识

1、复习一、VB的数据类型Boolean布尔型：类型说明符：Boolean,占用2字节Byte字节:类型说明符：Byte占用1字节.Integer整型:类型说明符：Integer,类型标识,占用2字节.Long长整型：类型说明符：Long,类型标识"&",占用4字节.Single单精度型:类型说明符：Single,类型标识"!",占用4字节.Double双精度型:类型说明符：Double,类型标识"#",占用8字节.Currency货币型：类型说明符：Currency,类型标识"",占用8字节.Date日期型：

2、类型说明符：Date,占用8字节.String字符串,变长：类型说明符：String,类型标识"$"二、VB的运算符赋值运算符：用来给变量或对象的属性赋值.把运算符右边的内容包括常量,变量,函数返回值或对象的属性赋给左边的变量或对象.属性.使用赋值号应注意：1 .赋值号左边必须是变量或对象的属性,不能是数值,常量和表达式.2 .赋值号两端的数据类型应该匹配,不匹配时应进彳T适当转换.3 .给对象赋值时,只有运行时可改写的对象属性才能被赋值.数学运算符A指数运算-负号运算符*/乘除运算,其中除法所得到的结果为实数整除,所得到结果为实际结果的整数局部.MOD取模运算,两数相除取

3、余数.+-加减运算.字符串运算符&+连接字符.&与+连接运算符的区别&强制两个表达式它们的类型可能不同做字符串连接；而当+运算符两边的表达式中混有数值字符串及数值,其结果会是数值的求和,如果都是字符串那么作"相加",返回连接起来的字符串.关系运算符运算符含义例如结果="ABCDE"="ABR"False>"ABCDE">"ABR"False>="bc">="BC"True<小于23<3False&

4、lt;=小于等于"23"<="3"True<>不等于"abc"<>"ABC"True逻辑运算符运算符含义优先级说明例如结果Not取反1当操作数为假时,结果NotFT为真NotTFAnd与2两个操作数均为真时,TAndTT结果才为真FAndFTAndFFAndTFFFOr或3r两个操作数中什-个为TOrTT真时,结果为真FOrFFTOrFTFOrTT三、VB语句与限制VB赋值语句用来对一般的变量进行赋值的赋值语句,用关键字LET描述,但一般都省略.格式:let变量或属性=表达式VB注释语

5、句引入目的：为程序的阅读和修改提供信息,提升程序的可读性和可维护性.注释方法有两种：'或REM关键字.条件分支IF语句第一种格式：if条件then语句endif如果条件为true,那么执行"语句",否那么执行endif后面语句.第二种格式：if条件then语句else语句endifIF语句的第三种格式If条件1then语句1elseif条件2then语句2else语句3endif如果条件1为true,那么执行语句1,如果为false,那么检查条件2,如果条件2为true,那么执行语句2,如果条件2为false,那么执行语句3.多重选择语句selectcase语句格式

6、：selectcase测试表达式case条件1语句1caseelse语句endselectVB将测试表达式的值与此同时结构中的每个case的值进行比拟,如果相等,就执行与该case相关的程序段,如果都不等,那么执行caseelse所对应的程序段.循环语句:DoLoop语句第一种格式：DoWhile条件式程序段Loop当条件为true时,循环继续,直到条件变为False为止.第二种格式：DoUntil条件式程序段Loop当条件为False时,循环继续,直到条件变为true为止.第三种格式：Do程序段LoopWhile条件式当条件式为true时,循环继续进行,直到条件式变为false为止.第三种格

7、式：Do程序段LoopUntil条件式当条件式为时false,循环继续进行,直到条件式变为true为止ForNext语句语法规那么：For循环限制变量=初值To终值step增量语句next循环限制变量四、VB函数VB的数学函数函数名功能Abs求绝对值Atn反正切函数Cos余弦函数Exp求指数Fix取整数,对负数取较大的Int取整数,对负数取较小的Log求对数Rnd产生一个01间的随机数Sgn求数字符号Sin正弦函数Sqr求平方根Tan正切函数VB日期和时间函数函数名功能Date取得系统当前日期Time取得系统当前时间Now取得系统当前日期和时间Year返回指定日期中的年份Month返回指定日期

8、中的月份1-12Day返回指定日期中天1-31Weekday返回指定日期为星期几Hour返回指定时间量中的小时Minute返回指定时间量中的分钟Second返回指定时间量中的秒DateSerial返回指定年月日的日期TimeSerial返回指定小时分秒的时间DateValue将字符串表示的日期转化为Variant日期TimeValue将字符串表示的时间转化为Variant时间DateAdd返回指定日期加上一定时间间隔后的日期DateDiff返回两个日期的时间间隔DatePart返回指定日期的特定局部字符串函数函数名功能Len求字符串长度Mid取给定字符串的子串Left从字符串的左边取指定长度的

9、子串Right从字符串的右边取指定长度的子串Ltrim去掉字符串的前导空格Rtrim去掉字符串的尾随空格Trim去掉字符串的前导和尾随空格五、对象的常用属性»Alignment设置或返回控件的文本对齐方式AutoSize返回或设置控件是否自动改变大小以显示其全部内容BackColor返回或设置对象的背景颜色.ForeColor返回或设置在对象里显示图片和文本的前景颜色.BackStyle返回或设置控件的背景是透明的还是非透明的.BorderStyle返回或设置对象的边框样式Caption指定显示在窗体标题栏中的文本或指定显示在控件中的文本.Enabled返回或设置对象是否能够对用户产

10、生的事件作出反响.Font返回或设置对象可用的所有字体、字形、字号Height返回或设置对象的高度Width返回或设置对象的宽度Left返回或设置对象内部的左边与它的容器的左边之间的距离.Top返回或设置对象的内顶部和它的容器的顶边之间的距离.Visible返回或设置一指示对象为可见或隐藏的值.Locked设置为ture时,文本不能被编辑,也不能被复制粘贴.MultiLine返回或设置TextBox控件是否能够接受和显示多行文本.ScrollBarsTextBox控件的属性MultiLine为真时,可为文本框控件设置水平、垂直滚动条.Style命令按钮的该赂性值为1时,可修改该命令按钮的背景颜

11、色.Text返回或设置文本框控件中包含的文本.Name返回或设置字体对象的名字.六、几种根本算法解析法P98通过分析问题中各要素之间的关系,用最简练的语言或形式化的符号来表达它们的关系,得出解决问题所需的表达式,然后设计程序求解问题的方法称为解析法参看P100“电阻计算问题.穷举法P103穷举法也称为枚举法或列举法穷举法,指在一个有穷的可能的解的集合中,一一列举出集合中的每一个元素,用题目给定的检验条件来判断该元素是否符合条件,假设满足条件,那么该元素即为问题的一个解；否那么,该元素就不是该问题的解参看P103的IQ问题.顺序查找P117当查找的对象没有规律时可用顺序查找方法.顺序查找就是一个

12、一个地根据对象的元素往下查找,直到全部元素都查了一遍.所谓顺序查找,就是从数据序列中的第1个元素开始,从头到尾逐个查找,直到找到所要的数据或搜索完整个数据序列.这种顺序查找的代码很简单,只需编写一个循环,将数组中各元素依次与目标数进行比拟即可参看下面例题.'随机生成10个数在1到100之间的整数并输出；再输出其中的最大数及位置号顺序查找.PrivateSubCommand1_Click()Dima(1To10)AsInteger,iAsInteger,MaxAsInteger,mIndexAsIntegerMax=0RandomizeClsPrintFori=1To10a(i)=Int

13、(Rnd*100)+1Printa(i);IfMax<a(i)ThenMax=a(i)mIndex=iEndIfNextiPrintPrint'每次运行时,要产生不同序列的随机数,执行Randomize语句.去除窗体中用PRINT等方法输出的内容.本段循环程序随机产生10个1到100之间的整数并显示出来,同时还按顺序找出其中的最大数.'利用取整函数Int、随机函数Rnd,可让计算机产生一定范围的随机整数,公式为：IntRnd*上限-下PM+1+下限.'按紧凑格式输出所产生的随机数.按顺序查找10个数中的最大数.'依次将查找过程中找到的大数存入变量Max中.

14、并将其位置保存到变量mIndex中.顺序比拟完成之后,Max就是10个数中的最大者.Print"最大值="&Max&",所在位置为第"&mIndex&"个位置.EndSub对半查找P119假设数据没有经过整理而无顺序,要不遗漏不重复地查找,大致也只能用顺序查找的方法进行查找了；而假设数据已经整理而变得有顺序例如数据按由小到大的顺序进行排序了,就可以使用对半查找比拟容易理解的一种方法的方法进行查找,从而提升工作效率.根本方法：首先在查找对象的中间位置取出一个元素来与目标元素比照,假设目标元素较小,那么在查找对象的上

15、半局部进行查找就可以了.相反,如果目标元素较大,那么在查找对象的下半部分继续进行查找.这样查找的范围就缩小了一半.反复进行这个过程,就能很快确定目标元素在查找对象中的位置或者确定不在查找对象中.参看下面例题.从键盘输入一个100以内的正整数,用对半查找法进行查找,确定其是否在随机产生的100个整数中.PrivateSubCommand1_ClickDima1To100AsSingle,xAsIntegerDimLAsInteger,HAsIntegerDimtAsInteger,midAsIntegerClsRandomize'使生成的数据中无重复元素Fori=1To100a(i)=I

16、nt(100*Rnd+1)给数组a赋1到100之间的数Printa(i);""IfiMod10=0ThenPrintNextiPrint'对一维数组进行排列,采用选择法排序Fori=1To99Forj=i+1To100Ifa(i)>=a(j)Thenm=a(j):a(j)=a(i):a(i)=m'数据交换EndIfNextjNextiFori=1To100Printa(i);""IfiMod10=0ThenPrintNextix=Val(InputBox("请输入要查找的1-100的数")输入要查找的数DoWhi

17、lex>100Orx<1x=Val(InputBox("您要查找的数不符合条件,请重新输入要查找的1-100的数")保证查询符合条件Loop'对半查找程序L=LBound(a):H=UBound(a)'给L和H赋值Lbound(ArrayName,维数):取得数组相应维数的下界；Ubound(ArrayName,维数):取得数组相应维数的上界t=0'起辅助作用,当t=0时,那么表示未找到要查找的数,而t=1时表示要查找的数已找到DoWhilet=0AndH>=L'用dowhile循环命令判断查找条件mid=(H+L)2Ifa

18、(mid)=xThent=1ElseIfx<a(mid)ThenH=mid-1ElseL=mid+1EndIfEndIfLoop结果输出IfH<LThenPrint"没有找到您要查找的数"ElsePrint"你要查找的数是a("mid;")",a(mid)EndIfEndSub选择排序(P125)选择排序法是一个很简单的算法.其原理是首先找到数据清单中的最小(或最大)的数据,然后将这个数据同第一个数据交换位置(进行第一轮挑选)；接下来在余下的数据中找第二小(或第二大)的数据(进行第二轮挑选),再将其同第二个数据交换位置,以

19、此类推(参看下面例题).例：将五个数5、4、1、3、2按顺序进行排序.PrivateSubCommand1_Click()Dima(5)AsIntegerDimminAsInteger,wAsInteger,mAsIntegera(1)=5:a(2)=4:a(3)=1:a(4)=3:a(5)=2'将数据赋值给数组元素Print"排序前的数据："Fori=1To5'本程序段输出排序前的数据.Printa(i),NextiPrintPrintFori=1To4min=a(i):w=iForj=i+1To5Ifa(j)<minThenmin=a(j):w=j

20、Nextjm=a(i):a(i)=min:a(w)=mNextiPrint从小到大排序后的数据:"Fori=1To5本程序段按选择排序法进行排序.外循环负责将第I轮选择到的最小数与第I个位置的数据对调.'变量min存放找到的较小数,变量w存放较小数的位置.内循环程序段负责在第I轮中挑选最小数.将找到的较小的数暂存到变量min中,将其位置保存到变量w中.将本轮选择到的最小数与第I个位置的数据对调.本程序段输出排序后的结果.Printa(i),NextiEndSub插入排序(P127)插入排序：在输入每一个数据时,在它前面输入的数据已经按顺序排好,它只需要插入到一个排好顺序的队列

21、之中,这种算法称为插入排序算法(参看P130程序4-15).Dimd(10000)AsLongDimkAsIntegerPrivateSubCommand1_Click()DimaAsLonga=Val(Text1.Text)k=k+1i=kDoWhilei>1Andd(i-1)>ad(i)=d(i-1)i=i-1Loopd(i)=aText2.Text=""Forj=1Toi-1Text2.Text=Text2.Text&Str(d(j)&""NextjText2.Text=Text2.Text&"(&qu