超强大VB复习资料。完美破解版

VB概述§1VB的特点1．可视化的设计平台2．面向对象的设计方法对象具有自己的属性（对象的性质）、方法（对象的动作）和事件（对象的响应），它构成对象的三个要素。3．事件驱动的编程机制4．集成化的开发环境5．结构化的设计语言§4VB程序设计VB应用程序的开发有三个步骤：（1）设计应用程序界面。（2）设置对象的属性（3）编写事件驱动代码保存工程简便方法：执行“文件/保存工程”命令（第一次保存文件）系统先打开“文件另存为”对话框，保存窗体文件（或标准模块文件），然后再打开“工程另存为”对话框，保存工程文件。保存修改后的工程文件选择“文件/保存工程”命令保存所做的修改，（保存与工程有关的修改过的窗体文件或标准模块文件）。VB基础知识常量（1）字符串常量用双引号括起来的字符序列（除双引号和回车符）。例如：China“Iamastudent.”95.3%计算机软件（2）数值常量整型1234（十进制）长整型12345678（十进制）单精度数：有三种形式，12.34，123！，123.45E-5双精度数：有两种形式，12.34#，123.45D-5在常数后面加上类型说明符：%整型&长整型!单精度#双精度$字符串型。2.符号常量格式：Const常量名=表达式功能：定义一个符号常量来表示表达式的值。说明：“常量名”可加以类型说明符。符号常量的类型由类型说明符或表达式的类型决定。ConstPI=3.141593变量1.变量的命名变量名以字母开头，后跟字母、数字和下划线组成说明：（1）变量名不能是保留字（2）VB变量名不区分字母大小写。2.变量的类型（1）用类型说明符在变量的尾部加上类型说明符：%整型&长整型!单精度#双精度$字符串型。例如：Num%，Str1$均是合法的变量名在引用时，可以省略类型说明符。（2）定义变量时声明其类型格式：Dim变量名As类型“类型”可为基本数据类型或用户自定义的类型。Boolean（布尔型）Long（长整型）Single（单精度型）Double（双精度型）String（字符串型）Variant（变体型）用户自定义类型例如：Dimstr1AsString,countryAsString*20DimiAsInteger,sumAsSingle定义变量后，数值型变量的初值为0字符型变量的初值为空字符串其中：变长字符串的初值是长度为0定长字符串的初值的长度等于定义值。3.变体类型变量如未定义类型的变量例如：DimsumAsVariantDimsum运算符与表达式1.算术运算符（8种）优先级（从高到低）：指数（∧）取负（-）乘法、浮点除法（*,/）整数除法（\）取模（Mod）加法、减法（+,-）。整除：被除数和除数为整数，结果为整数。31.7\5.8832\6结果为：5取模（求余）运算：结果为整数除法的余数。31.77Mod5.88（四舍五入）32Mod6，余数为23Mod6余数为3字符串表达式字符串运算符：&或＋功能：把字符串连接成一个字符串。说明：(1)符号“&”与字符串变量之间应间隔一个空格，例如：str1&str2(2)“&”能强制把其它类型的数据转换为字符串，而“＋”不能。例如：2008&奥运会2008奥运会2008+奥运会2008奥运会注意：Print123+567结果：690Printabc+567出错：类型不匹配常用内部函数数学函数函数功能Abs(x)返回x的绝对值Int(x)求不大于x的最大整数Int(7.8)结果为7，Int(-7.8)结果为-8Cint(x)把x小数四舍五入，转换为整数，Exp(x)计算ex，e是自然数2.718281Log(x)求x的自然对数Sqr(x)求x的平方根Rnd返回0～1之间的随机数：字符串函数Len（str）返回字符串长度Left$(str，n)取字符串左边n个字符Right$(str，n)取字符串右边n个字符Mid$(str，p[，n])从位置p开始，取n个字符，如n省略，取到最后Str$(num)数值转字符串Val(str)字符串转数值Asc（str）返回字符串首字母ASCII码Chr$(n)ASCII码转字符说明:（l）三角函数Sin、Cos和Tan自变量的单位是弧度反正切函数Atn(x)的返回值单位为弧度。度转换为弧度：1°=3.14159/180*x（2）用函数Rnd可以产生不同的随机数。产生指定范围的随机数：产生0～n之间的随机数（不含0和n）Rnd*n产生0～n之间的随机整数（含0，不含n）Int（Rnd*n）产生a～b之间的随机整数（含a，不含b）Int（（b-a）*Rnd+a）产生a～b之间的随机整数（含a和b）Int（（b-a+1）*Rnd+a）顺序结构结构化程序三种基本结构：顺序结构、选择结构和循环结构。1赋值语句变量=表达式属性名=属性值注意：当变量类型与表达式的类型不同时，VB自动将表达式的类型强制转换为变量类型。例如：DimNumAsIntegerNum=8.89(将9赋给Num，四舍五人)3数据输入方法1：用文本框例：DimmAsIntegerm=Val(Text1.Text)方法2：用Inputbox（）函数例：m=Val(InputBox(enterm:))方法3：从文件输入Input#2，m4输出数据方法1：用文本框例：Text1.Text=n或Text1=n方法2：用标签例：Label1.Caption=n方法3：用Print方法例：Printn方法4：输出到列表框例：List1.AddItemn方法5：输出到文件例：Openabc.datForOutputAs#1Write#1,n【例】交换变量a、b的值。用中间变量t作暂存单元，必须与交换的变量同类型。t=a：a=b：b=t3.2窗体窗体常用的方法Print，窗体事件1.Click事件2.Load事件Load是把窗体装入工作区事件，Form_Load()事件是执行程序时自动触发的，因此常用来在启动程序时对属性和变量进行初始化。3.UnLoad事件关闭窗体触发该事件选择结构满足条件为“真”，用“True”表示；不满足条件为“假”，用“False”表示。关系表达式1.关系运算符（6种）=、、、、=、=优先级相同，运算从左到右。2.关系表达式例如：“apply”“apple”按ASCII码逐字符进行比较。空格“0”…“9”“A”…“Z”“a”…“z”“apply”“apple”结果为True逻辑表达式逻辑运算符：Not、And、Or优先级：逻辑非（Not）、逻辑与（And）、逻辑或（Or）注意：表示：a≤x≤ba=xAndx=b选择结构1．单行If语句If条件Then语句组1[Else语句组2]语句组：各语句间需用“：”分隔。2．块结构If语句If条件Then语句块1Else语句块2EndIf例：计算分段函数1+x(x≥0)y=1-2x(x0)Ifx=0Theny=1+xElsey=1-2*xEndIf用单行If语句：Ifx=0Theny=1+xElsey=1-2*x或：Ifx=0Theny=1+xIfx0Theny=1-2*x3.多分支选择结构If条件1Then语句块1ElseIf条件2Then语句块2ElseIf条件3Then语句块3……Else语句块n+1EndIf从多个条件中，选择执行一个语句块“纵然分支众多，仅选其一”说明：当有多个条件为真时，只能执行最前面的一个语句块。注意：ElseIf之间不能有空格【例】学生成绩判定。PrivateSubCommand1_Click()x=Val（InputBox(输入学生成绩：)）Ifx=90ThenPrint“优”ElseIfx=80ThenPrint“良”ElseIfx=70ThenPrint“中”ElseIfx60ThenPrint“及格”ElsePrint“不及格”EndIfEndSub4.2.4IIf函数IIf是单行If语句的简单版本。变量=IIf（条件，True部分，False部分）注意：IIf函数中的三个参数都不能省略。例：计算分段函数1+x(x≥0)y=1-2x(x0)PrivateSubCommand1_Click()DimxAsSingle,yAsSinglex=Val(Text1.Text)y=IIf(x=0,1+x,1-2*x)Text2.Text=yEndSub【例】判闰年。闰年的条件：（1）被4整除，但不能被100整除；（2）能被400整除。最好：IfxMod400=0Theny$=是闰年ElseIfxMod4=0AndxMod1000Theny$=是闰年Elsey$=不是闰年EndIf也可x=Val(InputBox(输入年份))IfxMod4=0andxMod1000orxMod400=0Theny$=是闰年Elsey$=不是闰年EndIf4.SelectCase语句用于实现多分支结构。SelectCase测试表达式Case条件1语句块1Case条件2语句块2……CaseElse语句块n+1EndSelect功能：从多个条件中选择执行第一个符合条件的语句，都不符合，则执行CaseElse后的语句块。注意条件：常量表：1，3，5测试范围：10to20,“a”to“z”比较范围：Is10(不能为逻辑表达式)【例】学生成绩评定PrivateSubCommand1_Click()x=Val(InputBox(输入考试成绩))SelectCasexCase90To100y$=优Case80To89y$=良Case70To79y$=中Case60To69y$=及格Case0To59y$=不及格CaseElsey$=输入错误EndSelectForm1.Print成绩:;x,等级:;y$EndSub循环结构“当型”循环：当条件为真，执行循环体。“直到型”循环：做循环，直到条件为真为止。1.For-Next循环常用于循环次数已知。For循环变量=初值To终值[Step步长]循环体[ExitFor]Next循环变量【例】计算n!。PrivateSubCommand1_Click()n=Val(InputBox(输入一个自然数))Term=1Fori=1TonTerm=Term*iNextiPrintn;!=;TermEndSub【例】计算2+4+6+……+100的值。PrivateSubCommand1_Click()Sum=0Forx=2To100Step2Sum=Sum+xNextxForm1.PrintSum=;SumEndSub【例】计算1+2!+3!+……+10!PrivateSubCommand1_Click()T=1S=0Fork=1To10T=T*kS=S+TNextkPrintSEndSub2．While-Wend循环适合处理循环次数未知的循环。While条件语句块Wend功能：当条件为真时执行循环。【例】计算1+2+3+……+100PrivateSubCommand1_Click()DimnAsInteger,sAsIntegers=0n=1Whilen=100s=s+nn=n+1WendLable1.Caption=“1+2++3+……+100=”&sEndSub3．Do-Loop循环Do语句块[ExitDo]Loop[While|Until条件]Do[While|Until条件]语句块[ExitDo]Loop功能：While条件——当“条件”为True执行循环体。Until条件——“条件”为False执行循环体。如无条件，则为死循环。说明：格式1：“先循环，后判断”，至少执行一次循环。格式2：“先判断，后循环”，如条件不满足，则一次循环也不执行。【例】计算1+2+3+……+100s=0n=1Dowhilen=100s=s+nn=n+1Loop也可s=0n=1DoUntiln100s=s+nn=n+1Loop【例】将十进制数转换为二进制数PrivateSubForm_Click()DimmAsIntegerm=Inpu