VB学习资料笔记教程

三、VB基本语言3.1代码书写规范1．如一行写多条语句，语句间用“：”分隔2．一条语句如写在多行，行尾加续行符“_”（一个空格加一个下划线）3．单行注释以单引号打头。如要快速将多行设为注释,可先选中,然后单击”编辑”工具栏的”设置注释块”。取消则用“解除注释块按钮”。3.2数据类型1.基本类型数据类型关键字类型符前缀占字节数字节型ByteByt1逻辑型BooleanBln2整形Integer%Int2长整型Long&Lng4单精度型Single!Sng4双精度型Double#Dbl8货币型Currency@Cur8日期型Date(time)Dtm8字符型String$Str与字符串长度有关对象型ObjectObj4变体型VariantVnt注：类型转换规则：IntegerLongSingleDoubleCurrency但Long与Double运算时，结果为Double，而非single2.自定义类型(类似于C语言结构体)定义语法：[Public|private]Type自定义类型名成员名As数据类型成员名As数据类型…..End注：**As数据类型不能用缩写符号代替。如不可以用%代替Asinteger**在标准模块定义自定义类型可用public或private，但如在窗体模块中定义只能用Private3.3常量1.长整型常量：如123&2.单精度常量：如1.231.23!0.123E+13.双精度常量：如1.23#0.123E+1#0.123D+1注：数值型常量默认为十进制，如使用八进制前加&O，如使用十六进制前加&H4.日期型常量任意日期形字符串用#括起来。如：#1Jan,97##1998-5-1212:30:00pm#5.逻辑型常量True和False逻辑数据转换为整型时：true转换为-1false转换为0其它类型转换为逻辑数据时：非0为True0为False6.字符型常量：用双引号括起来,sever2000中用单引号**VB中一个西文字符和一个汉字都占两个字节3.4变量与常量定义1．变量定义格式：Dim|Private|Public|Static变量名[As类型]注：**[As类型]可用变量名后紧跟类型符代替**[As类型]缺省为变体型**可同时定义多个变量，但每个变量都要指明类型。如：dimx%,y%,z!**字符型变量分为定长和变长两种，定义方法变长字符变量：Dim变量名Asstring定长字符变量：Dim变量名Asstring*字符数如：dimc1asstring*8**VB中变量可不定义，直接使用，由所赋的值决定其类型但最好强制变量声明，这样易发现错误。方法：”工具”菜单选项”编辑器”选项卡勾选”强制变量声明”2.常量定义格式：Public|PrivateConst常量名[As数据类型]=值注：**[As类型]缺省，则常量类型由所赋的值决定**[As类型]可用常量名后紧跟类型符代替3.4运算符1．算术运算符：^(乘方)-(负号)*/\(整除)Mod+-从左到右优先级由高到低2．字符串连接符：+操作数须均为字符型&操作数可为字符型或数值型，连接前会自动转换为字符型注：变量与&符号之间应加空格，因为&还是数据类型符3．关系运算符：===LikeIs注：**关系运算符优先级相同**数值型操作数按大小比较，字符型操作数按ASCII码大小比较**LIKE类似于SQL中的Like，可与通配符?、*、#、[范围]、[！范围]结合使用？任意单字符*任意字符串#任意一个数值4．逻辑运算符：Not、And、Or、Xor(异或)、Eqv(等价)、Imp(蕴含)注：如操作数是数值，则以数字的二进制值逐位进行逻辑运算。例：1011and0111得到0010对应十进制数25.各种运算符优先级算术运算符关系运算符逻辑运算符3.5常用内部函数1．数学函数Abs(N)取绝对值Rnd(N)产生0~1之间的随机数Sgn(N)符号函数。N0返回1，N0返回-1，N=0返回0Sqr(N)平方根2．转换函数Str$(N)数值转换为字符串Val(C)(数字)字符串转换为数值Asc(C)字符转换成Ascii码Chr$(Ascii码)Ascii码转换成字符Fix(N)取整，直接去掉小数点及小数Int(N)取不大于N的最大整数Hex[$](N)十进制转换成十六进制Oct[$](N)十进制转换成八进制3．字符串函数约定：C、C1、C2代表字符串N、N1、N2代表整数Left$(C,N)取字符串左边n个字符Right(C,N)取字符串右边n个字符Mid$(C,N1,N2)在C中从N1向右取N2个字符Len(C)返回字符串中字符数LenB(C)返回字符串所占字节数Ltrim$(C)去掉字符串左边空格Rtrim$(C)去掉字符串右边空格StrComp(C1,C2[,M])若C1C2返回1,C1C2返回-1，C1=C2返回0StrReverse(C)返回逆置后的字符串InStr([N1],C1,C2,[M])返回子串C2在C1中的位置。从N1开始找，省略N1从头找。M=0（默认）区分大小写,M=1不区分*InstrRev(C1,C2,[N1],[M])同InStr，只是从串尾开始找，返回的位置都是从串头开始算左侧第一个字符为1Replace(C,C1,C2[,N1][,N2][,M])用C2替换C中的子串C1，从N1（省略从头）开始找C1，替换N2Join(A[,分隔符])返回数组各元素按分隔符连接而成的字符串。如A=array(“12”,”3”,”4”)Join(A,””)返回”1234”Split(C[,分隔符])将字符串C按分隔符分隔成字符数组。如S=Split(“123,56,ab”,“,”)则S(0)=”123”S(1)=”56”S(2)=”ab”String$(N,C)返回由C中首字符重复N次组成的字符串。如：String$(3,”abc”)返回”aaa”Space$(N)返回N个空格组成的字符串注：字符编码常识Windows对字符采用DBCS编码，西文字符与Ascii码一样是单字节，汉字是两字节VB采用UniCode(国际标准化组织字符标准)，无论中西文一律采用两个字节。对于Ascii码也是两字节，前一字节全补04．字符串编码转换函数StrConv格式：StrConv(C,VbFromUnicode|VbUnicode)注：VbFromUnicode将Unicode码转换成DBCS码VbUnicode将DBCS码转换成Unicode码**VB下不能显示DBCS编码的字符串，是乱码。因为VB以Unicode码处理字符串。5．日期函数6．格式输出函数7．SHELL函数8．与用户交互的函数InputBox打开一个输入对话框，供输入数据格式：变量=InputBox(提示字符串[,对话框标题][,显示在输入框的默认值][,x,y])注：x,y为对话框左上角坐标MsgBox输出消息对话框格式：变量=MsgBox(提示[,按钮类型][,对话框标题])MsgBox提示[,按钮类型][,对话框标题]注：按钮类型：3.6程序控制结构1．选择结构VBC语言选择结构1if条件then语句(只能写在一行)如有多条语句须用:分隔If(条件)语句块;或写成if(条件)语句块;If条件then语句块endif变量=iif(条件，True时的值，False时的值)变量=条件？表达式,表达式22If条件then语句块else语句块endifIf(条件)语句else语句If条件then语句1else语句2(只能写在一行)3If条件then语句块elseif条件then语句块…else语句块endifIf(条件)语句Elseif(条件)语句Elseif(条件)语句….Else语句4SelectCase表达式Case值列表1语句块Case值列表2语句块….CaseElse语句块EndSelect注：值列表例：Case1Case1to10Case2,4,6,8CaseIs10Case1,2to6,Is10Switch(表达式){case常量表达式1:语句;break;case常量表达式1:语句;break;case常量表达式1:语句;break;….Default:语句}For循环变量=初值to终值[step步长]语句块[ExitFor]Next循环变量For(exp1;exp2;exp3)语句9.3使用ADO访问数据库9.3.1.ADO简介ADO通过OLEDB访问不同类型的数据源。OLEDB是底层编程接口，主要包括3个部分。数据提供者：从各种数据源(如数据库、文本文件、电子表格等)读取数据，并将这些数据转换成数据消费者支持的格式（一般为关系型数据表）。数据消费者：使用数据提供者提供的数据的应用程序。(几是使用ADO的应用程序都是消费者)服务组件：作用是连接数据消费者和数据提供者。或将数据转换为不同的类型。9.3.2．ADO对象模型：ADO中包括7个对象，其中3个独立对象Connection、Command、Recordset和4个非独立对象(依赖独立对象才能使用)Field、Error、Parameter、Property在VB中使用ADO必须先引用：“工程”菜单引用选“MicrosoftActiveXDataObjects2.0Library”确定新方法：（2011年5月25日星期三整理）start-----------------------------------------------------------------------------------------------------------------------------PrivateCurSqlSeverAsString*15,CurDataBaseAsString*15,CurUserNameAsString*15,CurPasswordAsString*15DimcnAsNewADODB.Connection'定义连接变量DimrsAsNewADODB.Recordset'定义记录集变量'初始化连接变量，以操作具体的数据库cn.ConnectionString=Driver={sqlserver}&;server=&Trim(CurSqlSever)&;uid=&Trim(CurUserName)&;pwd=&Trim(CurPassword)&;database=&Trim(CurDataBase)cn.ConnectionTimeout=30'设置连接超时为30秒cn.Open'打开连接'打开/关闭记录集rs.OpenSELECT语句,cn,adOpenStatic,adLockReadOnly,adCmdTextrs.Close-----------------------------------------------------------------------------------------------------------------------------finish'执行更新操作cn.Executeupdate语句1．Connection对象：即连接对象，主要用于建立数据源（如数据库）连接，任何对数据源的其他操作都建立在连接的基础上。连接建立步骤：s1：定义并实例化连接对象dim连接对象指针名(如objcn)asConnectionset连接对象指针名=newConnections2：指定数据提供者类型连接对象指针名.Provider=”数据提供者类型”如：指定数据提供者为SQLSEVER数据库objcn.Provider=”SQLOLEDB”s3：设置连接信息即设置Connection对象的ConnectionString(连接字符串)属性，不同类型的数据提供者，ConnectionString的参数是不同的。例：连接SQLSEVER数据库“学习分制选课”，用户sa可访问该数据库，sa用户密码是123，数据库所在服务器为本地服务