第一题：

第二题：

第三题：

第四题：

第五题：

这部分内容主要考察的是程序设计语言的知识点：

开发图形用户界面 (GUI) 的方法——不需编写大量代码去描述界面元素的外观和位置，而只要把预先建立的对象add到屏幕上的一点即可。 “Basic”指的是 BASIC (Beginners All-Purpose Symbolic Instruction Code) 语言，是一种在计算技术发展历史上应用得最为广泛的语言。

VB拥有图形用户界面（GUI）和快速应用程序开发（RAD）系统，可以轻易的使用DAO、RDO、ADO连接数据库，或者轻松的创建Active X控件，用于高效生成类型安全和面向对象的应用程序 。程序员可以轻松的使用VB提供的组件快速建立一个应用程序。

在使用传统的程序设计语言编程时，一般需要通过编写程序来设计应用程序的界面（如界面的外观和位置等），在设计过程中看不见界面的实际效果。而在Visual Basic 6.0中，采用面向对象程序设计方法（Object-Oriented Programming），把程序和数据封装起来作为一个对象，每个对象都是可视的。

开发人员在界面设计时，可以直接用Visual Basic 6.0的工具箱在屏幕上“画“出窗口、菜单、命令按键等不同类型的对象，并为每个对象设置属性。开发人员要做的仅仅是对要完成事件过程的对象进行编写代码，因而程序设计的效率可大大提高。

遇到不会的题就上网找答案照抄，根本不想动脑筋，会让学生养成，在网上是问不到答案的哈不思考的习惯，改正吧，多思考 做题不怕做错，就怕不思考

