3VB复习范围.docx

1、3VB复习范围VB复习参考范围第3章 VB语言基础3.1 VB程序的书写规则 1. VB代码不区分字母的大小写 2.语句书写自由（1）一行可书写多条语句，之间用冒号 “:”分隔; 例： a=4 ：B=A+2 3.注释有利于程序的维护和调试使用单引号 () 引导注释3.2 VB数据类型数据类型关键字类型符占字节数取值范围字节型Byte无10-255整型Integer%2-3276832767长整型Long&4-21474836482147483647单精度型Single！4负数-3.402823E38-1.401298E-45；正数1.401298E-453.402823E38可表示最多7位有效

2、数字的数双精度型Double#8负数-1.79769313486232D308-4.94065645841247D-324正数4.94065645841247D-3241.79769313486232D308可表示最多15位有效数字的数字符型String$串长度065535个字符逻辑型Boolean无2True或False3.3 变量与常量3.3.1 标 识 符 用来标识常量名、变量名、过程名等元素的符号。 标识符命名规则： 1.以字母或汉字开头，后可跟字母、数字或下划线组成，标识符的长度不能超过255个字符； 2.不能使用VB中的关键字； 3.VB中不区分变量名的大小写3.3.2 常量符号常

3、量的声明语法格式： Const 常量名 As 类型 = 表达式 3.3.3 变量变量声明(1)用Dim语句显式声明变量（使用最多的方式） 语法格式：Dim 变量名 As 类型名 或 Dim 变量名类型符(2) Option Explicit 语句 在通用声明处加 Option Explicit 语句来强制显式声明所有使用的变量。即：在模块中使用Option Explicit语句，系统将检查模块中所有未加显式说明的变量。3.4 运算符和表达式3.4.1 算术运算符和算术表达式 1.算数运算符运算符含义优先级例结果乘方1N38-取负2-N-2*乘33*N*N12/除37/N3.5整除47N3Mod

4、取余（取模）57Mod21+加68+N10-减6N-12-10 优先级(先算和后算)： - * = / Mod + = -3.4.2 字符串运算符和字符串表达式“+”：只要出现数值型，就进行加法运算两旁均为数字型；字符型与数字型，则系统将把字符串转化为数值；若系统无法把字符串转化为数值，则系统显示出错。&: 连接符两旁的操作数可为字符型，也可为数字型，在进行连接操作前,均由系统将它们转换成字符型。3.4.3 关系运算符与关系表达式运算符说明例结果=等于abc=ABCF大于ABCABDF=大于等于BCD=BCAT小于235F=小于等于123=34T不等于abcABCT 关系运算规则： (1)关系

5、运算符的优先级相同,运算时从左至右依次进行。 (2)对数值型操作数比较，按大小比较。例 :32 (3)对字符型操作数比较，按字符ASCII码值的大小进行比较。例： begin ? began (4)进行比较的操作数要可比，否则出错。例如：123与“abe”就不可比3.4.4 逻辑运算符与逻辑表达式 将操作数进行逻辑运算结果： True/False（逻辑值）逻辑运算符运算符含义优先级说明例结果Not逻辑非1当操作数为假时，结果为真当操作数为真时，结果为假Not FNot TTFAnd逻辑与2操作数均为真时，结果才为真T And FT And TFTOr逻辑或3操作数中有一个为真时，结果为真T O

6、r FF Or FTF3.4.5 各种运算符间的优先级 算术运算符=字符运算符关系运算符逻辑运算符3.5 VB常用内部函数3.5.1 数学函数VB常用数学函数函数名功能例结果Abs(N) 求N的绝对值Abs(-3.5)3.5Sqr(N) 求N的平方根，N0 Sqr(16)43.5.2 字符串操作函数VB常用的字符串操作函数函数名功能例结果Mid$(C, N1, N2)从字符串左边第N1个位置开始向右取N2个字符；若省略N2，则取到字符串末尾Mid$(ABCDEFG, 3, 4)Mid$(ABCDEFG, 3)CDEFCDEFG3.5.3 类型转换函数VB常用的类型转换函数函数名功能例结果Val

