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（字
4、符串型） 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）加法、减法（+ , -）。 整除：被除数和除数为整数
5、，结果为整数。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 结果：690 Print abc + 567 出错：类型不匹配 常用内部函数数学函数函
6、 数功 能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返回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码C
7、hr$(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，m 4 输出数据方法1：用文本框例：Text1.Text=n或 Text1=n方法2：用标签例：Label1.Caption = n方法3：用Print方法例：Print n方法4：输出到列表框例：List1
9、.AddItem n方法5：输出到文件例：Open abc.dat For Output As #1Write#1, n 【例】交换变量a、b的值。用中间变量t作暂存单元，必须与交换的变量同类型。 t = a ： a =b ： b = t 3.2 窗 体窗体常用的方法Print，窗体事件1. Click事件 2. Load事件Load是把窗体装入工作区事件，Form_Load()事件是执行程序时自动触发的，因此常用来在启动程序时对属性和变量进行初始化。3. UnLoad事件关闭窗体触发该事件 选择结构满足条件为“真”，用“True”表示；不满足条件为“假”，用“False”表示。关系表达式1.
10、 关系运算符（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 语句块1 Else 语句块2 End If例：计算分段函数 1+x (x0) y= 1-2x
11、(x=0 Theny=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 Then Print “优” ElseIf x =80 Then Print “良” ElseIf x =70 Then Print “中” ElseIf x 60 Then Print “及格”Else Print “不及格”End IfEnd Sub 4.2.4 IIf函数IIf是单行If语句的简单版本。变量 = IIf（条件，True部分，False部分）注意：IIf函数中的三个参数都不能省略。
12、 例：计算分段函数 1+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 Then y$ = 是闰年ElseIf x Mod 4 = 0 And x Mod 100 0 Then y$ = 是闰年Else y$ = 不是闰年End If 也可x = Val(InputBox(输入年份)If x Mod 4 = 0 and x Mod 100 0 or x Mod 400 = 0 Theny$ = 是闰年Elsey$
13、 = 不是闰年 End If 4.Select Case语句用于实现多分支结构。 Select Case 测试表达式 Case 条件1 语句块1 Case 条件2 语句块2 Case Else 语句块n+1 End Select 功能：从多个条件中选择执行第一个符合条件的语句，都不符合，则执行Case Else后的语句块。注意条件：常量表： 1，3，5测试范围：10 to 20,“a” to “z”比较范围：Is 10(不能为逻辑表达式)【例】学生成绩评定Private Sub Command1_Click() x = Val(InputBox(输入考试成绩) Select Case x Ca
14、se 90 To 100 y$ = 优 Case 80 To 89 y$ = 良 Case 70 To 79 y$ = 中 Case 60 To 69 y$ = 及格 Case 0 To 59 y$ = 不及格 Case Else y$ = 输入错误 End Select Form1.Print 成绩:; x, 等级:; y$End Sub 循环结构 “当型”循环：当条件为真，执行循环体。“直到型”循环：做循环，直到条件为真为止。1.For-Next循环常用于循环次数已知。For 循环变量 = 初值 To 终值 Step步长循环体 Exit For Next 循环变量 【例】计算n!。Priv
15、ate Sub Command1_Click() n = Val(InputBox(输入一个自然数) Term = 1 For i = 1 To n Term = Term * i Next i Print n; !=; TermEnd Sub 【例】计算2 + 4 + 6 + + 100的值。Private Sub Command1_Click() Sum = 0 For x = 2 To 100 Step 2 Sum = Sum + x Next x Form1.Print Sum=; SumEnd Sub 【例】计算1 + 2! + 3! + + 10!Private Sub Comma
16、nd1_Click() T = 1 S = 0 For k = 1 To 10 T = T * k S = S + T Next k Print SEnd Sub2While-Wend循环适合处理循环次数未知的循环。 While 条件 语句块 Wend功能：当条件为真时执行循环。 【例】计算1+2+3+100Private Sub Command1_Click()Dim n As Integer, s As Integer s=0 n =1While n=100 s=s+n n=n+1 WendLable1.Caption=“1+2+3+100=”& sEnd Sub 3Do-Loop循环 D
17、o 语句块 Exit Do Loop While|Until 条件 Do While|Until 条件 语句块 Exit Do Loop功能：While 条件当“条件”为True执行循环体。Until 条件“条件”为False执行循环体。如无条件，则为死循环。说明：格式1：“先循环，后判断”，至少执行一次循环。格式2：“先判断，后循环”，如条件不满足，则一次循环也不执行。【例】计算1+2+3+100 s=0 n =1 Do while n100 s=s+n n=n+1 Loop 【例】将十进制数转换为二进制数Private Sub Form_Click() Dim m As Integer m
18、 = InputBox(enter m:) a$ = While m 0 r = m Mod 2 a$ = r & a$ m = m 2 Wend Print a$End Sub注意：a$ = a$ & r则为：4=001 列表框列表框的方法AddItem方法：用于在列表框中插入一个列表项。格式：列表框. AddItem 项目字符串,索引值如省略索引值，则在列表框的最后插入新列表项。【例】将文本框内容添加到列表框1Private Sub Command1_Click() List1.AddItem Text1.TextEnd Sub 多重循环说明：（1）必须完整嵌套，不得交叉。（2）Exit
19、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=100 Private Sub Command1_Click()Dim x As IntegerDim y As Integer, z As IntegerPrint 公鸡, 母鸡, 小鸡For x = 0 To 20 For y = 0 To 33 z = 100 - x - y If 5 * x
20、+ 3 * y + z / 3 = 100 ThenPrint x, y, z End If Next yNext xEnd Sub 2求最大公约数和最小公倍数辗转相除法：【例】计算最大公约数和最小公倍数。Private Sub Command1_Click()Dim m As Integer, n As IntegerDim u As Integer, v As Integer m = Val(Text1.Text) n = Val(Text2.Text) If m n Then u = m: v = n Else u = n : v = m End If Do r = u Mod v u
21、= v v = r Loop Until r = 0 Print 最大公约数：; u Print 最小公倍数：; m * n / uEnd Sub 或r = u Mod vDo While r0u = vv = rr = u Mod vLoopPrint 最大公约数：; v 3判素数（质数）【例】判n是否为素数。Private Sub Command1_Click() Dim n As Integer, i As Integer n = Val(InputBox(输入正整数) For i = 2 To n - 1 If n Mod i = 0 Then Exit For Next i If i
22、 n - 1 Then Print n; 是质数 Else Print 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 For End If Next I If s=1 Then Write#1, n Next n close #1End Sub 添加到列表框：List
23、1.AddItem nb（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） 数 组61 静态数组编译时分配存储空间。定义：Dim b(3，4)As Long分配45个长整型变量的空间，二维数组在内存按行的顺序存放 例：Dim b(3，2 to 4,1 to 3) As Integer共分配 433=36个元素，共72 Byte Option 语句格式：Option Base 1注意：只能出现在窗体层或模块层必
24、须位于数组定义之前。例:Option Base 1Dim a(10) As Integer，x(5，5) As String每一维下标的下界均从1开始。 动态数组运行时分配内存区，定义分两步进行：（1）先在窗体层、标准模块或过程中Dim或Public声明一个没有下标的数组。（2）过程中用ReDim语句定义带下标的数组。 说明：声明时不指定数组的维数数组的维数由第一次出现的ReDim语句指定。 例如：Dim Test() As IntegerDim n As IntegerSub Form_click（）n=InputBox（”Enter a value:”）ReDim Test(n)End S
25、ub 数组元素的引用形式： 数组名(下标） 数组元素赋初值运行前对数组进行初始化。格式：数组变量名=Array( 初值表 )说明：数组下标下界缺省为0，只能对一维数组初始化【例】Dim a As As Varianta=Array（1，2，3，4，5，6，7）注意：下标从06 【例】一维数组元素赋初值。Option Base 1Private 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 iEnd Sub运行结果：1 2 3 4 5 6 7 数组输
26、入/输出一般通过For循环语句和InputBox函数实现，一维数组用单重循环。二维数组采用双重循环。 【例】一维数组的输入和输出。 For i = 1 To 10 a(i) = InputBox(Enter data:) Next i 【例】二维数组的输入和输出。1 2 34 5 67 8 9 For i = 1 To 3For j = 1 To 3a(i, j) = InputBox(enter data:)Next jNext iFor i = 1 To 3For j = 1 To 3Print a(i, j); ;Next jPrintNext i 【例】用Rnd产生10个0100之间随机数。For i = 1 To 10 a(i) = Int(100 * Rnd) Next i 用户自定义类型定义格式：Type 自定义类型名元素名1 As 类型名元素名2 As 类型名元素名n