第1章 Visual Basic概述 11.1 知识点 11.1.1 Visual Basic的版本 11.1.2 Visual Basic的主要特点 11.1.3 Visual Basic 6.0的启动 11.1.4 Visual Basic的退出 11.1.5 Visual Basic的开发环境 11.1.6 Visual Basic常用的文件类型 21.2 习题解答 21.3 测试题 31.4 实验1 认识Visual Basic 6.0 3第2章 Visual Basic应用程序设计过程 122.1 知识点 122.1.1 面向对象程序设计的基本概念 122.1.2 窗体 122.1.3 命令按钮 132.1.4 标签 142.1.5 文本框 142.1.6 程序设计过程 152.2 习题解答 152.3 测试题 192.4 实验2 创建简单的Visual Basic应用程序 202.4.1 实验2-1 窗体实验 202.4.2 实验2-2 命令按钮实验 232.4.3 实验2-3 求两个数的积 252.4.4 实验2-4 两个窗体 272.4.5 实验2-5 文本框的Change事件 29第3章 VB语言基本知识 313.1 知识点 313.1.1 Visual Basic的数据类型 313.1.2 常量和变量 313.1.3 运算符与表达式 313.1.4 常用内部函数 323.2 习题解答 323.3 测试题 343.4 实验3 Visual Basic的变量、函数与表达式的使用 363.4.1 实验3-1 随机函数 363.4.2 实验3-2 定义变量的数据类型 363.4.3 实验3-3 函数运算 38第4章 程序的控制结构 404.1 知识点 404.1.1 顺序结构 404.1.2 选择结构 414.1.3 循环结构 434.2 习题解答 444.3 测试题 564.4 实验4 顺序结构程序设计 614.4.1 实验4-1 变量互换 614.4.2 实验4-2 输入框函数 624.4.3 实验4-3 消息框函数 634.5 实验5 选择结构程序设计 644.5.1 实验5-1 3个数排序 644.5.2 实验5-2 简易计算器 654.6 实验6 循环结构程序设计 674.6.1 实验6-1 自然数之和小于1000 674.6.2 实验6-2 同构数 674.6.3 实验6-3 找素数 68第5章 数组与过程 705.1 知识点 705.1.1 数组 705.1.2 Sub子过程 715.1.3 Function自定义函数过程 715.1.4 子过程和函数过程的参数传递 715.1.5 变量的作用域与生存期 725.2 习题解答 725.3 测试题 845.4 实验7 数组 975.4.1 实验7-1 生成数组 975.4.2 实验7-2 选手得分 985.4.3 实验7-3 选择排序 995.5 实验8 过程与函数 1005.5.1 实验8-1 自然数阶乘之和 1005.5.2 实验8-2 偶数等于素数之和 1015.5.3 实验8-3 传递数组 1025.5.4 实验8-4 静态变量 103第6章 Visual Basic常用控件 1056.1 知识点 1056.1.1 单选按钮控件(OptionButton) 1056.1.2 复选框控件(CheckBox) 1056.1.3 框架控件(Frame) 1056.1.4 列表框控件(ListBox) 1066.1.5 组合框控件(ComboBox) 1066.1.6 图片框控件(PictureBox) 1076.1.7 图像框控件(Image) 1076.1.8 滚动条控件(HScrollBar、VscrollBar) 1086.1.9 计时?控件(Timer) 1086.1.10 直线控件(Line)与形状控件(Shape) 1086.1.11 文件系统控件 1096.2 习题解答 1096.3 测试题 1146.4 实验9 标准控件(上) 1186.4.1 实验9-1 单选按钮、复选框和框架控件实验 1186.4.2 实验9-2 组合框控件实验 1196.4.3 实验9-3 列表框控件实验 1216.4.4 实验9-4 标准控件综合实验一 1226.5 实验10 标准控件(下) 1226.5.1 实验10-1 计时器控件实验 1226.5.2 实验10-2 计时器、滚动条和形状控件实验 1236.5.3 实验10-3 图像框与文件系统控件实验 1256.5.4 实验10-4 标准控件综合实验二 126第7章 Visual Basic高级控件 1277.1 知识点 1277.1.1 公共对话框控件 1277.1.2 Windows公用控件 1277.1.3 工具箱中添加“高级控件”选项卡 1287.1.4 ActiveX控件添加到工具箱中 1287.2 习题解答 1287.3 测试题 1297.4 实验11 VB高级控件(上) 1317.4.1 实验11-1 公共对话框实验 1317.4.2 实验11-2 工具栏实验 1327.4.3 实验11-3 状态栏实验 1347.5 实验12 VB高级控件(下) 1357.5.1 实验12-1 选项卡实验 1357.5.2 实验12-2 树视图控件与列表视图控件实验 1387.5.3 实验12-3 进程条控件和滑块控件实验 1397.5.4 实验12-4 绘图实验 142第8章 菜单及MDI窗体设计 1448.1 知识点 1448.1.1 菜单的组成 1448.1.2 菜单器 1448.1.3 下拉式菜单 1458.1.4 弹出式菜单 1458.1.5 MDI多文档窗体 1458.2 习题解答 1458.3 测试题 1468.4 实验13 菜单与多文档窗口实验 1478.4.1 实验13-1 菜单实验 1478.4.2 实验13-2 快捷菜单 1518.4.3 实验13-3 多文档窗口实验 152第9章 文件操作 1569.1 知识点 1569.1.1 文件分类 1569.1.2 顺序文件 1569.1.3 随机文件 1579.2 习题解答 1579.3 测试题 1599.4 实验14 顺序文件 1609.5 实验15 随机文件 161第10章 数据库应用程序设计 16310.1 知识点 16310.2 习题解答 16310.3 测试题 16510.4 实验16 数据库设计 16610.4.1 实验16-1 用Adodc控件连接数据库和表实验 16610.4.2 实验16-2 设计学生信息查询窗体 170第11章 多媒体应用程序设计 17211.1 知识点 17211.2 实验17 多媒体应用程序设计 17211.2.1 实验17-1 Multimedia控件 17211.2.2 实验17-2 Animation控件 173第12章 网络应用程序设计 17612.1 知识点 17612.2 实验18 网络应用程序设计 17612.2.1 实验18-1 Winsock控件 17612.2.2 实验18-2 Web Browser控件 179第13章 综合性实验 18313.1 实验19 综合性实验 183第14章 Visual Basic课程设计基础 18914.1 概述 18914.2 课程设计的要求 18914.2.1 课程设计的目的 18914.2.2 课程设计的一般步骤及要求 18914.2.3 课程设计报告主要内容 19014.3 课程设计预备知识 19014.4 课程设计参考题目 19014.4.1 数据库管理类 19014.4.2 游戏类 19114.4.3 办公类 191第15章 Visual Basic+Access数据库课程设计开发实例 19215.1 系统总体设计 19215.1.1 软硬件环境支持 19215.1.2 系统主要功能 19215.1.3 系统功能模块图 19215.1.4 ADO技术应用 19315.2 数据库设计 19315.3 详细设计 19415.3.1 通过Microsoft Office Access2003建立Access数据库及表 19415.3.2 通过ADO技术访问外部Access数据库 19415.3.3 系统主模块 19515.3.4 系统管理模块 19615.3.5 人员信息管理模块 19615.3.6 工资管理模块 19815.3.7 考勤管理 19915.4 编程调试运行 199第16章 自测综合练习题 20616.1 综合练习一 20616.2 综合练习二 213