7、(C)将数字字符串C转换为双精度类型数据 Val(“123abc”) Val(“-123.45E3”)123-123450第4章 算法基础和VB程序的基本控制结构4.2 顺序结构程序设计4.2.1 赋值语句 语法格式： 变量名表达式 或 对象名.属性名=表达式 因此，使用赋值语句可把右边表达式的值赋给左边的变量或对象的属性。4.2.2 用户交互函数和过程（1）InputBox函数 1.调用形式：变量名=InputBox$(提示,标题,缺省,x,y) 2.InputBox函数的各个参数含义如下： （1）变量: 可以是字符串类型或变体型，用于接收输入框中的数据。 （2）提示: 字符串表达式, 不可

8、以省略，用于设定作为提示用显示的文字信息。 （3）标题：该项为字符串表达式,用于设定对话框中标题的信息内容。 （4）缺省：该项为字符串表达式,设定缺省值后，打开对话框时，设定的字符串显示在对话框的输入框中。 （5）X，Y坐标位置：(X，Y)是对话框左上角相对于屏幕(不是窗体)的坐标。(二)MsgBox函数和MsgBox过程 1.函数调用格式：变量% = MsgBox(提示,按钮,标题) 2.过程调用格式：MsgBox 提示,按钮,标题 3.各个参数的含义： 提示、标题：同InputBox函数。 按钮：整形表达式,形式为:C1+C2+C3+ C4(P96)，决定信息框按钮的数目、类型及图标类型，

9、若省略，则按钮的缺省值为0。4.3 选择结构程序设计4.3.1 IfThen语句(单分支结构) 格式： If Then 语句块 End If 或 If Then 4.3.2 IfThenElse语句(双分支结构) 格式： If Then Else End If 或 If Then Else 4.3.5 Select Case语句(情况语句) 1.格式： Select Case 变量或表达式 Case 表达式列表1 语句块1 Case 表达式列表2 语句块2 Case Else语句块n+1 End Select4.4 循环结构程序设计4.4.1 For循环语句 作用：一般用于控制循环次数未知。

10、形式： For 循环变量初值 To 终值 Step 步长 语句块 Exit For 语句块 Next 循环变量4.4.2 DoLoop循环语句 格式1： Do While 语句块 Exit Do 语句块 Loop 格式2： Do 语句块 Exit Do 语句块 Loop While 格式3： Do Until 语句块 Exit Do 语句块 Loop 格式4： Do 语句块 Exit Do 语句块 Loop Until 格式5： Do 语句块 Exit Do 语句块 Loop 第5章 数 组5.1 数组的概念 数组并不是一种数据类型，而是一组相同类型的变量的集合. 5.1.1 定长数组 一维数

11、组声明形式: Public|Private|Dim|Static 数组名(下标1,下标2) As 5.1.2 动 态 数 组 1.语法格式：Public|Private|Dim|Static 数组名( ) As 类型 2.ReDim语句格式：ReDim Preserve 数组名(下标1,下标2)注意： ReDim语句只能出现在过程中； 省略Preserve，则使用ReDim语句重新说明时，原数组中的值丢失；否则保留。5.2 数组的基本操作5.2.3 For Each Next语句 格式为： For Each 成员变量 In 数组 循环体 Next 成员变量 其中：成员变量为变体类型的变量。 第

12、6章 过 程6.2 Sub子过程的定义及其调用6.2.1 Sub子过程的定义及调用 1.Sub子过程的形式 Public|Private Sub 子过程名(参数列表) 局部变量或常数定义 语句 Exit Sub 语句 End Sub 6.2.3 Sub子过程的调用: (独立的语句) 子过程名 参数列表 或 Call 子过程名(参数列表)6.3 Function函数过程的定义及其调用6.3.1. Function函数过程的定义 Public|Private Function 函数名(参数列表)As 类型 局部变量或常数定义 语句 函数名=返回值 Exit Function 语句 函数名=返回值E

