计算机程序设计化强复习.ppt

《计算机程序设计化强复习.ppt》由会员分享，可在线阅读，更多相关《计算机程序设计化强复习.ppt（98页珍藏版）》请在金锄头文库上搜索。

1、南通大学计算机科学与技术学院南通大学计算机科学与技术学院 鲁松鲁松计算机程序设计强化复习Visual Basic 6.0Visual Basic 6.0Evaluation only.Created with Aspose.Slides for .NET 3.5 Client Profile 5.2.0.0.Copyright 2004-2011 Aspose Pty Ltd.计算机等级考试二级（计算机等级考试二级（VBVB）培训）培训 鲁松鲁松全文结构全文结构1VB语法知识基础语法知识基础2VB语法知识进阶语法知识进阶3常用算法及编程技巧常用算法及编程技巧4界面元素与程序调试界面元素与程序调

2、试5真题讲解真题讲解第第1 1章章 程序代码的组织方式程序代码的组织方式第第2 2章章 数据类型、常量与变量数据类型、常量与变量第第3 3章章 运算符、表达式与公共函数运算符、表达式与公共函数第第4 4章章 数组数组第第5 5章章 顺序结构顺序结构第第6 6章章 选择结构选择结构第第7 7章章 循环结构循环结构第第8 8章章 过程设计过程设计第第9 9章章 文件操作文件操作第第1010章章 算法中使用的基本技巧算法中使用的基本技巧第第1111章章 数列、级数求和及矩阵运算问题数列、级数求和及矩阵运算问题第第1212章章 数组的移动、排序及查找数组的移动、排序及查找第第1313章章 因数、最大公

3、约数与素数等问题因数、最大公约数与素数等问题第第1414章章 整数拆分、进制转换整数拆分、进制转换第第1515章章 字符运算及圆圈数问题字符运算及圆圈数问题第第1616章章 常用控件的通用属性、事件及方法常用控件的通用属性、事件及方法第第1717章章 窗体窗体的通用属性、事件及方法的通用属性、事件及方法第第1818章章 重要控件重要控件第第1919章章 程序调试和程序设计程序调试和程序设计Evaluation only.Created with Aspose.Slides for .NET 3.5 Client Profile 5.2.0.0.Copyright 2004-2011 Aspos

4、e Pty Ltd.2 2计算机等级考试二级（计算机等级考试二级（VBVB）培训）培训 鲁松鲁松第第1 1章章 程序代码的组织方式程序代码的组织方式1.1 1.1 程序代码的基本构成程序代码的基本构成程序代码的基本构成程序代码的基本构成l字符集字符集l关键字关键字l标识符标识符l运算符运算符l表达式表达式l语句及语法规则语句及语法规则l语义语义Print aPrint a,Print a;字符字符关键字关键字/ /标识符标识符表达式表达式语句语句过程过程模块模块程序程序Evaluation only.Created with Aspose.Slides for .NET 3.5 Client

5、Profile 5.2.0.0.Copyright 2004-2011 Aspose Pty Ltd.3 3计算机等级考试二级（计算机等级考试二级（VBVB）培训）培训 鲁松鲁松第第1 1章章 程序代码的组织方式程序代码的组织方式1.2 VB中的过程中的过程l用过程编程的两大好处用过程编程的两大好处lVB中过程的种类中过程的种类u事件过程事件过程系统提供的过程系统提供的过程u通用过程通用过程用户自定义过程用户自定义过程 1.3 VB中的模块中的模块l窗体模块窗体模块l标准模块标准模块l类模块类模块Evaluation only.Created with Aspose.Slides for .N

6、ET 3.5 Client Profile 5.2.0.0.Copyright 2004-2011 Aspose Pty Ltd.4 4计算机等级考试二级（计算机等级考试二级（VBVB）培训）培训 鲁松鲁松第第2 2章章 数据类型、常量与变量数据类型、常量与变量2.1 基本数据类型基本数据类型l数值型数值型l字符串型字符串型l逻辑型逻辑型l日期型日期型l变体型变体型l数据类型转换数据类型转换u数值类型间的转换数值类型间的转换u数值类型与字符串类型的转换数值类型与字符串类型的转换u数值类型与逻辑类型的转换数值类型与逻辑类型的转换u字符串类型与逻辑类型的转换字符串类型与逻辑类型的转换Print T

7、rue+3显示结果为显示结果为2Print “123”+100显示结果为显示结果为223Print #5/1/2000# + 3显示结果是显示结果是00-5-4类型名称类型名称表示数据表示数据存储空间存储空间取值范围取值范围整型整型Integer整型整型2个字节个字节-32,768 32,767Long长整型长整型4个字节个字节-2,147,483,648 2,147,483,647Byte字节型字节型1个字节个字节0 255实型实型Single单精度浮点数单精度浮点数4个字节个字节-3.402,823E38 -1.401,298E-451.401,298E-45 3.402,823E38Do

8、uble双精度浮点数双精度浮点数8个字节个字节-1.797,693,134,862,32D308 -4.940,656,458,412,47D-3244.940,656,458,412,47D-324 1.797,693,134,862,32D308Cunency货币型货币型8个字节个字节-922,337,203,685,447.580,8 922,337,203,685,447.580,7 Evaluation only.Created with Aspose.Slides for .NET 3.5 Client Profile 5.2.0.0.Copyright 2004-2011 Asp

9、ose Pty Ltd.5 5计算机等级考试二级（计算机等级考试二级（VBVB）培训）培训 鲁松鲁松第第2 2章章 数据类型、常量与变量数据类型、常量与变量2.2 构造数据类型构造数据类型l数组数组u固定大小数组固定大小数组u动态数组动态数组l自定义类型自定义类型2.3 常量与变量常量与变量l字面常量字面常量l符号常量符号常量u系统内部常量系统内部常量VbRed、VbCrLf等等u用户自定义符号常量用户自定义符号常量Const Pi As Single =3.14l变量变量Evaluation only.Created with Aspose.Slides for .NET 3.5 Clien

10、t Profile 5.2.0.0.Copyright 2004-2011 Aspose Pty Ltd.6 6计算机等级考试二级（计算机等级考试二级（VBVB）培训）培训 鲁松鲁松第第3 3章章 运算符、表达式与公共函数运算符、表达式与公共函数3.1 VB中的运算符与表达式中的运算符与表达式l算术运算符与算术表达式算术运算符与算术表达式l字符串连接符字符串连接符l关系运算符与关系表达式关系运算符与关系表达式l逻辑运算符与逻辑表达式逻辑运算符与逻辑表达式l运算符的优先级运算符的优先级u算术运算符算术运算符 、-、*或或/、Mod、+或或-u字符运算符字符运算符 +或或&u关系运算符关系运算符

11、=、=、=、Is、Likeu逻辑运算符逻辑运算符 Not、And、Or、Xor、Eqv、ImpEvaluation only.Created with Aspose.Slides for .NET 3.5 Client Profile 5.2.0.0.Copyright 2004-2011 Aspose Pty Ltd.7 7计算机等级考试二级（计算机等级考试二级（VBVB）培训）培训 鲁松鲁松第第3 3章章 运算符、表达式与公共函数运算符、表达式与公共函数3.2 VB中的公共函数中的公共函数l数学函数数学函数l字符串函数字符串函数l类型转换函数类型转换函数l随机函数随机函数生成某个范围内的随

