VB程序设计总结.docx
《VB程序设计总结.docx》由会员分享，可在线阅读，更多相关《VB程序设计总结.docx（30页珍藏版）》请在冰豆网上搜索。
VB程序设计总结
第1章VｉsualBａsic程序设计概述
1.1Viｓｕａl ｂasｉc简介
VisualBaｓiｃ的特点
有基于对象的可视化设计工具；事件驱动的编程机制；提供应用程序集成开发环境；支持结构化程序设计语言；强大的网络、数据库、多媒体功能;完备的帮助功能
ＶＢ中字符以Ｕｎicode码存放，每个汉字和英文是一个字符、占有两个字节，汉字的机内码最高位为1其码值为小于0（以补码表示）,西文字符的最高位为0,其码值为大于０
Ｅx：
设计一个滚动文字的广告程序，一行文字在具有背景图案的窗体上,下移动.
设计思路:
在窗体上使用标签Labｅｌ对象来存放文字；利用Timeｒ控件来快速触发移动;利用单击按钮来手动触发移动；改变标签的左上角坐标（lefｔ，toｐ表示）就可移动标签
Label1．Top＝Lａbｅl1．Top+50：
使标签Labｅl１向下移动50单位
Iｎｔervａl=20０:
时钟对象的Ｉnｔerｖal可指定时间间隔,1秒为1０00单位.每隔0.2秒移动一次可设置Ihaveaｃourseware
1.2ＶB集成开发环境
三种工作模式
设计模式（界面设计和代码编制）；运行模式（运行程序）；中断模式（中断运行，调试程序）
工程的组成
ﻩ窗体文件（控件和属性设置，事件代码）；模块文件
窗体设计窗口
窗体是ＶB应用程序的主要部分;一个应用程序至少有一个窗体窗口;每个窗体必须有一个唯一的窗体名（默认名为Form1）;设计状态的窗体由网格点构成；网格点间距可以通过工具-选项－通用进入窗体网格设置；运行时可通过属性控制窗体的可见性
代码设计窗口
用来进行代码设计（各种事件过程、过程代码的编写修改）；打开代码设计窗口（双击窗体/控件资源管理器窗口-查看代码）
属性窗口
ﻩ设置窗体或控件的属性，如颜色、字体、大小等
工程管理器窗口
保存一个应用程序所有属性以及组成这个应用程序所有的文件;工程文件的扩展名为．VBP,工程文件名显示在工程文件窗口的标题框内
工具箱窗口
ﻩ由２１个被绘制成按钮形式的图标构成;其中20个控件称为标准控件（指针不是控件）
也可通过工程－部件命令将第3方开发的其他控件装入到工具箱
1.3创建应用程序的过程
创建应用程序的过程
建立用户界面的对象－对象属性的设置-对象事件过程及编程-保存和运行程序
第2章VB可视化编程基础
２．1VＢ对象概念
对象：
指现实世界中的实体
类:
是对同一种对象的集合与抽象,类的内部实现细节对用户来说是透明的
对象:
类的一个实例
封装和隐藏：
将数据结构和对数据的操作封装在一起
ＶＢ工具箱中的可视图标
通过将VB系统设计好的标准控件类实例化,得到真正的控件对象（在窗体上画一个控件，类就转换为对象,创建了一个控件对象）
对象的三要素：
属性、事件和方法构成
属性：
存放对象的数据（决定对象外观及功能）
设计阶段（利用属性窗口直接设置属性值）-程序运行（语句对象名.属性名=属性值）
（只能在设计阶段设置，在运行阶段不可改变的属性称为只读属性）
事件:
发生在对象上的事情（同一事件，对不同的对象,会引发不同的反应）
格式：
（代码窗口自动产生事件过程的模板,不要修改模板内容,只需键入过程代码）
Ｓｕb对象名＿事件（参数）
ﻩ…事件过程代码
EｎdＳub
事件驱动程序设计方式：
程序执行的次序与程序设计者无关，取决于用户的操作
ＶB程序的执行步骤
启动应用程序，装载和显示窗体－窗体（或窗体上的控件）等待事件的发生-事件发生时执行对应的事件过程－再次等待
方法：
面向对象的程序语言为设计人员提供的一种特殊的过程和函数；调用时一定要指明对象
格式：
ﻩ[对象.]方法[参数名表］（省略对象表示当前对象，一般指窗体）
Eｘ:
Text1.SｅtFocus：
此语句使Text1控件获得焦点,光标在本文框内闪烁
２.2窗体和基本控件
窗体和控件具有基本属性
Ｎａme：
名称属性-所创建的对象名称
Caｐtｉon:
标题属性-对象上显示的内容
Ｈeiｇｈt,Wｉdtｈ,Ｔop,Left:
决定对象的高度、宽度，和位置
Ｅnabｌed:
对象是否允许操作
Visiblｅ：
对象是否可见
Ｆｏnｔ：
文本的外观属性组
FoｎtNａme：
字体ﻩ
FonｔSize：
大小
FｏntBold:
粗体
FoｎtＩｔalｉc:
斜体
ﻩＦoｎｔStrｉkeｔhｒu：
删除线
ﻩＦonｔUｎdｅrline：
下划线
ＦoreCｏｌor：
前景颜色
BacｋＣolｏｒ：
背景颜色
MousePoinｔer:
鼠标指针类型，设置值范围0～15，由系统指定（若为９９，由用户提供的图形文件定义鼠标指针形状）
MｏusｅIｃon:
MouseＰoiｎter=99,存放自定义的鼠标图标文件（ico或cuｒ）
控件默认属性:
程序运行时，可以改变某控件的值，而不必指定它的哪个属性
文本框Text单选按钮Vａlue
ﻩ命令按钮ﻩﻩDefaｕｌt标签ﻩＣaptiｏn
图形、图像框Pｉｃtureﻩﻩ复选框ﻩﻩValue
窗体
事件：
Ｌoaｄ事件（窗体被装入触发的事件,常为初始化）；Cｌｉck事件;DblClｉｃk事件
方法：
[对象]方法［参数列表]
Cls方法:
清除窗体或图形框运行产生的文本图形，不能清除窗体在设计时的文本图形
Ｍoｖe方法：
可移动窗体或控件，并改变其大小
ﻩ格式：
［对象．]Ｍovｅ左边距离［,上边距离[,宽度[，高度］］]
标签：
用来显示文本信息（不能输入）
文本框：
文本编辑区域，可以在该区域输入、编辑、修改和显示正文内容
属性:
Teｘt:
显示或输入正文内容
Maxlength:
可输入的文字最大长度（默认０表示任意长度，字母和汉字长都为1）
MultｉLｉｎe:
设置Trｕe可输入或显示多行;自动换行,按Enｔeｒ可插入空行
ScｒｏllBａrs：
滚动条属性（当ＭultiLｉne为Tｒｕe时,ＳcrollBars才有效）
Nonｅ：
无滚动条
Horizonｔal:
水平滚动条
Verｔicａl：
垂直滚动条
Botｈ:
同时加水平和垂直滚动条
PasｓＷoｒdＣhar:
设置显示文本的替代符（设置口令）
（MultiＬinｅ为Tｒuｅ时,该属性不起作用,密码不允许多行）
Lｏcｋeｄ：
指定是否可被编辑,默认False表可编辑;值为Ｔrｕe相当于标签
SeｌSｔart:
选定的正文开始位置
SelＬeｎｇth:
选定的正文长度
SelTｅｘt:
选定的正文内容
（设置SeｌStａrt、ＳｅlLength后，SelText自动存放指定的文本）
事件:
Chanｇｅd事件：
属性值发生改变时引发该事件
ＫeｙPress事件:
按下并释放键,引发的事件，键值存在参数KｅｙＡscii
ＬｏstFocuｓ事件:
对象失去焦点发生的事件（数据验证确认；检查Tｅxｔ属性内容）
ＧotFocuｓ事件：
对象获得焦点时发生
方法:
最有用是SeｔFocus；形式:
[对象.] ＳetFｏcus
命令按钮:
程序运行时执行相应的事件
属性:
Caｐｔion：
按钮上显示的文字
Sｔyle：
按钮样式（0－不显示图形;1－可显示图形文字）
Ｐｉｃｔurｅ：
在按钮装入图形
TｏoｌＴipTeｘt：
加以文字提示
事件：
一般接收Cｌicｋ事件
第3章VＢ语言基础
3.1 数据类型
3.２ 变量和常量
变量:
在程序运行中其存储的值可以改变
规则:
必须以字母或汉字开头，由字母汉字数字或下划线组成,长度＜=255个字符
不能使用VB中的关键字；不区分大小写，一般变量名首字母大写
声明格式：
Diｍ变量名［Ａs类型]（Ａs部分缺省则为变体类型 ）
Ex:
Dim m，nAsIｎｔeｇer，ｘ,yAs Ｓｉngｌe
常量：
用大写字母表示
直接常量:
其常数值直接反映了其类型
符号常量：
用户声明，便于程序阅读或修改
格式:
Const符号常量名[As 类型] =表达式
Ex：
ＣｏnstPＩ=3.1415９
系统常量:
系统提供许多内部常量
Ex:
ｖbCrＬf:
回车／换行组合符
３.3运算符和表达式
算术运算符
（算术运算符两边操作数应是数值型,数字字符或逻辑型自动转成数值类型）
字符串运算符
＆：
两旁的操作数可任意,转换成字符型后再连接
+：
两旁的操作数应均为字符型
都为数值型则进行算术加运算ﻫ一个为数字字符，另一个为数值，自动将数字字符转换为数值后进行算术加
一个为非数字字符,另一个为数值型,出错
运算符
例
结果
＝
"AＢCＤE "="AＢR "
False
>
"AＢCＤE" ＞ "ＡＢR"
Ｆalsｅ
＞=
“ bc”>＝ “大小"
Faｌsｅ
<
23<3
False
<＝
＂23"<= "3"
Ｔrｕｅ
<>
"aｂc"<>＂aｂcｄe"
True
逻辑运算符
数据类型的转换:
Ｉnteger优先级:
算术运算符＞=字符运算符>关系运算符>逻辑运算
内部函数:
数学函数
Ｅx:
产生a－b的之间的随机整数：
Iｎt（Rnｄ＊（ｂ-a）+a）
转换函数
字符串函数
日期函数
Eｘ：
计算现在到20０7年6月３0日有多少天?
DａｔeDifｆ（"d",Ｎow,#6/3０／2007＃）
Ｓhelｌ函数：
可调用各种应用程序
格式：
Shell（命令字符串[,窗口类型]）
命令字符串：
应用程序名（包括路径.ｃom、.eｘe、.ｂaｔ）
窗口类型:
执行应用程序的窗口状态,０~4，6的整型数值,1表示正常窗口状态。
函数调用成功返回一个任务标识IＤ,不成功,则返回0。
３.4程序结构和编码规则
编码规则
代码不区分字母的大小写；关键字首字母自动变大写，其余变小写；自定义变量以后输入自动变为首次定义形式
语句书写自由,一行上可写多句语句（冒号分隔），一行最多２55个字符；单行语句可分若干行书写,在行末加入续行符（空格和下划线）
第4章VB控制结构
4.１顺序结构
赋值语句:
变量名＝表达式（左边只能是变量,不能是常量、常数符号、表达式）
数据输出和输入：
ＩnputＢox函数:
打开个对话框,等待用户输入，返回字符串类型的输入值
形式：
ＩｎputＢoｘ（提示[,标题]［,默认值][,x坐标位置]［,y坐标位置]）
（提示项不能省略;多行提示可在每行行末加回车换行vbCｒLｆ）
MsｇBoｘ函数：
打开信息框，等待用户选择一个按按钮；函数返回所选按钮的值,过程不返回值
MsｇBox函数形式：
变量[%]＝ＭsgBｏx（提示［,按钮][,标题］）
MsgBox过程形式：
MsgBoｘ提示[,按钮][,标题]
按钮是整型表达式,决定信息框按钮数目和类型及出现信息框上的图标形式
ﻩMｓgBｏx按钮设置
ﻩＭsgBox按钮返回值
内部常数
返回值
被单击的按钮
vbOｋ
1
确定
vbＣancｅl
２
取消
vｂAbｏrｔ
3
终止
vbＲｅtry
4
重试
vｂＩgnore
5
忽略
ｖbＹes
6
是
vbNo
7
否
Ex：
Ｐrivａtｅ Sub Ｆorｍ_Ｌoad（）
Text1.Texｔ = ""
Ｔext1.MａxLength=6
Text２.Tｅxt＝""
Tｅxt2．MaxLength =4
Tｅxｔ２.PasｓwordCｈar= "*“
EｎｄSｕb
ﻩPrivateSuｂTeｘt1_ＬostFoｃus（）
ＩfNｏtＩsNｕｍeｒic（Text1．Teｘt） Theｎ
MsｇBｏx“帐号必须为数字”, ,“警告"
Teｘt1.Text =""
Tｅxt1.SetFｏｃus
EｎdIf
EndSub
ＰｒivａteSub Command1_Cｌiｃk（）
DimiAsIntegｅr
ＩfTｅｘｔ2．Text <>"Gonｇ"Ｔhｅn
i =MsgBox（“密码错误”,5 +ｖbＥxcｌamaｔｉon,“警告"）
Ifｉ＜＞４Theｎ
Eｎd
Ｅｌｓｅ
Text２.Ｔｅｘt =＂"
Tｅxｔ2.SeｔFｏcus
EｎdIｆ
Elsｅ
MｓgBox“密码校验成功!
"
EnｄIf
EndSｕb
Prinｔ函数:
形式:
对象．Priｎt［Sｐc（ｎ）｜Tab（n）］[输出列表]［;|，]
对象：
窗体、图形框或打印机，默认为窗体;
Spc（n）函数：
从当前位置起空ｎ个空格
Ｔaｂ（n）函数:
从最左端开始计算的第ｎ列
分号：
定位在上一个被显示的字符之后
逗号:
定位在下一个打印区开始处（每区1４列）
Fｏrmat格式输出函数:
形式：
Fｏｒmat（表达式[，＂格式字符串＂]）
4.2选择结构
Ｉｆ条件语句
形式：
ﻩIf<表达式＞Tｈeｎ
ﻩﻩ语句块
ﻩＥlseIf<表达式2>Theｎ
ﻩﻩ语句快2
ﻩElｓe
ﻩ语句块3
ＥndＩｆ
或If <表达式> Then<语句＞Eｌｓｅ＜语句块2>
ﻩEx:
已知变量ch中存放了一个字符,判断该字符是字母字符、数字字符还是其他字符
IfUCase（cｈ）>="A"And UCaｓe（ch）<= "Z"Thｅｎ
MsgBｏx（ch+"是字母字符"） '考虑大小写字母
ElseIfcｈ >＝" 0＂ Andch<="9"Then' 数字字符
MsｇBox（ch+ ＂是数字字符"）
Elｓe ' 除上述字符以外的字符
MsｇＢoｘ（ｃh+"是其他字符"）
EnｄＩf
If语句的嵌套
格式:
Ｉｆ表达式1 Tｈeｎ
Ｉf表达式2Then
…
EndIｆ
…
EndIf
SｅlｅctＣasｅ语句
格式:
Select Casｅ变量或表达式
Ｃase 表达式列表１
语句块1
ﻩCaｓe表达式列表２
ﻩﻩ语句块２
ﻩﻩﻩ…
[ＣaseElsｅ
ﻩﻩ语句块n+1］
EnｄＳelect
（表达式:
"A＂;枚举值２,4，6,8；6０To1００;Is<60
Ｓeｌｅct Cａｓe后不能出现多个变量;Case后不能出现变量及有关运算符）
ﻩEx:
已知变量ｃh中存放了一个字符,判断该字符是字母字符、数字字符还是其他字符
SeｌｅcｔCasech
ﻩﻩﻩＣaｓｅ"a＂ To"ｚ"，"A"To "Z"
ﻩﻩMｓgBoｘ（ch＋"是字母字符＂）
ﻩﻩﻩCase＂0"To ＂９"
ﻩﻩﻩﻩＭｓｇBox（ch+"是数字字符"）
CａsｅElse
ﻩﻩﻩﻩＭsgBｏｘ（ ch+"是其他字符"）
EｎｄSeｌect
条件函数
IIf函数:
If…Theｎ…Ｅlsｅ 结构的简洁表示
格式:
IIｆ（表达式,为真时的值,为假时的值）
Cｈoose函数：
根据ｉ值,返回选项列表中第ｉ个选项（i值越出选项范围返回Null）
ﻩ格式:
Ｃhooｓe（整数表达式，选项列表）
Ｅx:
根据Nｏp的值，得到+、－、×、÷中的某运算符
DｉmnopAsＩnｔegeｒ， opAs Cｈａr
Ranｄomｉzｅ（）
noｐ=Ｉnt（Rnｄ（）*４+ １）
oｐ＝Ｃhooｓe（nｏp,"+","-＂, "×",＂÷"）
MsgBox（"noｐ＝" &noｐ & " ｏp="&op）
Ex:
根据当前日期，显示今日是星期几
t= Chooｓｅ（Weekｄay（Now）,“日”，“一”,“二”，“三”,“四”，“五”,“六”）
ＭsgBox（"今天是:
"＆Nｏw＆ｔ）
4．３循环结构
两种类型的循环语句：
计数循环语句,条件型循环语句
For循环语句:
控制循环次数预知的循环结构
格式：
ﻩFor 循环变量=初值Tｏ终值 [Ｓtｅp步长]
语句块
[ExitFor]
语句块
Nexｔ 循环变量
（循环变量必为数值;循环次数
；
步长:
＞0时初值<终值；=1可省略；<0时初值>终值;=０时死循环）
ﻩEx:
计算１~１００的奇数和
ﻩﻩＤimｉ%，suｍ%
Fori=1To100Sｔeｐ 2
sｕｍ=sｕm+i
Neｘｔ i
MsｇBox（sum）
Ｄo-Lｏop循环语句：
Do循环用于控制循环次数未知的循环结构
形式１:
Do｛While|Until｝<条件>
语句块
［ExitDo
语句块］
Ｌoｏp
形式2:
Dｏ
语句块
[Exｉｔ Dｏ
语句块]
Ｌoop {Whｉle｜Untiｌ}＜条件＞
４．４ 其它辅助控制语句
GｏTo语句：
无条件地转移到标号或行号指定的那行语句
格式:
Go To｛标号｜行号}
Eｘiｔ语句
用于退出某种控制结构的执行
格式:
Exit For、ExiｔDo、EｘiｔSub、ＥxｉｔFunction
End语句：
独立的Ｅnd语句用于结束一个程序的运行，它可以放在任何事件过程中
４.5综合应用
Ex：
用辗转相除法求两自然数的最大公约数。
求最大公约数的算法思想:
（1）对于两数m，n，使得m＞n
（２） m除以n得余数r
（3）若r=0，则ｎ为最大公约数，结束;否则执行（4）
（4）m=ｎ,n=r,再重复执行
（2）
４．6 程序调试
错误类型:
语法错误、运行时错误和逻辑错误
调试和排错
ﻩF9设置跟踪-F8跟踪－鼠标指向变量
第5章数组和自定义类型
5.1 数组的概念
Ｅx：
求100个学生的平均成绩，并统计高于平均分的人数。
用简单变量和循环，求平均成绩
Dim mark（99）ＡｓIｎteger'声明数组mark
Dｉmaver！
ovｅrn%，i%
aver=０
Forｉ=0To9９ﻩ '输入成绩，求分数和
maｒk（i）＝IｎｐuｔBox（"输入学生的成绩"）
ａｖer ＝aveｒ +mark（ｉ）
Neｘti
aｖer＝ aｖer/ 1００ '求1０0人的平均分
oｖeｒn=０
Fori=０To99'统计高于平均分的人数
Ｉｆ marｋ（ｉ）>averThen overｎ=overn + 1
Neｘti
MsｇBｏx （＂平均分:
"&aｖer& ＂高于平均分人数：
" &oｖｅrn）
数组:
相同类型变量的集合,数组必须先后使用,声明后在内存可分配一块连续区域
格式:
Dim数组名（下标上界1，下标上界2…） [Aｓ类型]
ﻩﻩ（数组每维大小为下标上界+1）
ﻩEｘ:
Ｄimmark（２,2） Asｌong （3*3数组）
动态数组
建立动态数组要分两步：
用Diｍ 语句声明数组，但不能指定数组大小
Dim 数组名（） Ａs 数据类型
用ReDiｍ语句动态地分配元素个数
ＲｅDim数组名 （下标[，下标2…]）
Eｘ:
Dｉms（）Aｓ Sｉngle
SubFｏrm_Lｏａd（）
ReＤｉms（4,８）
EnｄSub
（Diｍ是说明语句，ReＤim是执行语句；
过程中可多次用ReＤim语句来改变数组的大小，但不能改变维数和类型
在ＲeDiｍ后加Pｒesｅrve参数用来保留数组中的数据,使用后只能改变最后一维的大小）
数组的输入
通过TextBox控件或InpｕｔBox函数输入
Ex:
Ｄims（3，４） ＡSIｎtｅｇｅｒ
Fｏｒi =0Ｔｏ 3
Forｊ=0Ｔｏ4ﻩ
s（I,ｊ）＝InpuｔBox（"输入"&i &“,＂&j&"元素"）
Neｘtj
Neｘt ｉ
数组排序方法：
选择法、冒泡法、插入法、合并排序
5．3 列表框和组合框
列表框:
可显示多个选项供用户选择,不能直接修改其中的内容
组合框:
组合了文本框和列表框的特性而形成的一种控件。
列表框和组合框重要属性
Ｌist:
是一个集合
LｉstＩndex：
选项的序号（从０开始）
LisｔCｏunt:
项目数量
Soｒtｅd:
排序
Texｔ:
被选定的文本内容
ﻩＥｘ：
Ｌist1．ListＩndｅｘ= 2
Lisｔ1.LiｓtCount＝ 6
Lｉst１.Sorted = Fａｌse
Ｌｉｓt1．Teｘt为"C/C＋+程序设计 "
（Ｌist1．Lｉsｔ（Lisｔ1.LｉstＩndex）等于List1.Teｘt）
常用方法
AdｄItem:
把一个项目加入列表
形式：
对象.AddItem项目字符串[,索引值]
（索引值：
决定新增项在列表中的位置,如果省略,则新增项目添加在最后）
RemoｖｅItｅｍ：
删除列表中指定项目
形式:
对象.RemovｅＩteｍ索引值
Ｃlear：
清除列表中所有项目
Ex：
List1.Cleaｒ
重要事件
列表框:
Ｃlick、DｂlClicｋ
组合框：
Ｃlick
5．4自定义类型及数组
Tｙｐe语句:
不同类型数据的集合
形式：
ﻩTypｅ自定义类型名
元素名1 Ａs数据类型名
…
ﻩﻩ元素名ｎAs 数据类型名
EｎｄTypｅ
（自定义类型一般在标准模块文件定义，默认Ｐubliｃ；在窗体模块定义,须加Pｒivate）
自定义类型的声明
形式：
Ｄim变量名 Ａs自定义类型名
Ex：
DimＳ１ AsSｔudＴｙｐe,S2 As SｔudType
自定义类型变量成员的引用
引用自定义类型变量中的某个成员,形式如下:
自定义类型变量名.成员名
例如, S1.Namｅ Ｓ1变量中的姓名
S１.Sex 性别
可利用Witｈ语句简化成员引用:
Wiｔｈ 结构变量对象名
语句块
EnｄWiｔh
5.5综合应用－分类统计
数据输入
Ｅx：
输入一系列数据将它们按分隔符分离存在数组中。
对输入的数据允许修改和自动识别非数字数据。
利用文本框输入和编辑数据;利用Rｅpｌace函数去除重复输入的分隔符。
利用Sｐｌit函数将输入的内容分离到数组中。
第6章过程
6．1函数过程的定义与调用
函数过程的定义:
函数过程名＋％表示返回空值
ﻩ形式:
ﻩ[Publiｃ|Pｒｉvａte]Functiｏn函
升级会员 