13、nd Function 实验题：1.课本P120页第12题，要求用select case语句完成Private Sub Command1_Click()Dim p!, s!, w!s = Text1.Textw = Text2.TextSelect Case sCase Is 100p = 30Case Is 200p = 27.5Case Is 300p = 25Case Is 400p = 22.5Case Elsep = 20End SelectText3.Text = p * s * wEnd Sub2.课本P120页第19题Private Sub Command1_Click()Di

14、m i%, sum As LongFor i = 101 To 999 Step 2sum = sum + iList1.AddItem iNext iText1.Text = sumEnd Sub3.实验五1Private Sub Command1_Click()Dim i%, j%, k%, n%For n = 100 To 999i = n 100j = n 10 Mod 10k = n Mod 10If n = i 3 + j 3 + k 3 Then List1.AddItem nNext nEnd Sub4.实验五3Private Sub Command1_Click()Dim x

15、!, x0!, x1!, n%, sum!n = 1sum = 1x = Text1.Textx1 = 1Dox0 = x1x1 = x0 * x / nsum = sum + x1n = n + 1Loop Until x1 0.000001Text2.Text = sumEnd Sub5.P12432题（3）Private Sub Form_Click()Dim s1 As String, s As StringDim l%, n%s1 = ABCDEFGHIJKLMNOPl = Len(s1)n = 1Do While n = A And t = Z Then s2 = s2 & tNe

16、xt iText2.Text = s2End Sub9.实验六1Dim a(1 To 10) As IntegerPrivate Sub Command1_Click()Dim i%For i = 1 To 10a(i) = Int(80 - 20 + 1) * Rnd) + 20List1.AddItem a(i)Next iEnd SubPrivate Sub Command2_Click()Dim i%, t%For i = 1 To 5t = a(i)a(i) = a(10 - i + 1)a(10 - i + 1) = tNext iFor i = 1 To 10List2.AddI

17、tem a(i)Next iEnd Sub10.实验七1Private Sub Command1_Click()Dim x!, y!x = Val(Text1.Text)y = x 2 + sh(x)Text2.Text = yEnd SubPrivate Function sh(ByVal a As Single) As Singlesh = (Exp(a) - Exp(-a) / 2End Function11.实验七2Private Sub Command1_Click()Dim x!x = Val(Text1.Text)Text2.Text = passed(x)End SubPriv

18、ate Function passed(ByVal x As Single) As StringIf x y Then t = x Else t = y End IfIf t z Then t = zmax = tEnd Function13. 实验八1Private Sub Option1_Click()Label1.Caption = 美元Text2.Text = Val(Text1.Text) / 6.82End SubPrivate Sub Option2_Click()Label1.Caption = 欧元Text2.Text = Val(Text1.Text) / 9.45End

19、SubPrivate Sub Option3_Click()Label1.Caption = 英镑Text2.Text = Val(Text1.Text) / 9.87End Sub14.实验八2Private Sub Command1_Click()Dim x1!, x2!, sum!x1 = Val(Text1.Text)x2 = Val(Text3.Text)sum = x1 + x2If Option1.Value = True Then Select Case sum Case Is = 2000 Text2.Text = 0 Text4.Text = sum Case Is = 4

20、000 Text2.Text = 0.05 * (sum - 2000) Text4.Text = sum - 0.05 * (sum - 2000) Case Is = 6000 Text2.Text = 0.1 * (sum - 2000) Text4.Text = sum - 0.1 * (sum - 2000) Case Else Text2.Text = 0.15 * (sum - 2000) Text4.Text = sum - 0.15 * (sum - 2000) End Select Else: If Option2.Value = True Then Text4.Text

21、= sum End If End Sub15.实验八3Private Sub Option1_Click(Index As Integer)Dim i%, t%For i = 0 To 3If Option1(i).Value = True Then t = iNext iSelect Case tCase Is = 0Text3.Text = Val(Text1.Text) + Val(Text2.Text)Case Is = 1Text3.Text = Val(Text1.Text) - Val(Text2.Text)Case Is = 2Text3.Text = Val(Text1.Text) * Val(Text2.Text)Case Is = 3Text3.Text = Val(Text1.Text) / Val(Text2.Text)End SelectEnd Sub