12、机整数生成某个范围内的随机整数Int(upperbound lowerbound +1)*Rnd + lowerbound)l输入与输出函数输入与输出函数Evaluation only.Created with Aspose.Slides for .NET 3.5 Client Profile 5.2.0.0.Copyright 2004-2011 Aspose Pty Ltd.8 8计算机等级考试二级（计算机等级考试二级（VBVB）培训）培训 鲁松鲁松第第4 4章章 数数 组组4.1 数组的命名及说明数组的命名及说明l数组的命名数组的命名l数组的说明数组的说明4.2 数组结构与数组元素数组结

13、构与数组元素l数组的逻辑结构与存储结构数组的逻辑结构与存储结构l数组元素数组元素4.3 固定大小数组与动态数组固定大小数组与动态数组l固定大小数组固定大小数组l动态数组动态数组4.4 Erase语句语句Evaluation only.Created with Aspose.Slides for .NET 3.5 Client Profile 5.2.0.0.Copyright 2004-2011 Aspose Pty Ltd.9 9计算机等级考试二级（计算机等级考试二级（VBVB）培训）培训 鲁松鲁松第第5 5章章 顺序结构顺序结构5.1 赋值语句赋值语句l赋值语句的格式赋值语句的格式=l不同

14、类型数据之间的赋值不同类型数据之间的赋值l赋值号与等号的区别赋值号与等号的区别A AB B变量变量表达式表达式逻辑型逻辑型True非非0数值型数值型False0整型整型-1True逻辑型逻辑型0False字符型字符型“True”True逻辑型逻辑型“False”False数值型数值型编译出错编译出错非数值字符串非数值字符串字符型字符型对应的数值对应的数值数值字符串数值字符串Evaluation only.Created with Aspose.Slides for .NET 3.5 Client Profile 5.2.0.0.Copyright 2004-2011 Aspose Pty Lt

15、d.1010计算机等级考试二级（计算机等级考试二级（VBVB）培训）培训 鲁松鲁松第第5 5章章 顺序结构顺序结构5.2 Print 方法、方法、Cls 方法方法l方法调用语句的一般形式方法调用语句的一般形式.参数列表参数列表lPrint 方法方法对象对象.Print p1p2例例5-7：下列程序片断的输出结果是什么？：下列程序片断的输出结果是什么？a=3 : b=5Print “12345678901234567890”Print a;bPrint a,Print bPrint aPrint blCls 方法、方法、Clear方法方法12345678901234567890123456789

16、01234567890 3 5 3 5 3 5 3 5 3 3 5 5 Evaluation only.Created with Aspose.Slides for .NET 3.5 Client Profile 5.2.0.0.Copyright 2004-2011 Aspose Pty Ltd.1111计算机等级考试二级（计算机等级考试二级（VBVB）培训）培训 鲁松鲁松第第6 6章章 选择结构选择结构6.1 IfThen 结构语句结构语句l标准分支选择结构标准分支选择结构例例6-1：写出根据键盘输入的百分制学生成绩判断该学生：写出根据键盘输入的百分制学生成绩判断该学生是否及格并输出是否及

17、格并输出“Pass”或或“Fault”。l单分支结构单分支结构例例6-2：写出根据键盘输入的百分制学生成绩判断该学生：写出根据键盘输入的百分制学生成绩判断该学生是否及格并将及格学生的成绩输出的程序片段。是否及格并将及格学生的成绩输出的程序片段。l多分支结构多分支结构例例6-3：写出将键盘输入的百分制学生成绩转换成五分制：写出将键盘输入的百分制学生成绩转换成五分制并输出的程序片段。并输出的程序片段。e eA AB BTrueTrueFalseFalseEvaluation only.Created with Aspose.Slides for .NET 3.5 Client Profile 5.

18、2.0.0.Copyright 2004-2011 Aspose Pty Ltd.1212计算机等级考试二级（计算机等级考试二级（VBVB）培训）培训 鲁松鲁松第第6 6章章 选择结构选择结构6.2 Select Case 结构语句结构语句l一般形式一般形式l测试项的形式测试项的形式例例6-4：在：在 Select Case X 结构中，描述判断条件结构中，描述判断条件3X7的的测试项应该写成测试项应该写成 。A. Case 3 X7B. Case 3 X, X7C. Case Is7 , Is3 D. Case 3 To 7Evaluation only.Created with Aspos

19、e.Slides for .NET 3.5 Client Profile 5.2.0.0.Copyright 2004-2011 Aspose Pty Ltd.1313计算机等级考试二级（计算机等级考试二级（VBVB）培训）培训 鲁松鲁松第第7 7章章 循环结构循环结构7.1 DoLoop 结构语句结构语句lDo-While循环结构循环结构lDo-Until循环结构循环结构e eA AFalseFalseTrueTruee eA AFalseFalseTrueTrue“当当”型循环型循环“直到直到”型循环型循环Evaluation only.Created with Aspose.Slides

20、 for .NET 3.5 Client Profile 5.2.0.0.Copyright 2004-2011 Aspose Pty Ltd.1414计算机等级考试二级（计算机等级考试二级（VBVB）培训）培训 鲁松鲁松第第7 7章章 循环结构循环结构7.2 ForNext 结构语句结构语句l一般形式一般形式For=ToStepExit ForNextlFor循环与循环与Do循环的比较循环的比较l循环嵌套循环嵌套Evaluation only.Created with Aspose.Slides for .NET 3.5 Client Profile 5.2.0.0.Copyright 20

21、04-2011 Aspose Pty Ltd.1515计算机等级考试二级（计算机等级考试二级（VBVB）培训）培训 鲁松鲁松第第8 8章章 过程设计过程设计8.1 Sub过程与过程与Function过程的定义与调用过程的定义与调用lSub过程的定义过程的定义Private | Public Static Sub 过程名过程名 (参数列表参数列表)局部变量和常量声明局部变量和常量声明语句体语句体Exit SubEnd SubuSub事件过程的定义事件过程的定义uSub通用过程的定义通用过程的定义Evaluation only.Created with Aspose.Slides for .NET

22、 3.5 Client Profile 5.2.0.0.Copyright 2004-2011 Aspose Pty Ltd.1616计算机等级考试二级（计算机等级考试二级（VBVB）培训）培训 鲁松鲁松第第8 8章章 过程设计过程设计8.1 Sub过程与过程与Function过程的定义与调用过程的定义与调用lFunction过程的定义过程的定义Private | Public Static Function 函数名函数名 (参数列表参数列表) As 数据类型数据类型局部变量和常量声明局部变量和常量声明语句体语句体Exit Function函数名函数名=表达式表达式End Function例例

23、8-5：以下有关过程的说法中错误的是：以下有关过程的说法中错误的是 。A. 在在Sub或或Function过程中不能再定义其他过程中不能再定义其他Sub或或Function过程过程B. 在调用过程时，与使用在调用过程时，与使用ByRef说明的形参对应的实参只能按地址传递方说明的形参对应的实参只能按地址传递方式结合。式结合。C. 递归过程既可以是递归递归过程既可以是递归Function过程，也可以是递归过程，也可以是递归Sub过程。过程。D. 在调用过程时，形参为数组的参数对应的实参只能是数组。在调用过程时，形参为数组的参数对应的实参只能是数组。Evaluation only.Created w