不得不告诉你，目前还没有大学VB第三版实验教程答案，只有课本答案。别的你不要相信，都不对应，不是课本就是第二版或第一版答案。我也寻好久了。都是这情况

Option ExplicitPrivate Sub Command1_Click()Dim a() As IntegerDim i, j, nReDim a(9, 9)For i = 1 To 8Print Tab(25 - i * 2);For j = 1 To ia(i, 1) = 1a(i, i) = 1a(i + 1, j + 1) = a(i, j) + a(i, j + 1)Print a(i, j);Next jPrintNext iEnd Sub

习题一 答案在教材上找。习题二1.对象指现实世界中的实体。每个对象有自己的特征(属性)、行为(方法)和发生在该对象上的活动(事件)。类是对同一种对象的集合与抽象。类包含所创建对象的属性数据，以及对这些数据进行操作的方法。封装和隐藏是类的重要特性，将数据结构和对数据的操作封装在一起，类的内部实现细节对用户来说是透明的。VB工具箱中的可视图标是VB系统设计好的标准控件类。通过将控件类实例化，得到真正的控件对象。在窗体上画一个控件，就将类转换为对象，创建了一个控件对象。VB中常用的对象是控件。此外，VB还提供了系统对象。窗体是个特例，它既是类也是对象。当向一个工程添加一个新窗体时，实质就由窗体类创建了一个窗体对象。对象的三要素：属性、事件和方法。属性：存放对象的数据(决定对象外观及功能)对象属性的设置方法：在设计阶段，利用属性窗口直接设置属性值；程序运行时，通过语句属性名=属性值。若属性只能在设计阶段设置，在程序运行阶段不可改变，称为只读属性。 事件：发生在对象上的事情。同一事件，对不同的对象，会引发不同的反应。事件过程：应用程序处理事件的步骤。应用程序设计的主要工作就是为对象编写事件过程的代码。方法：面向对象的程序设计语言，为程序设计人员提供了一种特殊的过程和函数。方法是面向对象的，调用时一定要指明对象。2.窗体和控件具有的基本属性“(1) Name属性：名称 所创建的对象名称,在程序中引用。(2) Caption属性：标题 该属性决定了对象上显示的内容。(3) Height、Width、Top和Left属性 决定对象的大小和位置。(4) Enabled 属性：对象是否允许操作(5) Visible 属性：对象是否可见(6) Font 属性组：文本的外观 FontName字体、FontSize大小 FontBold粗体、FontItalic斜体 FontStrikethru 删除线 FontUnderline 下划线 (7) ForeColor属性：前景颜色(8) BackColor属性：背景颜色(9) MousePointer属性：鼠标指针类型, 设置值范围0～15，由系统指定 。若为99，由用户提供的图形文件定义鼠标指针形状。(10) MouseIcon属性：在MousePointer属性值为99时，存放自定义的鼠标图标文件（.ico或.cur）。图标库在Graphics目录下。

