全国计算机等级考试二级VB复习资料___考试要点

VisualVisual BasicBasic 程序设计基础知识要点 概念分析篇 程序设计基础知识要点 概念分析篇 知识点知识点 1 1 1 在工程资源管理器窗口中可以包含 工程文件 窗体模块文件 标准模块文件和类模块文件 其中可以包含许多各种文件类型 2 Visual Basic 应用程序可以以解释方式执行和编译方式执行 例题 例题 1 以下叙述中错误的是 A A 在工程资源管理器窗口中只能包含一个工程文件及属于该 工程的其他文件 B 以 bas 为扩展名的文件是标准模块文件 C 窗体文件包含该窗体及其控件的属性 D 一个工程中可以有多个标准模块文件 2 以下叙述中错误的是 C A 打开一个工程文件时 系统自动装入与该工程有关的窗体 标准模块等文件 B 保存 Visual Basic 程序时 应分别保存窗体文件及工程文 件 C Visual Basic 应用程序只能以解释方式执行 D 事件可以由用户引发 也可以由系统引发 知识点知识点 2 2 1 窗体和各种控件的名称 Name 是唯一的 用来标识一个窗 体或控件的 而窗体和控件的标题是用来说明的 是可有可无 的 2 各种控件之间有部分相同的属性 并不是拥有所有属性 控件 有些属性只能在属性窗口中设置 但也有少数属性只能在代码 状态设置 3 Form1 Hide 方法和 Unload Form1 方法的区别 第一个方法窗 体消失并不存在于内存中 第二个方法窗体消失但仍存在于内 存中 例题 例题 1 以下叙述中正确的是 A A 窗体的 Name 属性指定窗体的名称 用来标识一个窗体 B 窗体的 Name 属性的值是显示在窗体标题栏中的文本 C 可以在运行期间改变对象的 Name 属性的值 D 对象的 Name 属性值可以为空 2 以下叙述中错误的是 C A Visual Basic 是事件驱动型可视化编辑工具 B Visual Basic 应用程序不具有明显的开始和结束语句 C Visual Basic 工具箱中的所有控件都具有 Width 和 Height 属性 D Visual Basic 中控件的某些属性只能在运行时设置 知识点知识点 3 3 1 标签 Label1 Autosize 的 True 属性可以自动调整标签的大小 而 False 属性不能 2 文本框 Text1 1 Maxlength 属性表示文本框所能容纳的字符数 2 Password 属性表示口令输入 可以是 或 等 设置文本框输入字符为 Text1 Password 还原文本框字符 Text1 Password 3 ScrollBars 属性是表示文本框有垂直或水平滚动条 但是 需要和多行属性 Multiline 结合一起使用 4 SelLength 属性是表示选中文本框中字符的个数 Text1 SelLength SelStart 属性是表示选中文本框中字符或光标之前 的字符数 Text1 SelStrart SelText 属性是表示选中文本框中的字符 Text1 SelText 5 文本的主要事件是 Change 事件 标签内容随文本框内 容变化而变化 Private sub Text1 Change Label1 caption Text1 text End sub 6 文本框的方法只有一个 Text1 SetFocus 例题 例题 1 能够获得一个文本框中被选取文本的内容的属性是 C A Text B SelLength C SelText D SelStrart 2 在窗体上画一个文本框 其名称为 Text1 和标签 其名称为 Label1 要求程序运行后 如果在文本框中输入字符 则立即在标 签中显示相同的内容 以下可以实现上述操作的事件过程是 A A Private Sub Text1 Change B Private Sub Text1 Click Label1 caption Text1 Text Label1 caption Text1 Text End Sub End Sub C Private Sub Label1 Change D Private Sub Label1 Click Label1 caption Text1 Text Label1 caption Text1 Text End Sub 3 命令按钮 Command1 1 Default 属性 当一个命令按钮的 Default 属性为 True 时 按回车键和单击该命令按钮的效果相同 2 Cancel 属性 当一个命令按钮的 Cancel 属性为 True 时 按 ESC 键和单击该命令按钮的效果相同 4 单选按钮和复选框 Option1 和 Check1 1 单选按钮 Value 属性的值是 True 选中 和 False 未选中 Option1 Value True 等同于等同于 Option1 Value 用法 用法 2 复选框 Value 属性的值是 0 未选中 1 选中 和 2 表示 暂时不可用 Check1 Value False 可以用 但 Check1 Value True 不 可用 因为因为 True 只能转化数值 只能转化数值 1 而不是而不是 1 5 列表框 List1 1 List 属性是一个数组型属性 List1 List 索引 索引可以 是数字 0 1 List1 listindex 变量 i List1 Text 等同于 List1 list List1 listindex 2 MultSelect 属性 用来设置一次可以多选表项数 MultSelect 属性值为 0 时 每次只能选择一项 MultSelect 属性值为 1 时 可以同时选择多个项目 MultSelect 属性值为 2 时 可以用辅 助键 Shift 或 Ctrl 选择多个项目 3 常用方法 AddItem 方法表示添加的是一个项目 而 Removeitem 方法表示通过删除索引的方式删除项目 RemoveItem 索引 索引可以是数字 0 1 List1 listindex 变量 i 6 6 组合框 Combo1 1 Style 属性 Style 属性值为 0 时 表示下拉式组合框 Style 属性值为 1 时 表示下简单组合框 Style 属性值为 2 时 表 示下拉式列表框 其他功能类似列表框 List1 7 7 图片框和图像框 Picture1 和 Image1 1 图片框 Picture1 Autosize 属性值为 True 时 表示 图片框大小随图片大小改变而改变 Autosize 属性值为 False 时 表示图片框只能部分显示大图片 2 图像框 Image1 Stretch 属性为 True 时 图片大小随 图像框的大小改变而改变 Stretch 属性为 True 时 图像框的大小 随图片大小的改变而改变 3 两种图形类型都可以按照下面这个方法加载图片 Picture1 picture LoadPicture App Path Asc x 给出字符 x 的 Asccii 代码值 Asc A 65 三种类型 ASCII 代码值转换 Asc 0 Asc 9 48 57 Asc A Asc Z 65 90 Asc a Asc z 97 122 特殊情况 Asc ABC 65 只求第一个字符 A 的 Ascii 代码值 Fix x 将数值型数据 x 的小数部分舍去 Fix 12 8 12 Fix 12 5 12 Int x 取小于等于 x 的最大整数 当 x 0 时 用法和 Fix 一样 当 x Mod 关系运算符 Like Is 运算符优先级 相同 逻辑运算符 运算符的优先级 Not And Or Xor Eqv 例题 例题 1 表达式 4 5 6 7 8 Mod 9 的值是 B A 4 B 5 C 6 D 7 2 a 3 b 2 c 1 求 Print a b c 的结果 首先 a b 的结果是 true 然后再 Print True c 此时 True 需要转换成 1 再比较 Print 1 1 结果是 False 所以整个 输出结果是 False 知识点知识点 6 6 1 交互函数的使用 InputBox 函数 A InputBox 提示信息 标题信息 默认值 或输入框的值 例题 例题 1 执行下列语句后 将显示输入对话框 此 时如果单击 确定 按钮 则变量 strInput 的内容是 C strInput InputBox 请输入字符串 字符串对话框 字符串 A 请输入字符串 B 字符串对 话框 C 字符串 D 空字符串 MsgBox 函数 MsgBox 提示信息 按钮类型值 图标类型值 默认焦点值 标题信息 A MsgBox 提示信息 按钮类型值 图标类型 值 默认焦点值 标题信息 A 的值根据单击什么按钮有关 A 的 值在 1 7 之间取值 比如 单击 确定 按钮 A 1 例题 例题 1 以上图形所表示的函数表达式为 MsgBox 请输入查询的学生学号 3 32 256 学生基本信息查询 知识点知识点 7 7 1 选择结构语句 If 条件语句 单分支条件语句 格式 If 条件 Then 语句块 End If 称 If 块语句 If 条件 Then 只有一条语句只有一条语句 称 If 条语句 双分支条件语句 格式 If 条件 Then 语句块 1 Else 语句块 2 End If 多分支条件语句 If 条件 1 Then 语句块 1 Elseif 条件 2 Then 语句块 2 Else 语句块 n End If 其中 条件可以是 关系表达式 a 5 逻辑表 达式 a 5 And c 4 变量 i 或常数 0 例题 例题 1 下列程序段的执行结果为 A X 5 Y 20 If Not x 0 Then x y 3 Else Y x 3 End If Print x y y x A 3 3 B 5 8 C 3 3 D 25 25 以上题中的以上题中的 条件条件 主要是逻辑表达式 主要是逻辑表达式 2 下列程序段的执行结果为 B X 2 Y 1 If x y0 A True B False C 1 D 1 以上题中的以上题中的 条件条件 主要是关系表达式 主要是关系表达式 3 下列程序段的执行结果为 C Dim x As Integer If x Then Print x Else Print x 1 A 1 B 0 C 1 D 不确定 以上题中的以上题中的 条件条件 主要是变量 主要是变量 2 选择结构语句 Select Case 语句 Select Case 测试表达式 Case 表达式列表 1 语句块 1 Case 表达式列表 2 语句块 2 Case Else 语句块 n End Select 注意 测试表达式的类型只能是数值数据或字符型 表达 式列表的值只要第一个符合测试表达式值的要求 就结束 Select Case 语句 表达式列表可以是三种结构或三种混合结构 1 To 10 1 3 5 6 7 8 Is 10 1 2 5 7 Is 10 例题 例题 1 在窗体上画一个名称为 Command1 的命令按钮和 两个名称分别为 Text1 和 Text2 的文本框 然后编写如下事件过程 Private Sub Command1 Click n Text1 text Select Case n Case 1 T 10 X 10 Case 2 4 6 X 20 Case Is5 逻辑表 达式 a 5 And c 4 变量 i 或常数 0 执行过程 条件成立 变 量的值就是 参数 1 否则变量的值就是 参数 2 例题 例题 1 设 a 6 则执行语句 x IIF a 5 1 0 后 x 的 值为 D A 5 B 6 C 0 D 1 知识点知识点 8 8 1 循环结构 For 循环变量 初值 To 终值 Step 步长 循环体 If 条件 Then 语句 Exit For End If Next 循环变量 注意 循环如果正常退出时注意 循环如果正常退出时 没有执行没有执行 ExitExit ForFor 语句语句 那么循环变量必须要大于终值或等于终值那么循环变量必须要大于终值或等于终值 步长 步长 Do While 条件 循环体 Loop Do Until 条件 循环体 Do 循环体 Loop While 条件 Do 循环体 Loop Until 条件 Loop 注意 左边上下两种循环是先判断条件后执行循环注意 左边上下两种循环是先判断条件后执行循环 体 右边上下两种循环是不管条件成立与否都至少执行一次 体 右边上下两种循环是不管条件成立与否都至少执行一次 WhileWhile 循环是条件成立执行循环体 循环是条件成立执行循环体 UntilUntil 循环是条件不成立执行循环体 循环是条件不成立执行循环体 例题 例题 1 下列程序段的执行结果为 B s 0 t 0 u 0 For x 1 To 3 For y 1 To x For z y To 3 s s 1 Next z t t 1 Next y u u 1 Next x Print s t u A 3 6 14 B 14 6 3 C 14 3 6 D 16 4 3 分析 分析 A 组语句和 B 语句都在 X 循环内 并且是并列的 所以可以先计算 B 组语句 A 组语句暂时不算 这样很容易求出 u u 1 语句循环了三次 则 u 3 C 组语句和 D 语句都在 Y 循环内 并且是并列的 所以可以先计算 D 组语句 C 组语句暂时不算 这 样也比较容易求出 t t 1 语句循环了六次 则 t 6 然后再结合答 案很快就能得出答案是选 B 知识点知识点 9 9 1 数组 数组的概念 等级考试主要考一维数组 二维数组和三维数 组 三维的只需知道数组中可以存储多少数据即可 数组的格式 a 2 3 To 7 1 To 2 那它的存储空间大小计算 每一维用上界 下界 1 计算 例如 2 0 1 7 3 1 2 1 1 3 5 4 60 数组的下标下界是根据语句 Option Base n 来 决定 当 n 0 时 数组下标下界是从 0 开始 当 n 1 时 数组下标 下界是从 1 开始 数组分为 固定大小数组 Dim a 10 As Integer 动态大小数组 Dim a As Integer Redim a 10 Array 函数用法 为一个变体型变量变体型变量创建一个数 组 Dim a as Variant a Array 1 2 3 4 5 因此 a 0 1 a 1 2 a 2 3 a 3 4 a 4 5 注意 如果数组被定义为一下三种类型 1 数 值型 2 字符型 3 逻辑型 则它们初始化的数组元素数值分别 为 0 空字符串和 False 例题 例题 1 在窗体上画一个命令按钮 其 Name 属性为 Command1 然后编写如下代码 Private Sub Command1 Click Dim a 4 4 As Integer For i 1 To 4 For j 1 To 4 a i j i 1 3 j Next j Next i For i 3 To 4 For j 3 To 4 Print a j i Next j Print Next i End Sub 程序运行后 单击命令按钮 其输出结果为 D A 6 9 B 7 10 C 8 11 D 9 12 7 10 8 11 9 12 10 13 分析 分析 对循环和数组结合的问题 往往要先看 B 组语 句输出结果是什么 然后根据 B 组语句输出结果代入到 A 组语句中 求结果 B 组语句输出结果 代入 A 组语句的结果 知识点知识点 1010 1 过程与函数 过程与函数的参数类型有 实参和形参 传递方式 有 值传递和地址传递 a 3 3 a 4 3 a 3 4 a 4 4 9 12 10 13 以下程序中 x y 为实参 a b 为形参 注意 实参要与形参的类型 个数要相同 注意 实参要与形参的类型 个数要相同 在形参 a b 之前如果加上关键字 ByVal 那么就是 值传递 如果加上关键字 ByRef 或不加关键字 那么就是地址传递 过程调用方式有两种 Call Swap x y 或 Swap x y Swap Swap 是过程名是过程名 注意 只有地址传递方式才能实现交换功能 值传递注意 只有地址传递方式才能实现交换功能 值传递 方式方式 x yx y 的值不变 当有事件过程和通用过程一起运行时 先执行的值不变 当有事件过程和通用过程一起运行时 先执行 事件过程事件过程 Command Click Command Click 例题例题 1 假定有如下的 Sub 过程 Sub S x As Single ByValByVal y as Single t x x t y y t Mod y End Sub 在窗体上画一个命令按钮 其名称为 Command1 然后编写如下事件过程 Private Sub Command1 Click Dim a As Single b As Single a 5 b 4 S a b Print a b End Sub 程序运行后 单击命令按钮 输出结果为 C A 5 4 B 1 1 C 1 25 4 D 1 25 1 程序分析 程序分析 首先形参 x 是地址传递方式 当 a 传递给 x 时 因此 a 与 x 拥有一个共同存储空间 图形表示 形参 y 是值传递方式 当 b 传递给 y 时 因此 b 与 y 是两个不同存储空间 图形表示 那么在过程 S 中 运算 x t y 后 x 1 25 图形表示 因此 a 的值就是 1 25 运算 y t Mod y 后 y 1 图形表示 因为此时 b 和 y 存储空间不同 则不影响 b 的值 则还是 4 因此 Print a b 的结 果就是选择 C 答案 知识点知识点 11 11 1 菜单和鼠标事件 菜单编辑器的使用 注意 菜单中的标题可以为空 但不论是第几级菜单 名称必须唯一 且不能为空 鼠标事件 按下鼠标键事件过程 主要事件有 Form MouseDown Form MouseUp 和 Form MouseMove 现在以某个为例说明 Private Sub Form MouseDown Button As Integer Shift As Integer X As Single Y As Single End Sub 上述事件过程不仅使用在窗体上 Form MouseDown 还可以使用于大多数控件上 包括命令按钮 Command1 MouseDown 或文本框 Text1 MouseDown 等 以上鼠标事件过程的参数 含义如下 1 Button 有值 1 2 和 4 分别表示按下左键 右键和中建 2 Shift 表示 Shift Ctrl 和 Alt 键的状态 其值分别是 1 2 和 4 3 X Y 表示鼠标光标的坐标位置 弹出式菜单 菜单和鼠标事件的结合使用 Private Sub Form MouseDown Button As Integer Shift As Integer X As Single Y As Single If Button 1 Then 按下鼠标左键 PopUpmenu FileFile 通过 PopUpmenu 方法弹出菜单 End If File 是一级 菜单的名称 End Sub 运行效果运行效果 2 公共对话框 又称通用对话框 通用对话框是我们考试中唯一一个控件箱中没有 的控件 需要我们自己添加的 添加的方法是在 工程 菜单的 部件 项中选择 Microsoft Common Dialog Control 6 0 后 才会在控件箱中出现通用对话框图标 通用对话框图形 根据以上图形 相应的程序代码如下 根据以上图形 相应的程序代码如下 注意 注意 CommonDialog FilterIndexCommonDialog FilterIndex 索引索引 索引是从 索引是从 1 1 开始 开始 知识点知识点 1212 1 文件 文件包括三种 顺序文件 随机文件和二进制文件 顺序访问 文件中数据是以 ASCIIASCII 码存储的 随机访问 文件长度记录是固定不变固定不变的 数据类型可 以不同 数据以二进制方式存储在文件中 可以任意可以任意 时候 任意地方访问时候 任意地方访问 二进制访问 必须知道数据是如何写入文件的 如果源文件是字符类型 那么读写文件如下所示 如果源文件是字符类型 那么读写文件如下所示 读文件的格式 Open App Path Max 最小数 Min 和 Sum 平均数 Avg End Sub 二 求阶层二 求阶层 例题 求 10 Private Sub Command1 Click Dim Sum As Long i As Integer Sum 1 ForFor i i 1 1 ToTo 1010 Sum Sum iSum Sum i NextNext i i Print 10 Sum End Sub 三 求最大公约数三 求最大公约数 例题 求 M 和 N 两个数的最大公约数 Private Sub Command1 Click Dim M As Integer N As Integer R As Integer M 36 N 24 Do R MR M ModMod N N M NM N N RN R Loop While R0 或 Loop Until R 0 Print M 和 N 的最大公约数为 M End Sub 四 求素数四 求素数 例题 求 100 200 之间的所有素数 并按每行 5 个元素 格式输入所有素数 Private Sub Command1 Click Dim n As Integer i As Integer j As Integer For n 100 To 200 ForFor i i 2 2 ToTo n 1n 1 n 1 可以是 n 2 也可以是 Sqr n 形式 IfIf n n ModMod i i 0 0 ThenThen ExitExit ForFor NextNext i i IfIf i n 1i n 1 ThenThen j j 1 统计素数个数 Print n If j Mod 5 0 Then Print 输出 5 个数换行 EndEnd IfIf Next n End Sub 五 求水仙花数 拆数法 五 求水仙花数 拆数法 例题 求 100 999 之间的所有水仙花数 并将所有水 仙花数在文本框中显示 所谓水仙花数 即 153 1 3 5 3 3 3 条件 成立 方法方法 1 1 数值型 使用运算符 Mod 和 Private Sub Command1 Click Dim i As Integer a As Integer b As Integer c As Integer For i 100 To 999 a i 100a i 100 取百位数 b i 10b i 10 ModMod 1010 取十位数 c ic i ModMod 1010 取个位数 IfIf i a 3 b 3 c 3i a 3 b 3 c 3 ThenThen Text1 Text Text1 Text i Space 2 End If Next i End Sub 方法方法 2 2 字符型 使用函数 Mid Val 和 CStr Private Sub Command1 Click Dim i As Integer a As Integer b As Integer c As Integer For i 100 To 999 a a Val Mid Cstr i 1 1 Val Mid Cstr i 1 1 取百位数 b b Val Mid Cstr i 2 1 Val Mid Cstr i 2 1 取十位数 c c Val Mid Cstr i 3 1 Val Mid Cstr i 3 1 取个位数 IfIf i a 3 b 3 c 3i a 3 b 3 c 3 ThenThen Text1 Text Text1 Text i Space 2 End If Next i End Sub 六 排序问题六 排序问题 例题 随机产生 10 个两位整数两位整数 并存入数据 a 中 然 后将这 10 个元素从小到大排序 或从大到小 并将排序号的数组 显示在文本框中 方法方法 1 1 选择排序 Private Sub Command1 Click Dim a 10 As Integer i As Integer j As Integer temp As Integer For i 1 To 10 a i Int Rnd 90 10a i Int Rnd 90 10 产生 10 99 之间的随机整数 Next i For i 1 To 9 比较 n 1 轮 For j i 1 To 10 每一轮比较 几次 If a i a j Then 从大到小 a i a j a Pointer a j ThenThen Pointer jPointer j Next j IfIf i i PointerPointer ThenThen temp a i temp a i a i a j a i a j a j tempa j temp End If Next i For i 1 To 10 Text1 Text Text1 Text a i space 2 Next i End Sub 方法方法 1 1 冒泡排序 Private Sub Command1 Click Dim a 10 As Integer i As Integer j As Integer temp As Integer For i 1 To 10 a i Int Rnd 90 10a i Int Rnd 90 10 产生 10 99 之间的随机整数 Next i For i 1 To 9 比较 n 1 轮 For j 1 To 10 i 每一轮比较 几次 If a j a j 1 Then 从大到小 a i A And c a And c z Then s s c End If Next i Print s End Sub 3 统计每类字符的个数 例题 在文本框中输入一个字符串 比如 A m4Ch F13iy p41H 请分别统计出大写字母 小写字母 数字字 符和其他字符的个数 Private Sub Command1 Click Dim n As Integer i As Integer c As String Dim n1 As Integer n2 As Integer n3 As Integer n4 As Integer n Len Text1 Text For i 1 To n c Mid Text1 Text i 1 Select Case c Case A To Z n1 n1 1 Case a To z n2 n2 1 Case 0 To 9 n3 n3 1 Case Else n4 n4 1 End Select Next i Print 大写字母个数 n1 小写字母个数 n2 数字字符个数 n3 其他字符个数 n4 End Sub 八 矩阵 二维数组 八 矩阵 二维数组 四种矩阵的算法 图形表示 对比图 图图 图图 图图 图图 例题 有一个 4 行 4 列二维数组 现随机生成 16 个两位整数 并将它们存入到二维数组中 现根据以上四种图形分别求主对角线 副对角线 外圈数据以及内圈数据之和 第一种矩阵算法 主对角线 Private Sub Command1 Click Dim a 4 4 As Integer i As Integer j As Integer Dim sum As Integer For i 1 To 4 For j 1 To 4 a i j Int Rnd 90 10 Next j Next i For i 1 To 4 For j 1 To 4 IfIf i i j j ThenThen 行下标和列下 标相同 sum sum a i j End If Next j Next i Print 主对角线数据之和 sum End Sub 第二种矩阵算法 副对角线 Private Sub Command1 Click Dim a 4 4 As Integer i As Integer j As Integer Dim sum As Integer For i 1 To 4 For j 1 To 4 a i j Int Rnd 90 10 Next j Next i For i 1 To 4 For j 1 To 4 IfIf i i j j 5 5 ThenThen 行下标和列 下标之和是一个定数 sum sum a i j End If Next j Next i Print 副对角线数据之和 sum End Sub 第三种矩阵算法 外圈数据 Private Sub Command1 Click Dim a 4 4 As Integer i As Integer j As Integer Dim sum As Integer For i 1 To 4 For j 1 To 4 a i j Int Rnd 90 10 Next j Next i For i 1 To 4 For j 1 To 4 IfIf i i 1 1 OrOr i i 4 4 ThenThen sum sum a i j ElseIfElseIf j j 1 1 OrOr j j 4 4 ThenThen sum sum a i j End If Next j Next i Print 外围数据之和 sum End Sub 第三种矩阵算法 外圈数据 Private Sub Command1 Click Dim a 4 4 As Integer i As Integer j As Integer Dim sum1 As Integer sum2 As Integer sum As Integer For i 1 To 4 For j 1 To 4 a