24、ith Aspose.Slides for .NET 3.5 Client Profile 5.2.0.0.Copyright 2004-2011 Aspose Pty Ltd.1717计算机等级考试二级（计算机等级考试二级（VBVB）培训）培训 鲁松鲁松第第8 8章章 过程设计过程设计8.1 Sub过程与过程与Function过程的定义与调用过程的定义与调用lFunction过程与过程与Sub过程的区别过程的区别例例8-6：分别用：分别用Sub过程和过程和Function过程编写一个求过程编写一个求n!的自定义过程。的自定义过程。SubSub过程：过程：Private Sub fact(n

25、As Integer, f As Long)Private Sub fact(n As Integer, f As Long)Dim i As IntegerDim i As Integerf = 1f = 1For i = 1 To nFor i = 1 To n f = f * i f = f * iNext iNext iEnd SubEnd SubFunctionFunction过程：过程：Private Function fact(n As Integer) As LongPrivate Function fact(n As Integer) As LongDim i As Inte

26、gerDim i As Integerfact = 1fact = 1For i = 1 To nFor i = 1 To n fact = fact * i fact = fact * iNext iNext iEnd SubEnd SubEvaluation only.Created with Aspose.Slides for .NET 3.5 Client Profile 5.2.0.0.Copyright 2004-2011 Aspose Pty Ltd.1818计算机等级考试二级（计算机等级考试二级（VBVB）培训）培训 鲁松鲁松第第8 8章章 过程设计过程设计8.1 Sub过程与

27、过程与Function过程的定义与调用过程的定义与调用lSub过程与过程与Function过程的调用过程的调用uSub事件过程的调用事件过程的调用uSub通用过程的调用通用过程的调用 Call 语句调用：语句调用：Call (实参表实参表) 将过程名作为语句调用：过程名将过程名作为语句调用：过程名 实参表实参表uFunction过程的调用过程的调用 变量变量=过程名（实参表）过程名（实参表）主调程序主调程序语句语句 n n调用过程调用过程 A A语句语句 n+1 n+1End SubEnd Sub过程过程 A AEnd SubEnd SubEvaluation only.Created wit

28、h Aspose.Slides for .NET 3.5 Client Profile 5.2.0.0.Copyright 2004-2011 Aspose Pty Ltd.1919计算机等级考试二级（计算机等级考试二级（VBVB）培训）培训 鲁松鲁松第第8 8章章 过程设计过程设计8.1 Sub过程与过程与Function过程的定义与调用过程的定义与调用l过程的嵌套调用过程的嵌套调用l过程调用的注意事项过程调用的注意事项u把把Sub过程名作为语句调用时，参数不需要加括号过程名作为语句调用时，参数不需要加括号uFunction过程无参时，括号不可省，其调用方法与公共函数类似过程无参时，括号不可

29、省，其调用方法与公共函数类似u由于由于Function过程本身返回值，所以一般不使用过程本身返回值，所以一般不使用Sub通过过程的调通过过程的调用方法，因为这两种方法将放弃函数名的返回值用方法，因为这两种方法将放弃函数名的返回值u若对若对Function过程的调用出现在表达式中，则其运算优先级最高过程的调用出现在表达式中，则其运算优先级最高主调程序主调程序调用过程调用过程 A AEnd SubEnd Sub过程过程 A A调用过程调用过程 B BEnd SubEnd Sub过程过程 B BEnd SubEnd Sub程序程序 A A调用过程调用过程 B BEnd SubEnd Sub程序程序

30、B B调用过程调用过程 A AEnd SubEnd SubEvaluation only.Created with Aspose.Slides for .NET 3.5 Client Profile 5.2.0.0.Copyright 2004-2011 Aspose Pty Ltd.2020计算机等级考试二级（计算机等级考试二级（VBVB）培训）培训 鲁松鲁松第第8 8章章 过程设计过程设计8.2 过程调用时的参数过程调用时的参数l参数传递的限制参数传递的限制形参与实参的个数、类型和顺序必须严格匹配形参与实参的个数、类型和顺序必须严格匹配形参形参实参实参变量变量变量、常量、表达式、数组元素、

31、对象变量、常量、表达式、数组元素、对象数组数组数组数组Evaluation only.Created with Aspose.Slides for .NET 3.5 Client Profile 5.2.0.0.Copyright 2004-2011 Aspose Pty Ltd.2121计算机等级考试二级（计算机等级考试二级（VBVB）培训）培训 鲁松鲁松第第8 8章章 过程设计过程设计8.2 过程调用时的参数过程调用时的参数l按值传递按值传递 ByValu数组、自定义记录类型的变量、对象变量不能按值传递；常数和表数组、自定义记录类型的变量、对象变量不能按值传递；常数和表达式必须按值传递达式

32、必须按值传递u按值传递的参数，形参和实参的类型只需要相容即可按值传递的参数，形参和实参的类型只需要相容即可l按地址传递按地址传递 ByRefEvaluation only.Created with Aspose.Slides for .NET 3.5 Client Profile 5.2.0.0.Copyright 2004-2011 Aspose Pty Ltd.2222计算机等级考试二级（计算机等级考试二级（VBVB）培训）培训 鲁松鲁松第第8 8章章 过程设计过程设计8.3 递归过程递归过程l递归过程的定义递归过程的定义u在过程定义中调用自身或以其他方式间接调用自身的过程在过程定义中调用

33、自身或以其他方式间接调用自身的过程u可以递归可以递归Sub过程，也可以递归过程，也可以递归Function过程过程l递归过程的构成条件递归过程的构成条件u有对本身的调用语句有对本身的调用语句u有一个结束递归过程的条件（终止条件或边界条件）有一个结束递归过程的条件（终止条件或边界条件）l三题递归相关三题递归相关u求求 N!u求求 菲布拉及数列菲布拉及数列u求求 最大公约数最大公约数Evaluation only.Created with Aspose.Slides for .NET 3.5 Client Profile 5.2.0.0.Copyright 2004-2011 Aspose Pty

34、 Ltd.2323计算机等级考试二级（计算机等级考试二级（VBVB）培训）培训 鲁松鲁松第第8 8章章 过程设计过程设计8.4 变量的作用域与生命期变量的作用域与生命期l变量的作用域变量的作用域 在窗体模块中，不能定义数组、定长字符串、用户自定义类型等在窗体模块中，不能定义数组、定长字符串、用户自定义类型等为全局变量。为全局变量。局部变量局部变量模块级变量模块级变量全局变量全局变量窗体模块窗体模块标准模块标准模块声明方式声明方式Dim/StaticDim/PrivatePublic声明位置声明位置过程内过程内窗体窗体/模块的通模块的通用声明段用声明段窗体窗体/模块的通用声明段模块的通用声明段作

35、用范围作用范围本过程本过程本模块本模块整个程序整个程序能否本模块其它能否本模块其它过程访问过程访问不能不能能能能能能否被其它模块能否被其它模块访问访问不能不能不能不能能，但需在变量能，但需在变量名前加上窗体名名前加上窗体名能能Evaluation only.Created with Aspose.Slides for .NET 3.5 Client Profile 5.2.0.0.Copyright 2004-2011 Aspose Pty Ltd.2424计算机等级考试二级（计算机等级考试二级（VBVB）培训）培训 鲁松鲁松第第8 8章章 过程设计过程设计8.4 变量的作用域与生命期变量的作

36、用域与生命期l变量的生命期变量的生命期l8-22：若希望在离开某过程后，还能保存该过程中局部变量的值，：若希望在离开某过程后，还能保存该过程中局部变量的值，则应使用则应使用关键字在该过程中定义局部变量。关键字在该过程中定义局部变量。 A. DimB. PrivateC. PublicD. Staticl同名变量同名变量 局部变量局部变量静态变量静态变量模块级变量模块级变量全局变量全局变量声明方式声明方式DimStaticDim/PrivatePublic作用域作用域本过程本过程本过程本过程本模块本模块整个程序整个程序生命期生命期从声明到过程终止从声明到过程终止 从声明到程序终止从声明到程序终止

