1、VB注意事项VB复习注意事项方法：对象可以执行的一个动作，表现为函数或过程。事件：对象可以识别的动作。对象是方法的施出者，是事件的承受者。VB中几个文件：工程文件（.VBP）：工程的类型、工程中有几个模块，叫什么，在哪儿（注意：用户代码，一句没有）窗体文件（.FRM）：窗体与控件的属性设置，所有的事件过程，还有一些通用过程，变量定义标准模块（.BAS）：变量定义、通用过程在一个窗体上放置一个对象，进行过若干设置后，运行窗体，发现对象不在窗体上，为什么？关于PrintPrint 输出项分隔符Print “A”;Print “B”Print “C”Load与UnLoad是窗体专有的事件List1.
2、List(序号)：序号从0开始，最大到List1.ListCount-1ListIndex：列表项的序号，若为-1，则表示没有选中List1.List(List1.ListIndex)结果相当于List1.TextList1.AddItem 项目,序号List1.RemoveItem 序号List1.Clear组合框的Style属性值为0或1时，可以触发Change事件在Caption属性中，在某个字母前加&，如&F，则表现为F，使用时可以用Alt+F来访问在菜单中插入分组线，用“-”多窗体设计时，启动窗体为设计时第一个添加的窗体，可以通过工程属性来改变启动窗体。事件过程名称构成：一般对象：对
3、象名_事件名(参数)窗体：Form_事件名(参数)典型的错误：Text1.Print kkkkForm1.ClearList1.Cls容器对象：窗体、图片框、框架最典型的应用：用于对选项按钮的分组可以显示图片的对象：窗体、图片框、图像、按钮、选项按钮、复选框（后三个必须要将Style属性设置为Graphical）有Caption属性：窗体、标签、按钮、选项按钮、复选框、框架属性窗口中并没有列出一个对象的所有属性。四类属性： 既能在设计时改变，又能在运行时改变（例如Text,Visible,Enabled等） 只能在设计时改变（如Name，Index等） 只能在运行时改变（如Drive,Path
4、等） 只读属性（如ListCount等）前两种属性出现在属性窗口中，后两种则不出现。几种对象的清空方法：窗体和图片框：对象名.Cls列表框与组合框：对象名.Clear文本框：对象名.Text=”事件过程只能出现在窗体模块中。数据类型：字符串String：有定长与变长之分。数值数据： Integer整型，-3276832767，两字节，补码表示 Long长整，四字节，补码表示 Single单精度，4字节 Double双精度，8字节 Byte字节型，1字节，0255 Currency货币，8字节布尔型，Boolean，双字节，只有True和False两个值日期型，Date，8字节变体型，Varia
5、nt100！表示100是一个单精度的数，而不是整数%整型，&长整，!单精度#双精度，货币，$字符串整数有三种表示方法：十进制，八进制（&O），十六进制（&H）若一个整数在-32768,32767内，则系统认为是Integer类型，否则认为是Long类型；一个带小数的数，系统认为是Double类型。变量种类关键字定义位置作用域生命期引用方法局部变量Dim过程中所在过程所在过程运行时间所在过程直接使用模块变量DimPrivate模块的通用声明处所在模块模块运行时间模块内各过程直接使用全局变量Public模块的通用声明处应用程序应用程序运行时间模块名.变量名静态变量Static过程中所在过程应用程序
6、运行时间所在过程直接使用（20090412）+号运算符只有两边的数据都为字符串才是连接，与&功能相同。&运算符不管前后数据为何类型，总是将两个数据进行连接，结果是字符串。非整数向整数转换时的规则“四舍六入五成双”：若一个数的小数部分大于0.5，则向上进；若小于0.5则舍掉；若等于0.5则要保证结果为偶数。与/运算结果为Double类型； 与 Mod要求参与运算的数必须为整数，若不为整数，则按“四舍六入五成双”原则转换成整数，同时结果为整型（Integer或Long或Byte）；+、-、*运算结果：若运算的两个数类型相同，则结果类型也与其相同，否则，结果类型为在内存中存储长度较长的那种类型。（I
7、nteger*IntegerInteger,Integer*LongLong,Integer*SingleSingle,Single*LongDouble等等）赋值总是左值=右值（数据类型的相容）：左为字符串时，右可以为任何数据；左为数值，右可以为数值、数字字符、布尔值（True-1,False0）、日期时间（日期整数部分，时间小数部分）；左为Boolean，右可以为数值、数字字符（非0True，0False）。赋值符=，比较符=要注意题目的描述到底是表达式还是语句，在表达式中只有比较运算，不可以是赋值；在语句中，只有最左边的一个=是赋值号，其余均为比较符。窗体通用声明处不能定义全局（Publ
8、ic）的常量、全局定长字符串与全局数组。在窗体通用声明处不可以出现函数运算，只能是基本的运算。也就是说下面的语句均为错误语句：Public Const City As String=”苏州”Public S As String*5Public A(10) As IntegerConst X As Integer=Int(5.4)InputBox函数与Text属性的类型是字符串。Int()（下取整）与Fix()（取整数部分）两个函数不能改变结果类型；而CInt会将结果转换为整型。Left、Right与Mid三个函数一般是对字符串运算，若运算对象为数，则默认情况下相当于在此数上先加上一个CStr函
9、数转换为字符串后再运算。Len函数：功能是返回一个字符串中有多少个字符的（长度）。若参数不是字符串，则返回的是此种类型在内存中的存储字节数。（Integer2,Single4,Double8）对于定长字符串而言，长度在定义时就已确定，与实际赋值无关。若超长则截掉，若不够则补空格。Str将正数转换为字符串时，在最左边保留一个空格作为符号位；而CStr函数将正数转换为字符串时，不保留符号位。注意三角函数的参数应该为弧度，lnxLog(x)，eExp()， 3.14单行的If语句是不需要加End If的。多行的If语句是必须要加End If的。多分支的If语句中，ElseIf不能写成Else If。
10、Select Case语句中的匹配表达式（也就是Case后的条件）可以有三种形式：1. 枚举值：如Case 1,3,5,7,8,10,122. 一个区间：如Case 10 To 20，Case ”A” To “Z”3. 用Is表达的普通条件：如Case Is100上述三种形式可以出现在一个Case中。如Case 1,3,5,20 To 30,Is A(J) Then T = A(I) A(I) = A(J) A(J) = T End If NextNextEnd Sub冒泡法排序Private Sub Maopaopaixu(A() As Integer) Dim I As Integer,
11、J As Integer, T As Integer For I = 1 To 9 For J = 1 To 10 - I If A(J) A(J + 1) Then T = A(J) A(J) = A(J + 1) A(J + 1) = T End If Next NextEnd SubPrivate Sub Hebingpaixu(A() As Integer, B() As Integer, C() As Integer)合并排序，将两个有序集合，合并后形成的集合仍然有序数组下标下界均从1开始 Dim UA As Integer, UB As Integer, UC As Integer
12、 Dim I As Integer, J As Integer, K As Integer UA = UBound(A): UB = UBound(B) ReDim C(UA + UB) I = 1: J = 1: K = 1 Do While I = UA And J = UB If A(I) B(J) Then C(K) = A(I) I = I + 1 Else C(K) = B(J) J = J + 1 End If K = K + 1 Loop Do While I = UA C(K) = A(I) I = I + 1 K = K + 1 Loop Do While J = UB C
13、(K) = B(J) J = J + 1 K = K + 1 LoopEnd Sub升序数：Private Function Shengxushu(N As Integer) As Boolean 判断N是否是升序数，若是则返回True Dim S As Integer, I As Integer S = CStr(N) For I = 1 To Len(S) - 1 If Mid(S, I, 1) Mid(S, I + 1, 1) Then Exit Function Next Jiangxushu = TrueEnd Function找最大值：Private Function Max(A(
14、) As Integer) As Integer Dim lb As Integer, ub As Integer, I As Integer lb = LBound(A) ub = UBound(A) Max = A(lb) For I = lb + 1 To ub If Max A(I) Then Min = A(I) NextEnd FunctionPrivate Function IsExist(N As Integer, A() As Integer) As Boolean 使用二分法查找。若N存在于数组A中则返回TRUE，否则返回FALSE 数组A必须是有序的数组，此处假设为从小到
15、大排列。 Dim lb As Integer, ub As Integer Dim L As Integer, M As Integer, R As Integer lb = LBound(A) ub = UBound(A) L = lb: R = ub Do While L = R M = (L + R) / 2 If A(M) = N Then IsExist = True Exit Function ElseIf A(M) N Then L = M + 1 Else R = M - 1 End If LoopEnd Function最大公约数与最小公倍数；Private Function
16、 Gcd(M As Integer, N As Integer) As Integer 最大公约数Dim R As IntegerR = M Mod NDo While R 0M = NN = RR = M Mod NLoopGcd = NEnd FunctionPrivate Function Lcm(M As Integer, N As Integer) As Long 最小公倍数Dim R As LongIf M N Then R = N Else R = MLcm = RDoIf Lcm Mod N = 0 And Lcm Mod M = 0 ThenExit FunctionElse
17、Lcm = Lcm + REnd IfLoopEnd FunctionPrivate Function nixu(N As Integer) As Integer 逆序数Donixu = nixu * 10 + N Mod 10N = N 10Loop While N 0End FunctionPrivate Function huiwen(N As Integer) As Boolean 回文数Dim S As String, L As Integer, I As IntegerS = CStr(N)L = Len(S)For I = 1 To L / 2If Mid(S, I, 1) Mi
18、d(S, L - I + 1, 1) Then Exit FunctionNexthuiwen = TrueEnd Function统计一个数中有几个不同的数字Private Sub Command1_Click() Dim N As Long, S As String, I As Integer Dim St(0 To 9) As Integer, ch As String Dim Sum As Integer Randomize N = Int(900000 * Rnd) + 100000 Print N S = CStr(N) For I = 1 To Len(S) ch = Mid(S, I, 1) St(Val(ch) = 1 Next For I = 0 To 9 Sum = Sum + St(I) Next Print SumEnd Sub1、编程求出1
