VB知识点总结.docx

1、VB知识点总结VB概述1 VB的特点1可视化的设计平台2面向对象的设计方法对象具有自己的属性（对象的性质）、方法（对象的动作）和事件（对象的响应），它构成对象的三个要素。3事件驱动的编程机制4集成化的开发环境5结构化的设计语言4 VB程序设计VB应用程序的开发有三个步骤：（1）设计应用程序界面。（2）设置对象的属性（3）编写事件驱动代码保存工程简便方法：执行“文件/保存工程”命令（第一次保存文件）系统先打开“文件另存为”对话框，保存窗体文件（或标准模块文件），然后再打开“工程另存为”对话框，保存工程文件。保存修改后的工程文件选择“文件/保存工程”命令保存所做的修改，（保存与工程有关的修改过的窗

2、体文件或标准模块文件）。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常量名 = 表达式功能：定义一个符号常量来表示表达式的值。说明：“常量名”可加以类型说明符。符号常量的类型由类型说明符或表达式

3、的类型决定。Const PI = 3.141593变量1. 变量的命名变量名以字母开头，后跟字母、数字和下划线组成说明：（1）变量名不能是保留字（2）VB变量名不区分字母大小写。2. 变量的类型（1）用类型说明符在变量的尾部加上类型说明符：% 整型 & 长整型 ! 单精度# 双精度 $ 字符串型。例如：Num%，Str1$均是合法的变量名在引用时，可以省略类型说明符。（2）定义变量时声明其类型格式：Dim 变量名 As 类型“类型”可为基本数据类型或用户自定义的类型。Boolean（布尔型） Long（长整型）Single（单精度型） Double（双精度型）String（字符串型） Vari

4、ant（变体型）用户自定义类型例如：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、 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)

6、 返回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）

7、 返回字符串首字母ASCII码 Chr$(n) ASCII码转字符 说明:（l）三角函数Sin、Cos和Tan自变量的单位是弧度反正切函数Atn(x)的返回值单位为弧度。度转换为弧度：1 = 3.14159/180 *x（2）用函数Rnd可以产生不同的随机数。产生指定范围的随机数： 产生0n之间的随机数（不含0和n）Rnd*n 产生0n之间的随机整数（含0，不含n）Int（Rnd*n） 产生ab之间的随机整数（含a，不含b）Int（b-a）*Rnd+a） 产生ab之间的随机整数（含a和b）Int（b-a+1）*Rnd+a）顺序结构结构化程序三种基本结构：顺序结构、选择结构和循环结构。1 赋值语

8、句变量 = 表达式属性名 = 属性值注意：当变量类型与表达式的类型不同时，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方

9、法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

10、”表示。关系表达式1. 关系运算符（6种）= 、= 优先级相同，运算从左到右。2. 关系表达式例如：“apply” “apple”按ASCII码逐字符进行比较。空格“0”“9”“A”“Z” “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

11、(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 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+

12、x (x0)y=1-2x (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

13、 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$ =

14、 良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(输入一个自然数)Te

15、rm = 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 kPri

16、nt 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 条件当“条件”为T

17、rue执行循环体。Until 条件“条件”为False执行循环体。如无条件，则为死循环。说明：格式1：“先循环，后判断”，至少执行一次循环。格式2：“先判断，后循环”，如条件不满足，则一次循环也不执行。【例】计算1+2+3+100s=0n =1Do while 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$

18、& 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个数

19、据换行常用算法(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求最大公约数和最小公倍数辗转相除法：【例】计算最大公约数和最小公倍数。Priva

20、te 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

21、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 Outpu

22、t 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）

23、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）先在窗体层

24、、标准模块或过程中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，只能对一维数组初始化 【例】 D

25、im 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 1

26、0 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 Str