37、 从声明到程序终止从声明到程序终止 从声明到程序终止从声明到程序终止Evaluation only.Created with Aspose.Slides for .NET 3.5 Client Profile 5.2.0.0.Copyright 2004-2011 Aspose Pty Ltd.2525计算机等级考试二级（计算机等级考试二级（VBVB）培训）培训 鲁松鲁松第第9 9章章 文件操作文件操作9.1 文件的基本概念文件的基本概念l文件的概念文件的概念l文件类型文件类型l文件操作步骤文件操作步骤9.2 基本文件操作控件基本文件操作控件l驱动器列表框驱动器列表框l目录列表框目录列表框l文

38、件列表框文件列表框Evaluation only.Created with Aspose.Slides for .NET 3.5 Client Profile 5.2.0.0.Copyright 2004-2011 Aspose Pty Ltd.2626计算机等级考试二级（计算机等级考试二级（VBVB）培训）培训 鲁松鲁松第第9 9章章 文件操作文件操作9.3 常用文件操作语句与文件操作函数常用文件操作语句与文件操作函数lOpen语句语句lClose语句与语句与Reset语句语句lLock和和Unlock语句语句lSeek语句语句lPrint #和和Write #语句语句lInput#和和Li

39、ne Input # 语句语句lPut # 和和 Get #语句语句l常用文件操作函数常用文件操作函数Evaluation only.Created with Aspose.Slides for .NET 3.5 Client Profile 5.2.0.0.Copyright 2004-2011 Aspose Pty Ltd.2727计算机等级考试二级（计算机等级考试二级（VBVB）培训）培训 鲁松鲁松第第1010章章 算法中使用的基本技巧算法中使用的基本技巧10.1.1 交换交换lt=a : a=b : b=tlt=b: b=a : a=tlt=a : a=b : b=c : c=tla=

40、a+b : b=a-b : a=a-b10.1.2 累加、累乘累加、累乘ln=n+1lSum=Sum+n P=P*n10.2 最大最大/小值问题小值问题l max=a(1)for i=2 to Ubound(a)if a(i)max then max=a(i)next iEvaluation only.Created with Aspose.Slides for .NET 3.5 Client Profile 5.2.0.0.Copyright 2004-2011 Aspose Pty Ltd.2828计算机等级考试二级（计算机等级考试二级（VBVB）培训）培训 鲁松鲁松第第1010章章 算法

41、中使用的基本技巧算法中使用的基本技巧10.3.1 穷举穷举l10-1：用：用100元买元买100只鸡，公鸡每只只鸡，公鸡每只5元，母鸡每只元，母鸡每只3元，小鸡每元，小鸡每1元元3只，问可以买多少只公鸡、母鸡和小鸡？有多少种组合？只，问可以买多少只公鸡、母鸡和小鸡？有多少种组合？Private Sub Command1_Click()Dim X As Integer, Y As Integer, Z As IntegerDim Count As IntegerCount = 0For X = 0 To Fix(100 / 5) For Y = 0 To Fix(100 / 3) For Z =

42、 0 To 100 If X * 5 + Y * 3 + Z / 3 = 100 And X + Y + Z = 100 Then Print X, Y, Z Count = Count + 1 End If Next NextNextPrint 组合个数：组合个数：; CountEnd SubFor X = 0 To 100 For Y = 0 To 100 - X Z = 100 - X - Y If 0.5 * X + 2 * Y + 3 * Z = 100 Then Print X, Y, Z Count = Count + 1 End If Next YNextEvaluation

43、only.Created with Aspose.Slides for .NET 3.5 Client Profile 5.2.0.0.Copyright 2004-2011 Aspose Pty Ltd.2929计算机等级考试二级（计算机等级考试二级（VBVB）培训）培训 鲁松鲁松第第1010章章 算法中使用的基本技巧算法中使用的基本技巧l10-2：求出所有的水仙花数，如：求出所有的水仙花数，如153=13+53+33Private Sub Command1_Click()Dim X As Integer, Y As Integer, Z As IntegerFor X = 1 To 9 F

44、or Y = 0 To 9 For Z = 0 To 9 If X 3 + Y 3 + Z 3 = 100 * X + 10 * Y + Z Then Print 100 * X + 10 * Y + Z End If Next NextNextEnd SubEvaluation only.Created with Aspose.Slides for .NET 3.5 Client Profile 5.2.0.0.Copyright 2004-2011 Aspose Pty Ltd.3030计算机等级考试二级（计算机等级考试二级（VBVB）培训）培训 鲁松鲁松第第1010章章 算法中使用的基本

45、技巧算法中使用的基本技巧10.3.2 迭代迭代l10-3：设方程为：设方程为4*x2-3*x-7=0，给出不精确的初始根，给出不精确的初始根x0=2，利用，利用公式：公式：xn+1=xn-f(xn)/f(xn) n=0，1，2求出方程的近似根，求出方程的近似根，直到直到 |xn+1-xn|0.00001。Dim X0 As Double, X1 As DoubleX0 = 2Do X1 = X0 - (4 * X0 2 - 3 * X0 - 7) / (8 * X0 - 3) If Abs(X1 - X0) 0.00001 Then Exit Do X0 = X1LoopPrint X1Dim

46、 X0 As Double, X1 As DoubleDim X0 As Double, X1 As DoubleX1 = 2X1 = 2DoDo X0 = X1 X0 = X1 X1 = X0 - (4 * X0 2 - 3 * X0 - 7) / (8 * X0 - 3) X1 = X0 - (4 * X0 2 - 3 * X0 - 7) / (8 * X0 - 3)Loop Until Abs(X1 - X0) 0.00001Loop Until Abs(X1 - X0) = 10 -10Loop While Abs(T) = 10 -10Print SumPrint SumEnd Su

47、bEnd SubEvaluation only.Created with Aspose.Slides for .NET 3.5 Client Profile 5.2.0.0.Copyright 2004-2011 Aspose Pty Ltd.3434计算机等级考试二级（计算机等级考试二级（VBVB）培训）培训 鲁松鲁松Private Sub Command1_Click()Private Sub Command1_Click()Const x As Single = 3.14159 / 3Const x As Single = 3.14159 / 3Dim Sum As Single, n

