VB-知识点总结.docx

VB概述1 VB的特点1可视化的设计平台2面向对象的设计方法对象具有自己的属性（对象的性质）、方法（对象的动作）和事件（对象的响应），它构成对象的三个要素。3事件驱动的编程机制4集成化的开发环境5结构化的设计语言4 VB程序设计VB应用程序的开发有三个步骤：（1）设计应用程序界面。（2）设置对象的属性（3）编写事件驱动代码保存工程简便方法：执行“文件/保存工程”命令（第一次保存文件）系统先打开“文件另存为”对话框，保存窗体文件（或标准模块文件），然后再打开“工程另存为”对话框，保存工程文件。保存修改后的工程文件选择“文件/保存工程”命令保存所做的修改，（保存与工程有关的修改过的窗体文件或标准模块文件）。VB基础知识常量（1）字符串常量用双引号括起来的字符序列（除双引号和回车符）。例如：China“I am a student.”95.3%计算机软件（2）数值常量整型 1234（十进制）长整型 12345678（十进制）单精度数：有三种形式，12.34，123！，123.45E-5双精度数：有两种形式，12.34#，123.45D-5在常数后面加上类型说明符：% 整型 长整型 ! 单精度# 双精度 $ 字符串型。2. 符号常量格式：Const常量名 = 表达式功能：定义一个符号常量来表示表达式的值。说明：“常量名”可加以类型说明符。符号常量的类型由类型说明符或表达式的类型决定。Const PI = 3.141593变量1. 变量的命名变量名以字母开头，后跟字母、数字和下划线组成说明：（1）变量名不能是保留字（2）VB变量名不区分字母大小写。2. 变量的类型（1）用类型说明符在变量的尾部加上类型说明符：% 整型 长整型 ! 单精度# 双精度 $ 字符串型。例如：Num%，Str1$均是合法的变量名在引用时，可以省略类型说明符。（2）定义变量时声明其类型格式：Dim 变量名 As 类型“类型”可为基本数据类型或用户自定义的类型。Boolean（布尔型） Long（长整型）Single（单精度型） Double（双精度型）String（字符串型） Variant（变体型）用户自定义类型例如：Dim str1 As String , country As String*20Dim i As Integer , sum As Single定义变量后，数值型变量的初值为0字符型变量的初值为空字符串其中：变长字符串的初值是长度为0定长字符串的初值的长度等于定义值。3. 变体类型变量如未定义类型的变量例如：Dim sum As VariantDim sum运算符与表达式1. 算术运算符（8种）优先级（从高到低）：指数（）取负（-）乘法、浮点除法（* , /）整数除法（）取模（Mod）加法、减法（+ , -）。整除：被除数和除数为整数，结果为整数。31.7 5.88326 结果为：5取模（求余）运算：结果为整数除法的余数。31.77 Mod 5.88 （四舍五入）32 Mod 6， 余数为23 Mod 6 余数为3字符串表达式字符串运算符： 或 功能：把字符串连接成一个字符串。说明：(1) 符号“”与字符串变量之间应间隔一个空格，例如：str1 str2(2)“”能强制把其它类型的数据转换为字符串，而“”不能。例如：2008 奥运会 2008奥运会2008 + 奥运会 2008奥运会 注意：Print 123 + 567 结果：690Print abc + 567 出错：类型不匹配常用内部函数数学函数函 数 功 能 Abs(x) 返回x的绝对值 Int(x) 求不大于x的最大整数 Int(7.8)结果为7， Int(-7.8)结果为-8 Cint(x) 把x小数四舍五入，转换为整数， Exp(x) 计算ex，e是自然数2.718281 Log(x) 求x的自然对数 Sqr(x) 求x的平方根 Rnd 返回01之间的随机数： 字符串函数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可以产生不同的随机数。产生指定范围的随机数：l 产生0n之间的随机数（不含0和n）Rnd*nl 产生0n之间的随机整数（含0，不含n）Int（Rnd*n）l 产生ab之间的随机整数（含a，不含b）Int（b-a）*Rnd+a）l 产生ab之间的随机整数（含a和b）Int（b-a+1）*Rnd+a）顺序结构结构化程序三种基本结构：顺序结构、选择结构和循环结构。1 赋值语句变量 = 表达式属性名 = 属性值注意：当变量类型与表达式的类型不同时，VB自动将表达式的类型强制转换为变量类型。例如：Dim Num As IntegerNum=8.89 (将9赋给Num，四舍五人)3 数据输入方法1：用文本框例：Dim m As Integerm=Val (Text1.Text)方法2：用Inputbox（）函数例：m =Val(InputBox(enter m:)方法3：从文件输入Input#2，m4 输出数据方法1：用文本框例：Text1.Text=n或 Text1=n方法2：用标签例：Label1.Caption = n方法3：用Print方法例：Print n方法4：输出到列表框例：List1.AddItem n方法5：输出到文件例：Open abc.dat For Output As #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）注意：表示：axba = x And x = b选择结构1单行If语句If 条件 Then 语句组1 Else 语句组2语句组：各语句间需用“：”分隔。2块结构If语句If 条件 Then语句块1Else语句块2End If例：计算分段函数1+x (x0)y=1-2x (x0)If x=0 Then y=1+xElsey=1-2*xEnd If用单行If语句：If x=0 Then y=1+x Else y=1-2*x或：If x=0 Then y=1+xIf x0 Then y=1-2*x 3.多分支选择结构If 条件1 Then语句块1ElseIf 条件2 Then语句块2ElseIf 条件3 Then语句块3Else语句块n+1End If从多个条件中，选择执行一个语句块“纵然分支众多，仅选其一”说明：当有多个条件为真时，只能执行最前面的一个语句块。注意：ElseIf之间不能有空格【例】学生成绩判定。Private Sub Command1_Click()x =Val（InputBox(输入学生成绩：)）If x =90 ThenPrint “优”ElseIf x =80 ThenPrint “良”ElseIf x =70 ThenPrint “中”ElseIf x 60 ThenPrint “及格”ElsePrint “不及格”End IfEnd Sub4.2.4 IIf函数IIf是单行If语句的简单版本。变量 = IIf（条件，True部分，False部分）注意：IIf函数中的三个参数都不能省略。例：计算分段函数1+x (x0)y=1-2x (x0)Private Sub Command1_Click()Dim x As Single,y As Singlex= Val(Text1.Text)y=IIf(x=0,1+x,1-2*x)Text2.Text = yEnd Sub【例】判闰年。闰年的条件：（1）被4整除，但不能被100整除；（2）能被400整除。最好：If x Mod 400 = 0 Theny$ = 是闰年ElseIf x Mod 4 = 0 And x Mod 100 0 Theny$ = 是闰年Elsey$ = 不是闰年End If也可x = Val(InputBox(输入年份)If x Mod 4 = 0 and x Mod 100 0 or x Mod 400 = 0 Theny$ = 是闰年Elsey$ = 不是闰年End If4.Select Case语句用于实现多分支结构。Select Case 测试表达式Case 条件1语句块1Case 条件2语句块2Case Else语句块n+1End Select功能：从多个条件中选择执行第一个符合条件的语句，都不符合，则执行Case Else后的语句块。注意条件：常量表： 1，3，5测试范围：10 to 20,“a” to “z”比较范围：Is 10(不能为逻辑表达式)【例】学生成绩评定Private Sub Command1_Click()x = Val(InputBox(输入考试成绩)Select Case xCase 90 To 100y$ = 优Case 80 To 89y$ = 良Case 70 To 79y$ = 中Case 60 To 69y$ = 及格Case 0 To 59y$ = 不及格Case Elsey$ = 输入错误End SelectForm1.Print 成绩:; x, 等级:; y$End Sub循环结构“当型”循环：当条件为真，执行循环体。“直到型”循环：做循环，直到条件为真为止。1.For-Next循环常用于循环次数已知。For 循环变量 = 初值 To 终值 Step步长循环体 Exit For Next 循环变量【例】计算n!。Private Sub Command1_Click()n = Val(InputBox(输入一个自然数)Term = 1For i = 1 To n Term = Term * iNext iPrint n; !=; TermEnd Sub【例】计算2 + 4 + 6 + + 100的值。Private Sub Command1_Click()Sum = 0For x = 2 To 100 Step 2Sum = Sum + xNext xForm1.Print Sum=; SumEnd Sub【例】计算1 + 2! + 3! + + 10!Private Sub Command1_Click()T = 1S = 0For k = 1 To 10T = T * kS = S + TNext kPrint SEnd Sub2While-Wend循环适合处理循环次数未知的循环。While 条件语句块Wend功能：当条件为真时执行循环。【例】计算1+2+3+100Private Sub Command1_Click()Dim n As Integer, s As Integers=0n =1While n=100s=s+nn=n+1WendLable1.Caption=“1+2+3+100=” sEnd Sub3Do-Loop循环Do语句块Exit DoLoop While|Until 条件Do While|Until 条件语句块 Exit Do Loop功能：While 条件当“条件”为True执行循环体。Until 条件“条件”为False执行循环体。如无条件，则为死循环。说明：格式1：“先循环，后判断”，至少执行一次循环。格式2：“先判断，后循环”，如条件不满足，则一次循环也不执行。【例】计算1+2+3+100s=0n =1Do while n=100s=s+nn=n+1Loop也可s=0n =1Do Until n100s=s+nn=n+1Loop【例】将十进制数转换为二进制数Private Sub Form_Click()Dim m As Integerm = InputBox(enter m:)a$ = While m 0r = m Mod 2a$ = r a$m = m 2WendPrint a$End Sub注意： a$ = a$ r则为：4=001列表框列表框的方法AddItem方法：用于在列表框中插入一个列表项。格式：列表框. AddItem 项目字符串,索引值如省略索引值，则在列表框的最后插入新列表项。【例】将文本框内容添加到列表框1Private Sub Command1_Click()List1.AddItem Text1.TextEnd Sub多重循环说明：（1）必须完整嵌套，不得交叉。（2）Exit For语句和Exit Do语句只能退出当前层循环。指定每行显示数据的个数For n=1 to 30Print n; ” ”;If n Mod 10 = 0 Then Print Next n 每显示10个数据换行常用算法(1)1. 不定方程求解。【例】百鸡问题x+y+z=1005x+3y+z/3=100Private Sub Command1_Click()Dim x As IntegerDim y As Integer, z As IntegerPrint 公鸡, 母鸡, 小鸡For x = 0 To 20For y = 0 To 33z = 100 - x - yIf 5 * x + 3 * y + z / 3 = 100 Then Print x, y, zEnd If Next yNext xEnd Sub2求最大公约数和最小公倍数辗转相除法：【例】计算最大公约数和最小公倍数。Private Sub Command1_Click()Dim m As Integer, n As IntegerDim u As Integer, v As Integerm = Val(Text1.Text)n = Val(Text2.Text)If m n Thenu = m: v = nElseu = n : v = mEnd IfDor = u Mod vu = vv = rLoop Until r = 0Print 最大公约数：; uPrint 最小公倍数：; m * n / uEnd Sub或r = u Mod vDo While r0u = vv = rr = u Mod vLoop Print 最大公约数：; v3判素数（质数）【例】判n是否为素数。Private Sub Command1_Click()Dim n As Integer, i As Integern = Val(InputBox(输入正整数)For i = 2 To n - 1If n Mod i = 0 Then Exit ForNext iIf i n - 1 ThenPrint n; 是质数ElsePrint n; 不是质数End IfEnd Sub例 求100200之间素数，并写入顺序文件。Private Sub Command1_Click()Open “shusu.dat” For Output As #1For n= 101 To 200 step 2S=1 是For i = 2 To Int(Sqr(n)If n Mod i = 0 ThenS=0 不是Exit ForEnd IfNext IIf s=1 Then Write#1, nNext nclose #1End Sub添加到列表框：List1.AddItem n 数 组 61 静态数组 编译时分配存储空间。 定义：Dim b(3，4)As Long 分配45个长整型变量的空间， 二维数组在内存按行的顺序存放 b（0，0） b（0，1） B（0，2） b（0，3） b（0，4） b（1，0） b（1，1） B（1，2） b（1，3） b（1，4） b（2，0） b（2，1） B（2，2） b（2，3） b（2，4） b（3，0） b（3，1） B（3，2） b（3，3） b（3，4） 例：Dim b(3，2 to 4,1 to 3) As Integer 共分配 433=36个元素，共72 Byte Option 语句 格式：Option Base 1 注意：只能出现在窗体层或模块层 必须位于数组定义之前。 例: Option Base 1 Dim a(10) As Integer，x(5，5) As String 每一维下标的下界均从1开始。 动态数组 运行时分配内存区， 定义分两步进行： （1）先在窗体层、标准模块或过程中Dim或Public声明一个 没有下标的数组。 （2）过程中用ReDim语句定义带下标的数组。 说明： 声明时不指定数组的维数 数组的维数由第一次出现的ReDim语句指定。 例如： Dim Test() As Integer Dim n As Integer Sub Form_click（） n=InputBox（”Enter a value:”） ReDim Test(n) End Sub 数组元素的引用 形式： 数组名(下标） 数组元素赋初值 运行前对数组进行初始化。 格式：数组变量名=Array( 初值表 ) 说明：数组下标下界缺省为0，只能对一维数组初始化 【例】 Dim a As As Variant a=Array（1，2，3，4，5，6，7） 注意：下标从06 【例】一维数组元素赋初值。 Option Base 1 Private Sub Form_Click() Dim a As Variant a = Array(1, 2, 3, 4, 5, 6, 7) For i = 1 To 7 Print a(i); Next i End Sub 运行结果： 1 2 3 4 5 6 7 数组输入/输出 一般通过For循环语句和InputBox函数实现， 一维数组用单重循环。 二维数组采用双重循环。 【例】一维数组的输入和输出。 For i = 1 To 10 a(i) = InputBox(Enter data:) Next i 【例】二维数组的输入和输出。 1 2 3 4 5 6 7 8 9 For i = 1 To 3 For j = 1 To 3 a(i, j) = InputBox(enter data:) Next j Next i For i = 1 To 3 For j = 1 To 3 Print a(i, j); ; Next j Print Next i 【例】用Rnd产生10个0100之间随机数。 For i = 1 To 10 a(i) = Int(100 * Rnd) Next i 用户自定义类型 定义格式： Type 自定义类型名 元素名1 As 类型名 元素名2 As 类型名 元素名n As 类型名 End Type 其中： 类型名可为任何基本类型，也可为用户自定义类型。 说明： （1）一般在标准模块中定义，默认为Public。 如在窗体模块的“声明”段定义，则必须加上Private， 且只能在窗体模块中使用。 （2）自定义类型中的元素可以为数组名。 【例】 Private Type student num As String * 8 name As String * 8 total As Integer average As Integer End Type 1自定义类型变量的声明 Dim 变量名 As 自定义类型名 例如： Dim stud As Student 2引用自定义类型变量中的元素 形式：变量名 .元素名 3自定义类型数组的声明和使用 声明：Dim st(5) As Student 引用形式： 记录数组元素.成员名 【例】输入5个学生的学号、姓名、和3门课的成绩，利用自定义类型数组，计算每个学生的总分和平均分，并按平均成绩从高到低输出学生的成绩单。 Private Type student no As String * 6 name As String * 6 s1 As Single s2 As Single s3 As Single total As Single aver As Single End Type Private Sub Form_Click() Dim a(1 To 5) As student, t As student Open “stud.dat” For Output As #1 Open “stud.dat” For Random As #2 Len= Len(t) 打开随机文件 n = 5 For i = 1 To n a(i).total=a(i).s1+a(i).s2 + a(i).s3 a(i).aver = a(i).total / 3 Next i For i = 1 To n - 1 For j = i + 1 To n If a(i).aver a(j).aver Then t = a(i) a(i) = a(j) a(j) = t End If Next j Next i Print 学号 姓名 语文 数学 英语 总分 平均分 For i = 1 To n Print Tab(2); a(i).no; Tab(10); a(i).name; Tab(18); a(i).s1; ; Print a(i).s2; ; a(i).s3; ; a(i).total; ; a(i).aver Write#1,a(i).no,a(i).name,a(i).s1, a(i).s2,a(i).s3,a(i).total, (i).aver Put#2，i, a(i) 写入随机文件 Next i Close#1 End Sub 注意: 写入文件一行一个记录 运行结果 说明： 交换两个记录数组元素的值，则该记录数组元素的所有成员都将交换。 6.7 常用算法（2） 1. 求最大值和最小值 【例】找10个数中的最大值与最小值。 For i = 1 To 10 If a(i) Max Then Max = a(i) If a(i) Min Then Min = a(i) Next i 6.7.2 排序 升序：从小到大 降序：从大到小 1.比较交换法 For i = 1 To n - 1 For j = i + 1 To n If a(i) a(j) Then t = a(i) a(i) = a(j) a(j) = t End If Next j Next i 2选择法排序 For i = 1 To n - 1 p = i For j = i + 1 To n If a(p) a(j) Then p = j Next j t = a(i) a(i) = a(p) a(p) = t Next i 3冒泡法排序 特点：相邻的两个元素进行比较 For i = 1 To n - 1 For j = 1 To n - i If a(j) a(j + 1) Then t = a(j) a(j) = a(j + 1) a(j + 1) = t End If Next j Next i 查询 1. 顺序查询 从一组数据中，按顺序地查找指定的数据。 【例】用顺序查询法在下列数据中查找关键字值 k = Val(InputBox(输入要查询的数) p = 1 While k a(p) And p n p = p + 1 Wend If k = a(p) Then Print k; be found,on; p; th position. Else Print k; has not be found. End If 2 折半查询 折半查找也称为二分法查询 只能对有序数列进行查询。 【例】用折半查询法查找关键字值66。 -123，-10，5，8,30,56,59,66，90,518 Option Base 1 Private Sub Form_Click() Dim a As Variant a = Array(-123, -10, 5, 8, 30, 56, 59, 66, 90, 518) n = UBound(a) Print 数组a中的10个数为: For Each ii In a Print ii; ; Next ii Print k = Val(InputBox(输入要查询的数) Print 要查询的数是:; k low = 1 hig = n find = -1 While low = hig And find = -1 m = (low + hig) 2 If k = a(m) Then find = 1 Print k; has be found,on; m; th position. Else If k a(m) Then hig = m - 1 Else low = m + 1 End If End If Wend If find = -1 Then Print k; has not be found. End If End Sub 注意：若数据按降序排列 If k a(m) Then low = m + 1 Else hig = m - 1 End If 【例】输出前5名名次、运动员号和成绩， 并将结果写入顺序文件。 Private Sub Form_Click() Open “stud.dat” For Output As #1 Dim no(1 To 16) As String Dim a(1 To 16) As Single For i = 1 To 16 no(i) = InputBox(输入运动员编号:) a(i) = Val(InputBox(输入运动员成绩:) Next i For i = 1 To 15 k = i For j = i + 1 To 16 If a(k) a(j) Then k = j Next j t = no(i) no(i) = no(k) no(k) = t t = a(i) a(i) = a(k) a(k) = t End If Next i Print 名次 运动员编号 运动员成绩 For i = 1 To 5 Print i, no(i), a(i) Write#1,i,no(i),a(i) Next i End Sub 过 程 函数过程的定义 Function函数过程名(形参表) As 类型 函数过程名=表达式 End Function 说明： 函数过程名有值，有类型，在过程体必须被赋值 调用形式： 函数过程名(实参表) 子程序过程定义 Sub 子程序过程名(形参表) End Sub 说明：子程序过程名无值，无类型 调用形式： Call 子程序过程名(实参表) 【例】函数过程使用 编写函数过程计算n! Private Sub Command1_Click() n = Val(Text1.Text) Text2.Text =fact(n) End Sub Function fact(n) f = 1 For i = 1 To n f = f * i Next i fact = f End Function 【例】子程序过程计算n! Private Sub Command1_Click() n = Val(Text1.Text) Call fact(n, f) Text2.Text = f End Sub Private Sub fact(n, f) f = 1 For i = 2 To n f = f * i Next i End Sub 说明： 由若干变元计算一个值用Function过程 计算若干值,只能用Sub过程。 7.3 参数传送 1传值方式 将实参的值传给形参，数据传送方向为单向，形参的改变 对实参无影响。 实参：常量、（变量）、或表达式 形参：变量 或 实参：变量 形参前加关键字ByVal 例：Sub fact(ByVal n) 2传址方式 将实参的地址传给形参，使实参和形参共用同一存储单元。 数据传送方向为双向，形参的改变对实参有影响。 实参：变量、数组名() 形参：变量、数组名() 或 形参 前加ByRef 例：Sub fact(ByRef n) VB默认方式为传址方式 说明： 从过程中，返回计算结果，必须采用传址方式。 Private Sub Form_Click() n = 100 m = 200 Call abc(n, m) Print n, m End Sub Public Sub abc(ByVal x, y) t = x x = y y = t Print x, y End Sub 输出：200 100 100 100 变量的作用域 作用域指变量能被某一过程识别的范围。 1全局变量 在标准模块的通用段用Public声明变量 可在工程的所有模块、所有过程中使用 作用范围为整个应用程序。 例如： Public x As Integer,y As Single 2模块级变量 在窗体或标准模块的通用段 用Private或Dim声明变量 作用域：在声明它的整个模块的所有过程有效。 例如： Private x As Integer,y As Single 或 Dim x As Integer，y As Single 3局部变量 在过程中定义的变量 作用域：为其所在的过程。 随过程的调用而分配存储单元，过程执行结束，所占用的存储 单元被释放。 静态变量： 用Static声明的局部变量，在过程调用结束后保留值。 【例】动态变量、静态变量和模块级变量的作用域。 Dim c As Integer Private Sub Form_Click() a = 1: b = 2: c = 3 Print a, b, c For i = 1 To 3 Call test Next i Print A, B, C Print a, b, c End Sub Sub test() Static a a = a + 1 b = b + 1 c = c + 1 Print a, b, c End Sub 数据文件 1 顺序文件的打开 格式：Open “文件名” For 方式 As #文件号 方式： Output顺序写入方式 Input顺序读出方式，指定的文件必须存在。 Append顺序添加方式 写顺序文件语句(建立文件) 格式：Write#文件号，输出项表 功能：将输出项表中的数据写入顺序文件。 说明：各项之间用逗号分隔。 【例】建立一个学生成绩文件P Private Sub Form_Click() Dim no As Long, nam As String Dim score As Single Open d:chengji1.dat For Output As #2 no = InputBox(