本书以VisualBasic6.0为蓝本，通过分析思路、解决办法、程序完善等环节剖析一个个鲜活的实训，从而培养读者良好的编程思维与编程习惯。本书共分11章，主要内容有：初识VisualBasic、VisualBasic程序设计概述、VisualBasic语言基础、顺序结构程序设计、选择结构程序设计、循环结构程序设计、数组、过程、图形与图像设计、程序调试。每章安排若干实训，分别对各章的重要知识进行训练，最后通过3个综合实训对全书内容进行了综合训练。本书实训内容全面，且具有实效性和代表性，适合作为各类中职院校“VisualBasic程序设计”课程的辅导书，也可作为高职院校和VisualBasic培训班用书，还可供初学编程的人员参考使用。

Visual Basic（简称 VB）是面向对象、可视化、结构化的程序设计语言，以其易学、易用的特 点成为许多编程人员的首选，同时也被越来越多的学校及培训机构采用。本书以Visual Basic 6.0 为语言背景，通过大量实训培养读者的编程思路及实际应用能力，为以后学习其他面向对象编程 语言打下坚实的基础。 本书实训内容强调实效性、代表性，在分析与说明上尽量做到简单明了、通俗易懂。对实例 中所涉及的知识点在其所在章的“相关知识”中都做了详细的说明，各实训中的练习部分能够引 导读者举一反三，从而达到掌握知识的目的。 本书由庄振安、刘伟东任主编，由庄晓英、丁国武任副主编，具体分工如下：刘伟东编写第 一章、第二章，庄晓英编写第三章、第九章，庄振安编写第四章～第八章，丁国武编写第十章、 第十一章。 本书是编者在多年 VB 教学的基础上精心策划和编写的，虽在编写中力求谨慎，但限于编者 学识、经验，难免存在疏漏和不足之处，恳请广大同行和各位读者提出宝贵意见，以便今后修改 完善。
编 者

2017 年 12 月

第一章 初识 Visual Basic ...............................................................................................1 实训 VB 应用程序界面的建立..................................................................................................3 典型题解析...................................................................................................................................4
第二章 Visual Basic 程序设计概述 .................................................................................6 实训一 属性窗口的认识..........................................................................................................10 实训二 代码设置属性值..........................................................................................................10 实训三 对事件的理解 .............................................................................................................12 实训四 名称属性 .....................................................................................................................13 实训五 鼠标事件 .....................................................................................................................14 实训六 控件随着窗体变化——位置与大小属性....................................................................16 典型题解析.................................................................................................................................17
第三章 Visual Basic 语言基础 ......................................................................................19 实训一 日期时间函数——电子时钟 .......................................................................................21 实训二 字符函数——电子时钟...............................................................................................23 实训三 随机函数——抽奖.......................................................................................................23 实训四 关于 Rnd(0)的测试......................................................................................................24 实训五 整除问题 .....................................................................................................................25 实训六 关于 Int(n)函数的使用 ................................................................................................26 典型题解析.................................................................................................................................27
第四章 顺序结构程序设计 ............................................................................................30 实训一 多窗体的操作 .............................................................................................................33 实训二 定位函数——小熊.......................................................................................................34 实训三 赋值语句、文本框、标签——付款方案....................................................................36 实训四 逆推法——买糖果.......................................................................................................37 实训五 输入输出函数——求圆的周长和面积........................................................................39 典型题解析.................................................................................................................................40
第五章 选择结构程序设计 ............................................................................................42 实训一 单行 If 语句——QQ 登录 ............................................................................................45 实训二 块 If 语句、If 语句嵌套——统计奇偶数....................................................................47 实训三 If 语句的嵌套格式 ElseIf ............................................................................................49 实训四 多分支结构程序设计——季节判断............................................................................50 实训五 单计时器——字幕滚动...............................................................................................51 实训六 双计时器——字幕滚动...............................................................................................53 实训七 单选按钮的分组实例..................................................................................................54 实训八 复选框实现单选按钮的功能 ......................................................................................56 实训九 赋值号与等号 .............................................................................................................57 典型题解析.................................................................................................................................60
第六章 循环结构程序设计 ............................................................................................63 实训一 用 For...Next 计算累加和 ............................................................................................69 实训二 寻找水仙花数 .............................................................................................................71 实训三 三角图形的输出..........................................................................................................73 实训四 正九九表 .....................................................................................................................75 实训五 倒九九表 .....................................................................................................................76 实训六 百钱百鸡 .....................................................................................................................77 实训七 寻找最值 .....................................................................................................................79 实训八 阶乘和.........................................................................................................................80 实训九 求 s=a+aa+...aaaaa .......................................................................................................82 实训十 Do 循环——求自然对数 e 的近似值...........................................................................83 实训十一 求最大 N 值.............................................................................................................85 实训十二 认识列表框属性......................................................................................................86 实训十三 移动列表框内容......................................................................................................89 实训十四 组合框实例 .............................................................................................................92 实训十五 斐波那契数列..........................................................................................................93 典型题解析.................................................................................................................................94
第七章 数组 ...............................................................................................................100 实训一 一维数组的使用........................................................................................................102 实训二 二维数组的使用........................................................................................................104 实训三 动态数组的使用........................................................................................................105 实训四 控件数组的使用........................................................................................................106 实训五 冒泡排序法 ...............................................................................................................108 实训六 简单选择排序法........................................................................................................112 实训七 顺序查找法 ...............................................................................................................114 实训八 二分查找法 ...............................................................................................................115 实训九 数组元素的插入算法................................................................................................118 典型题解析...............................................................................................................................120
第八章 过程 ...............................................................................................................123 实训一 通过过程实现简单选择排序 ....................................................................................126 实训二 通过过程求数组元素之和（传址）.........................................................................128 实训三 通过函数求数组元素之和（传址）.........................................................................130 实训四 传值与传址 ...............................................................................................................131 实训五 递归算法——猴子吃桃.............................................................................................132 实训六 变量的作用域 ...........................................................................................................133 典型题解析...............................................................................................................................136
第九章 图形与图像设计..............................................................................................140 实训一 窗体切换与 RGB 认识 ..............................................................................................142 实训二 RGB()函数与 Line 方法——窗体颜色过渡效果 .......................................................143 实训三 Pset 方法——正弦函数图像......................................................................................144 实训四 Circle 方法——奥运五环 ..........................................................................................145 实训五 Image 控件——图像浏览器.......................................................................................146 典型题解析...............................................................................................................................147
第十章 程序调试 ........................................................................................................149 实训 程序运行错误及程序调试............................................................................................150 典型题解析...............................................................................................................................153
第十一章 综合应用.....................................................................................................155 实训一 动态数组插入排序....................................................................................................156 实训二 九宫游戏...................................................................................................................161 实训三 数字读数...................................................................................................................166

庄振安，赤峰市松山区职教中心 ，多年从事计算机专业教学与研究，在计算机专业教学方面有着丰富的教学经验。曾获得全国计算机课件制作三等奖。刘伟东，赤峰市松山区职教中心 ，多年从事计算机专业教学与研究，在计算机专业教学方面有着丰富的教学经验。