48、As Integer, T As SingleDim Sum As Single, n As Integer, T As Singlen = 1: T = 1n = 1: T = 1DoDo Sum = Sum + T Sum = Sum + T n = n + 1 n = n + 1 T = (-1) (n + 1) * x (2 * (n - 1) /F(2 * (n - 1) T = (-1) (n + 1) * x (2 * (n - 1) /F(2 * (n - 1)Loop While Abs(T) = 10 -10Loop While Abs(T) = 10 -10Print S

49、umPrint SumEnd SubEnd Sub q q Function F(ByVal k As Integer) As Function F(ByVal k As Integer) As DoubleDoubleDim i As IntegerDim i As IntegerF = 1F = 1For i = 2 To kFor i = 2 To k F = F * i F = F * iNext iNext iEnd FunctionEnd Functioncos(x)=1-x2/2!+x4/4!-+(-1)n+1x2(n-1)/2(n-1)!+Evaluation only.Cre

50、ated with Aspose.Slides for .NET 3.5 Client Profile 5.2.0.0.Copyright 2004-2011 Aspose Pty Ltd.3535计算机等级考试二级（计算机等级考试二级（VBVB）培训）培训 鲁松鲁松第第1111章章 数列、级数求和及矩阵运算问数列、级数求和及矩阵运算问题题11.2.2 连乘积连乘积11-4： 到通项接近到通项接近1时停止计算。时停止计算。Private Sub Command1_Click()Private Sub Command1_Click()Dim Sum As Single, T As SingleD

51、im Sum As Single, T As SingleSum = 2: T = Sqr(2)Sum = 2: T = Sqr(2)DoDo Sum = Sum * 2 / T Sum = Sum * 2 / T T = Sqr(2 + T) T = Sqr(2 + T)Loop While Abs(2 / T - 1) = 10 -10Loop While Abs(2 / T - 1) = 10 -10Print SumPrint SumEnd SubEnd SubEvaluation only.Created with Aspose.Slides for .NET 3.5 Client

52、Profile 5.2.0.0.Copyright 2004-2011 Aspose Pty Ltd.3636计算机等级考试二级（计算机等级考试二级（VBVB）培训）培训 鲁松鲁松第第1111章章 数列、级数求和及矩阵运算问数列、级数求和及矩阵运算问题题11.3.1 矩阵的生成和打印矩阵的生成和打印l生成数组生成数组l打印数组打印数组11.3.2 矩阵的行列交换矩阵的行列交换11.3.3 矩阵的变换矩阵的变换11-10：将一个：将一个4行行4列矩阵进行转置列矩阵进行转置11-11：求出一给定矩阵的旋转矩阵。：求出一给定矩阵的旋转矩阵。Evaluation only.Created with A

53、spose.Slides for .NET 3.5 Client Profile 5.2.0.0.Copyright 2004-2011 Aspose Pty Ltd.3737计算机等级考试二级（计算机等级考试二级（VBVB）培训）培训 鲁松鲁松第第1111章章 数列、级数求和及矩阵运算问数列、级数求和及矩阵运算问题题11.3.4 寻找某些特殊点寻找某些特殊点l11-12：求：求6*5数组的鞍点，鞍点是指本行最大、本列最数组的鞍点，鞍点是指本行最大、本列最小的元素。小的元素。11.3.5 特殊矩阵特殊矩阵l按以下样式输出按以下样式输出5行杨辉三角。行杨辉三角。 111 1 2 1 1 33 1

54、 1 4 6 4 1Private Sub Command1_Click()Private Sub Command1_Click()Dim A(5, 5) As Integer, I As Integer, Dim A(5, 5) As Integer, I As Integer, J As IntegerJ As IntegerFor I = 1 To 5For I = 1 To 5 A(I, 1) = 1 A(I, 1) = 1 A(I, I) = 1 A(I, I) = 1Next INext IFor I = 3 To 5For I = 3 To 5 For J = 2 To I -

55、1 For J = 2 To I - 1 A(I, J) = A(I - 1, J - 1) + A(I, J) = A(I - 1, J - 1) + A(I - 1, J)A(I - 1, J) Next J Next JNext INext IFor I = 1 To 5For I = 1 To 5 Print Space(5 - I); Print Space(5 - I); For J = 1 To I For J = 1 To I Print CStr(A(I, J); ; Print CStr(A(I, J); ; Next J Next J Print PrintNext IN

56、ext IEnd SubEnd SubEvaluation only.Created with Aspose.Slides for .NET 3.5 Client Profile 5.2.0.0.Copyright 2004-2011 Aspose Pty Ltd.3838计算机等级考试二级（计算机等级考试二级（VBVB）培训）培训 鲁松鲁松11.3.6 11.3.6 综合例题综合例题l11-4：标记出：标记出5*5方阵中每一行最小元素的位置。如果某方阵中每一行最小元素的位置。如果某一行有多个数值相等的最小元素，也要同时标记出来。一行有多个数值相等的最小元素，也要同时标记出来。标记方式为每一行

57、的最小元素为标记方式为每一行的最小元素为0，其他元素为，其他元素为1。Option ExplicitOption ExplicitOption Base 1Option Base 1Private A(5, 5) As IntegerPrivate A(5, 5) As IntegerPrivate Sub Form_click()Private Sub Form_click()Text1 = Text1 = Dim I As Integer, J As IntegerDim I As Integer, J As IntegerRandomizeRandomizeFor I = 1 To 5F

58、or I = 1 To 5 For J = 1 To 5 For J = 1 To 5 A(I, J) = Int(20 - 10 + 1) * Rnd + 10) A(I, J) = Int(20 - 10 + 1) * Rnd + 10) Text1.Text = Text1 & A(I, J) & Text1.Text = Text1 & A(I, J) & Next J Next J Text1 = Text1 & vbCrLf Text1 = Text1 & vbCrLfNext INext IEnd SubEnd SubPrivate Sub Command1_Click()Pri

59、vate Sub Command1_Click()Dim I As Integer, J As Integer, Min As IntegerDim I As Integer, J As Integer, Min As IntegerFor I = 1 To 5For I = 1 To 5 Min = A(I, 1) Min = A(I, 1) For J = 2 To 5 For J = 2 To 5 If A(I, J) Min Then Min = A(I, J) If A(I, J) Min Then Min = A(I, J) Next J Next J For J = 1 To 5

60、 For J = 1 To 5 If A(I, J) = Min Then If A(I, J) = Min Then Text2 = Text2 & 0 Text2 = Text2 & 0 Else Else Text2 = Text2 & 1 Text2 = Text2 & 1 End If End If Next J Next J Text2 = Text2 & vbCrLf Text2 = Text2 & vbCrLfNext INext IEnd SubEnd SubEvaluation only.Created with Aspose.Slides for .NET 3.5 Cli

61、ent Profile 5.2.0.0.Copyright 2004-2011 Aspose Pty Ltd.3939计算机等级考试二级（计算机等级考试二级（VBVB）培训）培训 鲁松鲁松11.3.6 11.3.6 综合例题综合例题l11-15：找出：找出5*5数组中最大元素和最小元素所在行，如数组中最大元素和最小元素所在行，如果不在同一行则交换这两行。果不在同一行则交换这两行。Option ExplicitOption ExplicitOption Base 1Option Base 1Private A(5, 5) As IntegerPrivate A(5, 5) As IntegerP

62、rivate Sub Form_click()Private Sub Form_click()Dim I As Integer, J As IntegerDim I As Integer, J As IntegerRandomizeRandomizeFor I = 1 To 5For I = 1 To 5 For J = 1 To 5 For J = 1 To 5 A(I, J) = Int(99 - 10 + 1) * Rnd + 10) A(I, J) = Int(99 - 10 + 1) * Rnd + 10) Text1.Text = Text1 & A(I, J) & Text1.T

63、ext = Text1 & A(I, J) & Next J Next J Text1 = Text1 & vbCrLf Text1 = Text1 & vbCrLfNext INext IEnd SubEnd SubPrivate Sub Command1_Click()Private Sub Command1_Click()Dim I As Integer, J As Integer, T As IntegerDim I As Integer, J As Integer, T As IntegerDim Min As Integer, Max As IntegerDim Min As In

64、teger, Max As IntegerDim LMin As Integer, LMax As IntegerDim LMin As Integer, LMax As IntegerMin = A(1, 1): Max = A(1, 1)Min = A(1, 1): Max = A(1, 1)For I = 1 To 5For I = 1 To 5 For J = 1 To 5 For J = 1 To 5 If A(I, J) Min Then If A(I, J) Max Then If A(I, J) Max Then Max = A(I, J) Max = A(I, J) LMax

65、 = I LMax = I End If End If End If End If Next J Next JNext INext IIf LMin LMax ThenIf LMin LMax Then For I = 1 To 5 For I = 1 To 5 T = A(LMin, I) T = A(LMin, I) A(LMin, I) = A(LMax, I) A(LMin, I) = A(LMax, I) A(LMax, I) = T A(LMax, I) = T Next I Next IEnd IfEnd IfFor I = 1 To 5For I = 1 To 5 For J

66、= 1 To 5 For J = 1 To 5 Text2 = Text2 & A(I, J) & Text2 = Text2 & A(I, J) & Next J Next J Text2 = Text2 & vbCrLf Text2 = Text2 & vbCrLfNext INext IEnd SubEnd SubEvaluation only.Created with Aspose.Slides for .NET 3.5 Client Profile 5.2.0.0.Copyright 2004-2011 Aspose Pty Ltd.4040计算机等级考试二级（计算机等级考试二级（V

67、BVB）培训）培训 鲁松鲁松第第1212章章 数组的移动、排序及查找数组的移动、排序及查找12.1 移动移动l12-1：将一个：将一个10个元素的数组个元素的数组A循环向右移动一位。循环向右移动一位。1 2 3 4 5 6 7 8 9 10 10 1 2 3 4 5 6 7 8 9l12-2：将一个：将一个10个元素的数组个元素的数组A循环向左移动一位。循环向左移动一位。l12-3：将一个：将一个10个元素的数组个元素的数组A循环向右移动三位。循环向右移动三位。l12-4：将一个：将一个4行行4列数组的列循环右移一列。列数组的列循环右移一列。Evaluation only.Created wi

68、th Aspose.Slides for .NET 3.5 Client Profile 5.2.0.0.Copyright 2004-2011 Aspose Pty Ltd.4141计算机等级考试二级（计算机等级考试二级（VBVB）培训）培训 鲁松鲁松第第1212章章 数组的移动、排序及查找数组的移动、排序及查找12.2 排序排序l12.2.1 选择法排序选择法排序 l12.2.2 冒泡法排序冒泡法排序l12.2.3 插入法排序插入法排序l12.2.4 合并排序合并排序l12.2.5 拉锯式排序法拉锯式排序法u每一轮先把最小的元素从前到后送到最后面的位置，然后从后到前每一轮先把最小的元素从前

69、到后送到最后面的位置，然后从后到前把最大的元素送到最前面的位置。把最大的元素送到最前面的位置。Evaluation only.Created with Aspose.Slides for .NET 3.5 Client Profile 5.2.0.0.Copyright 2004-2011 Aspose Pty Ltd.4242计算机等级考试二级（计算机等级考试二级（VBVB）培训）培训 鲁松鲁松第第1212章章 数组的移动、排序及查找数组的移动、排序及查找12.3 查找查找l12.3.1 顺序查找顺序查找 l12.3.2 二分法查找二分法查找Option Base 1Option Base

70、1Private a(10) As IntegerPrivate a(10) As IntegerPrivate Sub Command1_Click()Private Sub Command1_Click()Dim N As Integer, Midd As Integer, Low As Integer, High As Dim N As Integer, Midd As Integer, Low As Integer, High As IntegerIntegerDim Flag As BooleanDim Flag As BooleanFor i = 1 To 10For i = 1

71、To 10 a(i) = i * 10 + i a(i) = i * 10 + i Print a(i); Print a(i);Next iNext iPrintPrintFlag = FalseFlag = FalseN = 120N = 120Low = 1: High = 10Low = 1: High = 10DoDo Midd = Int(Low + High) / 2) Midd = Int(Low + High) / 2) If a(Midd) = N Then If a(Midd) = N Then Print CStr(N); is in array ; CStr(Midd

72、) Print CStr(N); is in array ; CStr(Midd) Flag = True Flag = True Exit Do Exit Do Else Else If a(Midd) N Then If a(Midd) N Then High = Midd - 1 High = Midd - 1 Else Else Low = Midd + 1 Low = Midd + 1 End If End If End If End If Loop While Low = HighLoop While Low = HighIf Not Flag Then Print Cant fi