3.窗体的事件：Load事件是在窗体被装入工作区时触发的事件。当应用程序启动，自动执行该事件，该事件通常用来在启动应用程序时对属性和变量进行初始化。窗体的方法:（1）Print方法用来显示文本内容，格式：print 表达式（2）Cls方法 清除运行时在窗体或图形框中产生的文本或图形, Cls方法不能清除窗体在设计时的文本和图形。格式：cls（3）Move方法可移动窗体或控件，并可改变其大小。语法格式如下：4.标签作用：用于显示文本(输出)信息，不能作为输入信息的界面。其内容只能通过Caption属性设置或修改，不能直接。5.文本框是一个文本区域，可以在该区域输入、、修改和显示正文内容。在VB中字符长度以字为单位，也就是一个西文字符与一个汉字都是一个字，长度为1。重要属性(1) Text 显示或输入的正文内容。(2) Maxlength 设置文本框可输入的文字最大长度。默认值为0，表示可以输入任意长字符串。(3) MultiLine 多行属性设置为True时，文本框可以输入或显示多行正文，同时具有文字处理器的自动换行功能，按Enter键可插入一空行。(4) ScrollBars 滚动条属性 0-None 无滚动条 1-Horizontal 水平滚动条 2-Vertical 垂直滚动条 3-Both 同时加水平和垂直滚动条注意：当MultiLine为True时，ScrollBars才有效(5) PassWordChar 设置显示文本的替代符。例如，当设置为“*”，则在文本框输入的内容均以“*”显示，而存储的值是用户输入的原文。一般用于设置口令的输入。当MultiLine为True时，该属性不起作用，密码不允许多行。(6) Locked 指定文本控件是否可被，默认值为False(可)，当设置为True时，文本控件相当于标签控件的作用。注意：Locked与Enabled的区别。 (7)文本内容进行选择操作的三个属性SelStart 选定的正文开始位置SelLength 选定的正文长度SelText选定的正文内容这3个属性互相关联,例如设置SelStart、SelLength后，SelText 自动存放指定的文本。注意：属性窗口中没有这三个属性，只能在程序代码中使用。