73、nd the Number ; CStr(N); !If Not Flag Then Print Cant find the Number ; CStr(N); !End SubEnd SubEvaluation only.Created with Aspose.Slides for .NET 3.5 Client Profile 5.2.0.0.Copyright 2004-2011 Aspose Pty Ltd.4343计算机等级考试二级（计算机等级考试二级（VBVB）培训）培训 鲁松鲁松第第1313章章 因数、最大公约数与素数等问因数、最大公约数与素数等问题题13.1 整数的因数计算问题

74、整数的因数计算问题l穷举法求整数的所有因子穷举法求整数的所有因子l动态数组保存整数的所有因子动态数组保存整数的所有因子l整数的连乘积表达整数的连乘积表达24=2223Private Sub Command1_Click()Private Sub Command1_Click()Dim i As Integer, N As IntegerDim i As Integer, N As IntegerN = InputBox(Please Input a number)N = InputBox(Please Input a number)i = 2i = 2Print CStr(N); =;Prin

75、t CStr(N); =;Do While i NDo While i NIf M NIf M N Then T = M: M = N: N = TEnd If欧几里德法欧几里德法 求最大公约数求最大公约数R = M Mod NDo While R 0 M = N N = R R = M Mod NLoopMsgBox (最大公约数是：最大公约数是： & N)End SubEvaluation only.Created with Aspose.Slides for .NET 3.5 Client Profile 5.2.0.0.Copyright 2004-2011 Aspose Pty Lt

76、d.4747计算机等级考试二级（计算机等级考试二级（VBVB）培训）培训 鲁松鲁松递归法递归法 求最大公约数求最大公约数Private Sub Command1_Click()Dim R As Integer, M As Integer, N As Integer, T As IntegerM = InputBox(Please Input number A)N = InputBox(Please Input number B)确认确认MNIf M = 1 N = N * 10 + M Mod 10 M = M 10LoopPrint NEnd SubEvaluation only.Creat

77、ed with Aspose.Slides for .NET 3.5 Client Profile 5.2.0.0.Copyright 2004-2011 Aspose Pty Ltd.5252计算机等级考试二级（计算机等级考试二级（VBVB）培训）培训 鲁松鲁松第第1414章章 整数拆分、进制转换整数拆分、进制转换14.2 进制转换进制转换l14.2.1 十进制转换为二进制十进制转换为二进制l14.2.2 十进制转换为十六进制十进制转换为十六进制l14.2.3 二进制转换为十进制二进制转换为十进制l14.2.4 十六进制转换为十进制十六进制转换为十进制l14.2.5 二进制转换为八进制二进制

78、转换为八进制Evaluation only.Created with Aspose.Slides for .NET 3.5 Client Profile 5.2.0.0.Copyright 2004-2011 Aspose Pty Ltd.5353计算机等级考试二级（计算机等级考试二级（VBVB）培训）培训 鲁松鲁松十进制转换为二进制十进制转换为二进制Private Sub Command1_Click()Dim M As Integer, I As Integer, N As StringM = InputBox(Please input a number:)Do While M = 1 N

79、 = CStr(M Mod 2) & N M = M 2LoopPrint NEnd SubEvaluation only.Created with Aspose.Slides for .NET 3.5 Client Profile 5.2.0.0.Copyright 2004-2011 Aspose Pty Ltd.5454计算机等级考试二级（计算机等级考试二级（VBVB）培训）培训 鲁松鲁松第第1515章章 字符运算及圆圈数问题字符运算及圆圈数问题15.1 字符运算字符运算l15.1.1 字符的替换字符的替换例：将由大写字母组成的某字符串中的字符进行转换，例：将由大写字母组成的某字符串中的

80、字符进行转换，转换规则如下：转换规则如下：AC，B DX Z，Y A，Z Bl15.1.2 字符串的替换字符串的替换 例：将字符串例：将字符串x中出现的子串中出现的子串s统统替换成子串统统替换成子串 s1，如图，如图Evaluation only.Created with Aspose.Slides for .NET 3.5 Client Profile 5.2.0.0.Copyright 2004-2011 Aspose Pty Ltd.5555计算机等级考试二级（计算机等级考试二级（VBVB）培训）培训 鲁松鲁松第第1515章章 字符运算及圆圈数问题字符运算及圆圈数问题15.1 字符运算字

81、符运算l15.1.3 逆序、回文串逆序、回文串例例15-3：将一个字符串逆转。如：将一个字符串逆转。如“1234”转为转为“4321”例例15-4：判断一个数是否为回文串：判断一个数是否为回文串l15.1.4 统计统计例例15-1：统计一段文本中英文字母出现的次数：统计一段文本中英文字母出现的次数例例15-2：统计一段文本中单词的个数，约定连续出现的：统计一段文本中单词的个数，约定连续出现的英文字母为一个单词。英文字母为一个单词。Dim Char() As String, S As String, T As String, C As StringDim Char() As String, S

82、As String, T As String, C As StringDim I As Integer, Flag As Boolean, Count As IntegerDim I As Integer, Flag As Boolean, Count As IntegerS = Text1: T = : C = : Count = 0S = Text1: T = : C = : Count = 0For I = 1 To Len(S)For I = 1 To Len(S) C = Mid(S, I, 1) C = Mid(S, I, 1) If C = a And C = A And C =

83、 a And C = A And C = Z Then T = T & C T = T & C Flag = True Flag = True Else Else If Flag Then If Flag Then Count = Count + 1 Count = Count + 1 ReDim Preserve Char(Count) ReDim Preserve Char(Count) Char(Count) = T Char(Count) = T T = T = End If End If Flag = False Flag = False End If End IfNextNextI

84、f Flag ThenIf Flag Then Count = Count + 1 Count = Count + 1 ReDim Preserve Char(Count) ReDim Preserve Char(Count) Char(Count) = T Char(Count) = TEnd IfEnd IfEvaluation only.Created with Aspose.Slides for .NET 3.5 Client Profile 5.2.0.0.Copyright 2004-2011 Aspose Pty Ltd.5656计算机等级考试二级（计算机等级考试二级（VBVB）

85、培训）培训 鲁松鲁松第第1515章章 字符运算及圆圈数问题字符运算及圆圈数问题15.2 圆圈数问题圆圈数问题l15.2.1 报数问题报数问题例例15-3：14人围成一圈，从人围成一圈，从1开始报数，凡报到开始报数，凡报到3的出列，接着继续的出列，接着继续从从1开始报数，直到全部出列为止，问依次出列的顺序。开始报数，直到全部出列为止，问依次出列的顺序。Dim A(1 To 14) As IntegerDim A(1 To 14) As IntegerDim I As Integer, Count As Integer, Js As IntegerDim I As Integer, Count A

86、s Integer, Js As IntegerFor I = 1 To 14For I = 1 To 14 A(I) = 1 A(I) = 1Next INext ICount = 0: Js = 0: I = 0Count = 0: Js = 0: I = 0DoDo Do While Count 3 Do While Count 3 I = IIf(I = 14, 1, I + 1) I = IIf(I = 14, 1, I + 1) Count = Count + A(I) Count = Count + A(I) Loop Loop Print I; Print I; A(I) =

87、0: Js = Js + 1: Count = 0 A(I) = 0: Js = Js + 1: Count = 0Loop While Js 14Loop While Js A(Left) And A(Count) A(Right) Or A(Count) A(Left) And A(Count) A(Left) And A(Count) A(Right) Or A(Count) A(Left) And A(Count) A(Right) Then Then Print A(Count); Count Print A(Count); Count End If End IfNext Count

88、Next CountEvaluation only.Created with Aspose.Slides for .NET 3.5 Client Profile 5.2.0.0.Copyright 2004-2011 Aspose Pty Ltd.5858计算机等级考试二级（计算机等级考试二级（VBVB）培训）培训 鲁松鲁松第第1515章章 字符运算及圆圈数问题字符运算及圆圈数问题15.2 圆圈数问题圆圈数问题l15.2.3 翻转问题翻转问题例例15-5：翻转硬币。设硬币画面为：翻转硬币。设硬币画面为1，字面为，字面为0。14个硬币画面向上个硬币画面向上围成一圈，按顺时针方向数，凡数到可被围成

89、一圈，按顺时针方向数，凡数到可被3整除的数时，将硬币翻整除的数时，将硬币翻转。问数到转。问数到100以后硬币的状态。以后硬币的状态。Private Sub Command1_Click()Private Sub Command1_Click()Dim a(1 To 14) As IntegerDim a(1 To 14) As IntegerDim I As Integer, Id As IntegerDim I As Integer, Id As IntegerFor I = 1 To 14For I = 1 To 14 a(I) = 1 a(I) = 1Next INext IList1.