6.文本框的事件：(1) Change事件：当Text属性值发生改变时引发该事件(2) KeyPress事件：按下并且释放键盘上的一个键时，引发焦点所在控件的KeyPress事件，所按键的值存放在参数KeyAscii中。对回车的判断 KeyAscii=137.文本框最有用的方法是SetFocus，把光标移到指定的文本框中。8.命令按钮 Picture属性：按钮可显示图片文件(.bmp和.Ico)，当Style为1时有效。10. 启动窗体时将命令按钮定位在窗体中央的代码 Private Sub Form_Load() Command1.Left = Form1.ScaleWidth / 2 - Command1.Width / 2 Command1.Top = Form1.ScaleHeight / 2 - Command1.Height / 2 End Sub11．vb图片文件在 C:\Program Files\Microsoft Visual Studio\Common\Graphics 文件夹。 安装VB时可选择是否安装这些图片文件。习题三1. 合法常量：(1) Double(2) 错误(3) Double(4) Double(5) 错误(6) Integer(7) String(8) String(9) Date(10) Double(11) 错误（汉字字符）(12)Integer(八进制)(13) 错误（八进制无数码8）(14) Integer(15) Boolean(16) 错误(17) 错误（十六进制无数码g）(18) Single说明：浮点型变量默认为Double类型而非Single。2. 合法变量名：(1) √(2) √(3) 误：数字开头(4) 误：含空格(5) 误：关键字(6) √(7) 误：关键字(8) 误：有括号(9) √(10) √(11) √(12) √（汉字字符可作为变量名，但不常用，且此名称易误解）变量命名规则见P.41-42。字母（汉字）开头，字母（汉字）、数字、下划线组成，长度为1-255个字符；关键字不可作为变量名，但可在变量名中嵌入关键字；不区分大小写。常量、数组、类型、函数、过程、对象命名规则与此相同。常量名通常全用大写。3. 写VB表达式(1) Abs(x + y) + z ^ 5(2) (1 + x * y) ^ 6(3) (10 * x + Sqr(3 * y)) / (x * y)(4) (-b + Sqr(b ^ 2 - 4 * a * c)) / (2 * a)(5) 1 / (1 / r1 + 1 / r2 + 1 / r3)(6) Sin(45 * 3.14159 / 180) + (Exp(10) + Log(10)) / Sqr(x + y + 1)4. 根据条件写表达式(1) 随机产生大写字母 Chr(Int(Rnd * (Asc(“L“) - Asc(“C“) + 1) + Asc(“C“)))(2) 内的随机数 Int(Rnd * 101) + 100(3) 点(x,y)位于第一或第三象限 x 》 0 And y 》 0 Or x 《 0 And y 《 0 或 x * y 》 0(4) x是5或7的整数倍 x Mod 5 = 0 Or Int(x / 7) = x / 7(5) 将两位整数x的个位与十位对换 x \ 10 + (x Mod 10) * 10(6) 四舍五入取两位小数 Round(x, 2)(7) 字符变量C是字母字符（不区分大小写）——准确地说是：字符变量C的第一个字符是字母 C 》= “A“ And C 《= “Z“ Or C 》= “a“ And C 《 “z“或 UCase(C) 》= “A“ And UCase(C) 《= “Z“或 LCase(C) 》= “a“ And LCase(C) 《= “z“(8) 字符变量S第5个字符起取6个字符 Mid(S, 5, 6)(9) 10≤x＜20 10 《= x And x 《 20(10) x，y至少有一个小于z x 《 z Or y 《 z(11)x，y都大于z x 》 z And y 》 z5. 写表达式的值(1) 188 ——注意运算的优先级顺序，以及整除运算“\”的计算(2) 200100 —— 计算100 + “100“时，由于两个操作数类型不同，在可能的情况下自动采用精度较高的类型，即把字符型转换为数值型，100 +100 得到200；然后进行字符串连接运算200 & 100 ，再自动将两个数值转换为字符串，得200100。(3) 68.56 ——在四舍五入函数产生之前，这就是四舍五入的计算方法(4) 876554 ——先进行字符串的“+”运算，再转换成数值。在变量名和函数名后可加上类型符，以强调其类型，但不是必须的。(5) 2000-2-29(6) 66．Shell函数调用i = Shell(“mspaint.exe“, 1) ’启动画图i = Shell(“C:\Program Files\Microsoft Office\OFFICE11\winword.exe“, 1) ’启动Word说明：“画图”是Windows本身提供的程序，可以省略路径。8. 答：单精度浮点型第7，9题答案在教材中找。习题四第1，3，5，8题答案在教材中找。2. 赋值语句的错误 （1）10x 不能做变量名。 上机验证结果：VB将10识别为行号，x = Sin(x) + y是为变量x赋值。故无语法错误。（2）Sqr函数的参数为负数。 上机验证结果：“无效的过程调用或参数”（3）赋值号左边不是变量名。 上机验证结果：“缺少子程序、函数或属性”（4）除数为0 上机验证结果：“溢出”。4. 说明：小数位可以使用四舍五入函数Round或输出格式函数Format。例如Round(x, 2)和Format(x, “0.00”)均可使结果只保留两位小数。但如果四舍五入后要进行数值运算，则使用Round函数，例如z=Round(x,2)+Round(y,2)。而Format函数通常只用于输出格式设置。6．指出错误（1）“≥”应改为“》=”，前者是中文字符，不具有运算功能。（2）“10《x《20”应改为“10《x And x《20”，否则运行结果错误。7．写条件语句（1）Dim c As Stringc = InputBox(“c=“)If Mid(c, 3, 1) = “C“ Then MsgBox “Yes“Else MsgBox “No“End If（2）# 使用If语句Dim x As Single, y As Singlex = Val(InputBox(“x=“))If x 》 20 Then y = x ^ 2 + 3 * x + 2ElseIf x 》= 10 Then y = Sqr(3 * x) - 2ElseIf x 》 0 Then y = 1 / x + Abs(x)End IfPrint “y=“; y# 使用Select Case语句Dim x As Single, y As Singlex = Val(InputBox(“x=“))Select Case x Case Is 》 20 y = x ^ 2 + 3 * x + 2 Case Is 》= 10 y = Sqr(3 * x) - 2 Case Is 》 0 y = 1 / x + Abs(x)End SelectPrint “y=“; y（3）# 使用If语句Dim x As Single, y As Single, z As Single, Max As Singlex = Val(InputBox(“x=“))y = Val(InputBox(“y=“))z = Val(InputBox(“z=“))Max = xIf y 》 Max Then Max = yIf z 》 Max Then Max = zPrint “Max=“; Max# 使用IIF函数x = Val(InputBox(“x=“))y = Val(InputBox(“y=“))z = Val(InputBox(“z=“))Max = IIf(x 》 y, x, y)Max = IIf(z 》 Max, z, Max)Print “Max=“; Ma习题十答案在教材上找

Private Sub Command1_Click()    For i = 1 To 10        For j = 1 To 10            If i * j 》= 10 And i * j 《 100 Then                Print i * j;            End If        Next j    Next iEnd Sub

读文件Dim s As StringFileOpen(1, Application.StartupPath & “/score.txt“, OpenMode.Input)While EOF(1) = Falses = LineInput(1)ListBox1.Items.Add(s)End WhileFileClose(1)写文件Dim sw As New System.IO.StreamWriter(Application.StartupPath & “/score.txt“, False, System.Text.Encoding.Default)For i = 0 To 2sw.WriteLine(pers(i).name & Space(4) & pers(i).score)sw.Flush()Nextsw.Close()sw = Nothing