90、AddItem F(a)List1.AddItem F(a)Id = 1Id = 1For I = 1 To 100For I = 1 To 100 If I Mod 3 = 0 Then If I Mod 3 = 0 Then a(Id) = IIf(a(Id) = 0, 1, 0) a(Id) = IIf(a(Id) = 0, 1, 0) List1.AddItem F(a) List1.AddItem F(a) End If End If Id = IIf(Id 14, Id + 1, 1) Id = IIf(Id 5 y=y+1 x=x*yLoopPrint xA. 1B. 4C. 8

91、D. 30 BackEvaluation only.Created with Aspose.Slides for .NET 3.5 Client Profile 5.2.0.0.Copyright 2004-2011 Aspose Pty Ltd.8888计算机等级考试二级（计算机等级考试二级（VBVB）培训）培训 鲁松鲁松示例示例赋值号与等号的区别赋值号与等号的区别l5-4：判断语句：判断语句a=1和和If a=1 Then Print中的中的“a=1”是是否相同？否相同？l5-5：说明语句：说明语句a=b=2的含义。的含义。l5-6：针对语句：针对语句 If I=1 Then J=1，下列

92、说法正确的是，下列说法正确的是 。A. I=1和和J=1均为赋值语句均为赋值语句B. I=1和和J=1均为关系表达式均为关系表达式C. I=1 为关系表达式，为关系表达式，J=1 为赋值语句为赋值语句D. I=1 为赋值语句，为赋值语句，J=1 为关系表达式为关系表达式BackEvaluation only.Created with Aspose.Slides for .NET 3.5 Client Profile 5.2.0.0.Copyright 2004-2011 Aspose Pty Ltd.8989计算机等级考试二级（计算机等级考试二级（VBVB）培训）培训 鲁松鲁松示例示例不同类型

93、数据之间的赋值不同类型数据之间的赋值l5-2：运行下面程序，单击命令按钮：运行下面程序，单击命令按钮Command1，则立即窗口上显示的结果，则立即窗口上显示的结果是是 。Private Sub Command1_Click( )Dim A As Integer, B As Boolean, C As Integer, D As IntegerA=20/3 : B=True : C=B : D=A+CDebug.Print A,D,A=A+CEnd SubA. 7 6 FalseB. 6.6 5.6 FalseC. 7 6 A=6D. 7 8 A=8l5-3：单击窗体后下面程序的显示结果是什么

94、？：单击窗体后下面程序的显示结果是什么？Private Sub Form_Click( )Dim a As Integer, b As Integer, c As Integerb=6 : c=6.5a=b=cPrint aEnd Sub-1-1BackEvaluation only.Created with Aspose.Slides for .NET 3.5 Client Profile 5.2.0.0.Copyright 2004-2011 Aspose Pty Ltd.9090计算机等级考试二级（计算机等级考试二级（VBVB）培训）培训 鲁松鲁松示例示例数组例题数组例题l4-1：下列有

95、关数组的说法中，不正确的是：下列有关数组的说法中，不正确的是 。A. 在窗体模块中不可以定义全局数组在窗体模块中不可以定义全局数组B. 可以使用可以使用Erase语句释放所有数组所占据的存储空间语句释放所有数组所占据的存储空间C. 语句语句Dim X(3.6 + 2) As Integer定义了一个上界是定义了一个上界是6的一维整型数的一维整型数组组D. 形参数组的类型可以是定长字符串类型形参数组的类型可以是定长字符串类型l4-2：在窗体的通用声明处有语句：在窗体的通用声明处有语句Dim A() As Single，以下在某事件，以下在某事件过程中重定义此数组的一组正确语句是过程中重定义此数组

96、的一组正确语句是 。A. ReDim A(3,3)B. ReDim A(3,3) ReDim A(4,4) As Integer ReDim Preserve A(4,4)C. ReDim A(3)D. ReDim A(3,3) ReDim A(3,3) As Integer ReDim Preserve A(3,4)Evaluation only.Created with Aspose.Slides for .NET 3.5 Client Profile 5.2.0.0.Copyright 2004-2011 Aspose Pty Ltd.9191计算机等级考试二级（计算机等级考试二级（VB

97、VB）培训）培训 鲁松鲁松示例示例数组例题数组例题l4-3：在窗体模块的通用声明处有如下语句，会产生错误的是：在窗体模块的通用声明处有如下语句，会产生错误的是 。（1）Const A As Integer=25（2）Public St As String *8（3）ReDim B(3) As Integer（4）Dim Const X As Integer=10A. （1）（）（2）B. （1）（）（3）C. （1）（）（2）（）（3）D. （2）（）（3）（）（4）l4-4：以下有关数组的说明中，错误的是：以下有关数组的说明中，错误的是 。A. 根据数组说明的方式，可将数组分为动态数组和静态

98、数组根据数组说明的方式，可将数组分为动态数组和静态数组B. 在过程中，不能用在过程中，不能用Private语句定义数组语句定义数组C. 利用利用ReDim语句重新定维时，不得改变已经定义过的数组的数据语句重新定维时，不得改变已经定义过的数组的数据类型类型D. 数组重新定维后，原有的数组元素内容将不予保留数组重新定维后，原有的数组元素内容将不予保留BackEvaluation only.Created with Aspose.Slides for .NET 3.5 Client Profile 5.2.0.0.Copyright 2004-2011 Aspose Pty Ltd.9292计算机等

99、级考试二级（计算机等级考试二级（VBVB）培训）培训 鲁松鲁松示例示例函数例题函数例题l3-1：设：设a为整型变量，为整型变量，s为为Single型变量，把型变量，把3.75赋值给赋值给s后，再执行下列某一语句，则在文本框中显示的结果的后，再执行下列某一语句，则在文本框中显示的结果的结果与执行语句结果与执行语句 a=s : Text1=a 的结果相同的有的结果相同的有 个。个。 a=Int(s) : Text1=a a=Fix(s) : Text1=a a=CInt(s) : Text1=a a=Format(s,”#”) : Text1=aA. 1B. 2C. 3D.4l3-2：函数：函数C

100、int(-3.5)、Int(-3.5)、Fix(-3.5)的值分别是的值分别是 。A. -3、-4、-3B. -4、-4、-3C. -3、-4、-4 D. -4、-3、-3Evaluation only.Created with Aspose.Slides for .NET 3.5 Client Profile 5.2.0.0.Copyright 2004-2011 Aspose Pty Ltd.9393计算机等级考试二级（计算机等级考试二级（VBVB）培训）培训 鲁松鲁松示例示例函数例题函数例题l3-3：设整型变量：设整型变量a、b的当前取值分别为的当前取值分别为200和和20，以下，以下赋

101、值语句中不能正确执行的是赋值语句中不能正确执行的是 。A. Text1=a/b*aB. Text1=a*a/bC. Text1=“200”*a/bD. Text1=a & b & cl3-4：下面表达式中，：下面表达式中， 的值是整型（的值是整型（Integer或或Long）。）。 36+4/2 123+Fix(6.61) 57+5.52.5 356 & 21 “374” + 258 4.5 Mod 1.5A. B. C.D. Evaluation only.Created with Aspose.Slides for .NET 3.5 Client Profile 5.2.0.0.Copyr

102、ight 2004-2011 Aspose Pty Ltd.9494计算机等级考试二级（计算机等级考试二级（VBVB）培训）培训 鲁松鲁松示例示例函数例题函数例题l3-5：执行下面语句后，：执行下面语句后，Len函数值最大的是函数值最大的是 。Dim IA As Integer, B As SingleDim S As String * 5, Ch As StringIA=32767 : B=23.5 : S=“A” : Ch=“abcd”A. Len(IA)B. Len(B)C. Len(S)D.Len(Ch)l3-6：假设变量：假设变量Lng为长整型变量，下面不能正常执行的语句是为长整型变

103、量，下面不能正常执行的语句是 。A. Lng=16384*2B. Lng=4*0.5*16384C. Lng=1902D. Lng=32768*2l3-7：对正实数：对正实数x的第四位小数四舍五入的的第四位小数四舍五入的VB表达式是表达式是 。A. 0.001*Int(x+0.005) B. 0.001*(1000*x+0.5)C. 0.001*Int(1000*x+5) D. 0.001*Int(1000*(x+0.0005) )BackEvaluation only.Created with Aspose.Slides for .NET 3.5 Client Profile 5.2.0.0

104、.Copyright 2004-2011 Aspose Pty Ltd.9595计算机等级考试二级（计算机等级考试二级（VBVB）培训）培训 鲁松鲁松示例示例例例2-22-2l下面所列四组数据中全部是正确的下面所列四组数据中全部是正确的VB常量的是常量的是 。A. 32768 , 1.34D2 , “ABCDE” , &O1767B. 3276 , 123.56 , 1.2E-2 , #True#C. &HABCE , 02-03-2006 , False , D-3D. ABCDE , #02-03-2006# , E-2BackEvaluation only.Created with As

105、pose.Slides for .NET 3.5 Client Profile 5.2.0.0.Copyright 2004-2011 Aspose Pty Ltd.9696计算机等级考试二级（计算机等级考试二级（VBVB）培训）培训 鲁松鲁松示例示例例例2-12-1l在某过程中已声明在某过程中已声明a为为Integer型，型，s为为String型。在该过程型。在该过程中，以下四组语句中不能正常执行的是中，以下四组语句中不能正常执行的是 。A.s=2*a+1B.s=“237” & “.11” : a=sC.s=2*a3D.a=2 : S=16400*aBackEvaluation only.Created with Aspose.Slides for .NET 3.5 Client Profile 5.2.0.0.Copyright 2004-2011 Aspose Pty Ltd.9797计算机等级考试二级（计算机等级考试二级（VBVB）培训）培训 鲁松鲁松BackEvaluation only.Created with Aspose.Slides for .NET 3.5 Client Profile 5.2.0.0.Copyright 2004-2011 Aspose Pty Ltd.9898