vb程序设计教程(第2版)实验1

《程序设计基础—VB程序实验》说明：实验1和实验2均为电子实验报告，后面8个实验是纸制实验报告。

实验1 计算机基本操作实验目的⑴熟悉计算机，能够正确进行开、关机操作。

⑵熟悉键盘，掌握键盘上所有字符的输入，掌握正确的指法，能够进行中、英文切换。

⑶理解操作系统概念，掌握Windows XP的基本操作，能够利用“控制面板”进行一些参数的设置。

⑷知道“回收站”的功能，学会有关文件、文件夹的基本操作。

⑸学会在计算机上搜索或查找相关的文件或文件夹，掌握通配符的使用。

实验内容⑴熟悉上机实验的计算机，熟悉键盘，学会中、英文输入方式的转换。

⑵学会用正确的指法进行输入，知道键盘上所有字符的输入。

⑶利用“控制面板”修改系统时间、桌面背景、鼠标属性。

⑷在桌面上新建一个文件夹，该文件夹以学生自己的名字+班级+学号的后3位命名。

⑸用文本方式或Word文档，写一段字数不少于300字的自我介绍，以1.doc命名并保存到上述文件夹中。

⑹将上述文件夹复制到ftp://10.10.9.222上。

实验2 常用软件的基本操作实验目的⑴了解Word功能，掌握Word的基本操作，包括页眉/页脚的设置、分栏、页面设置、添加底纹等。

⑵学会文件的保存与打开、打印预览、段落的间隔、首字符位置改变等，能够在Word中插入图片、表格、艺术字、特殊符号等。

⑶了解Excel的功能，掌握Excel的基本操作，包括单元格属性的设置、数字的几种填充形式、单元格的合并与恢复、边框的设置等。

⑷掌握Excel的基本公式的使用，能够用公式进行基本计算。

掌握Excel中的图形制作方法，能够根据表格做出图形。

实验内容⑴将ftp上自己文件夹中的1.doc文件复制到桌面上，然后做如下处理：①将标题“自我介绍”居中；②将文章中第二段的内容进行分栏，要求中间有分割线；③插入一个4行4列的表格，内容为学号、姓名、某门课的成绩；④任意插入一张图片；⑤在文章中的任意位置加底纹。

将做好的文档以2.doc命名并保存。

VB语言程序设计第二版课程设计一、课程设计目的和要求在学习了VB语言程序设计的基础知识后，本次课程设计旨在通过实践，加深对VB语言的理解，提高实际编程能力。

要求学生能够根据题目要求，独立完成程序设计，并能够对自己的程序进行测试和修正，达到运用VB语言解决实际问题的能力。

二、课程设计内容1. 课程设计题目设计一个学生信息管理系统，要求实现以下功能：1.学生信息的录入、查询、修改和删除；2.学生信息的列表显示和排序，可按照学号、姓名、年龄等信息进行排序；3.学生信息的统计功能，可以统计总人数、男女人数、各年龄段人数等。

2. 思路分析根据题目要求，我们需要实现学生信息的录入、查询、修改和删除功能，这需要利用VB语言中的表单、控件和事件进行开发。

同时，为了方便管理学生信息并能够对学生信息进行统计和排序，我们需要使用VB语言中的数据集合和数组来进行处理。

在程序设计中，我们需要设计一个学生信息表单，其中包括学号、姓名、性别、年龄等字段，然后利用VB语言中的数据控件来实现数据的录入、查询、修改和删除功能。

同时，我们还需要设计一个学生信息列表窗体，并实现按照学号、姓名、年龄等字段进行排序和列表显示的功能。

最后，我们需要实现一个学生信息统计窗体，用于统计总人数、男女人数、各年龄段人数等信息。

3. 程序设计3.1 学生信息表单设计学生信息表单主要用于学生信息的录入、查询、修改和删除功能。

我们需要设计一个表单，包括学号、姓名、性别、年龄等字段，同时将数据写入到数据库中。

具体步骤如下：1.设计表单，设置表单属性和控件属性；2.编写VB代码实现数据录入、查询、修改和删除功能；3.连接数据库，将数据写入数据库中。

3.2 学生信息列表窗体设计学生信息列表窗体主要用于按照学号、姓名、年龄等字段进行排序和列表显示的功能。

我们需要设计一个窗体，包括表格和排序功能，同时从数据库中读取数据并显示到表格中。

具体步骤如下：1.设计窗体，添加表格和排序控件；2.编写VB代码实现数据的读取和排序功能。

第二章简单的Visual Basic程序设计本章首先以一个最简单的编程例子为切入点，介绍完成一个应用程序的开发过程，然后归纳出VB应用程序的开发步骤。

接着按照归纳出来的步骤，应用于另一个难度更大的程序实例的开发过程。

并介绍如何使自己设计的应用程序在脱离VB的环境下运行，以及如何制作安装盘。

2.1 初识VB应用程序一个VB应用程序称为一个工程，用来完成一个任务。

“工程”一词是由Microsoft公司的VB6.0汉化人员根据英文“Project”直译的，此处似乎称为项目更为合适。

在Microsoft 公司的系列产品Visual FoxPro6.0中，就将Project译为项目。

为了与VB6.0中所用名称一致，本书将仍按“工程”来称呼“项目”。

一个工程由多个文件组成，除了工程文件（扩展名为.vbp）外，还可能包含有窗体文件（扩展名为.frm）、窗体二进制数据文件（扩展名为.frx）、标准模块文件（扩展名为.bas）、类模块文件（扩展名为.cls）、资源文件（扩展名为.res）、ActiveX控件文件（扩展名为.ocx）和图形文件等。

下面介绍一个最简单程序的完成过程。

【例2-1】设计一个程序，运行时用鼠标单击窗体，就在窗体上显示“Hello, Visual Basic!”一行文字。

程序运行结果如图2-1所示。

图2-1 【例2-1】运行结果步骤如下：(1) 启动VB6.0之后，在“新建工程”对话框中单击“打开”按钮，这时就新建了一个工程。

(2) 在窗体设计器中调整所设计窗体Form1的大小。

(3) 通过属性窗口为窗体对象Form1设置属性：在属性窗口左列找到“Caption”属性，然后将其右列中原有的属性值“Form1”改为“例2-1”。

(4) 双击窗体对象Form1，打开代码窗口，在代码窗口标题栏下面右方的事件列表中选择“Click”事件，这时可以看到系统提供一个相应Form_Click()过程的框架：Private Sub Form_Click()End Sub我们在这两行之间输入一个语句：VisualBasic!""Hello,Print添加事件过程代码如图2-2所示。

VB程序设计第二版课程设计1. 课程设计目的本课程设计旨在通过VB程序设计的实践，帮助学生深入理解VB程序设计的基本原理，掌握VB程序设计的基本技能，并能够应用所学知识解决实际问题。

2. 课程设计要求本课程设计要求学生自行选择一个主题，通过VB程序设计实现一个完整的应用程序。

要求应用程序具有以下功能：•用户登录和注册功能；•数据库的增、删、改、查功能；•数据的可视化展示功能；•文件操作功能；•其他扩展功能。

3. 开发环境开发工具：Visual Basic 6.04. 课程设计实施步骤4.1 选题学生可自由选择主题，但必须符合以下要求：•主题具有一定的实际意义；•主题涵盖VB程序设计的基本知识点。

4.2 需求分析学生需根据所选主题，进行需求分析，明确应用程序的功能需求和用户需求等。

4.3 设计方案学生应根据需求分析结果，进行方案设计。

方案设计应包括以下内容：•总体设计方案；•数据库设计方案；•界面设计方案；•功能模块设计方案；•其他相关方案。

4.4 编码实现学生应根据设计方案，使用VB语言进行编码实现。

实现过程中，需注重代码的规范性、可读性和可维护性等。

4.5 调试测试学生应对所编写的程序进行调试和测试，确保程序能够正常运行，并达到预期目标。

4.6 文档撰写学生应按照要求，编写程序设计文档，包括以下内容：•需求分析报告；•设计方案文档；•编码实现文档；•调试测试报告；•其他相关文档。

5. 课程设计评分要求本课程设计满分为100分，具体评分要求如下：•选题：10分；•需求分析：20分；•设计方案：30分；•编码实现：20分；•调试测试：10分；•文档撰写：10分。

6. 总结本课程设计要求学生以实践为基础，通过开发应用程序，掌握VB程序设计的相关知识和技能。

同时，通过对VB程序设计的实践探索，提高学生的综合分析、解决问题和创新能力。

实验四 选择结构程序设计
一、实验目的
1．掌握逻辑表达式的正确使用方法。

2．掌握单分支、双分支和多分支条件语句结构的使用方法。

3. 掌握选择结构的嵌套
二、实验内容
1 有函数：
⎪⎩⎪⎨⎧≥-<≤-<=)
10(124)101(2
3)1(x x x x x x
y 写一个程序，输入x 值后，则输出相应y 值。

要求用“If …ElseIf …EndIf ”和用“Select Case ”两种方法完成该题目。

1.IF 的写法
2.select 的写法
2编写一个判断给定坐标在第几象限的程序，界面如图3-1所示。

3 编写一个简易学生成绩管理系统，要求输入姓名和成绩，点击“添加”按钮后，在文本框中追加并换行显示“姓名”、“成绩”和“合格”或“不合格”信息，如图3-2所示。

图3-2 实验3-3程序运行界面
进一步要求：按照≥90为“优”，≥80为“良”，≥70为“中”，≥60为“及格”，<60为“不及格”来划分并显示上述信息。

4 编写完整的一元二次方程求根的程序
思考题：
1、对于多重选择，使用if嵌套时，注意配对关系
2、使用选择结构时，要注意防止出现“死语句”，即永远也不可能出现的语句。

实验1 简单VB程序设计【实验目的】1 学习怎样启动和退出VB，熟悉VB的工作环境。

2 学习用属性窗口设置对象属性及用代码设置对象属性的方法。

3 学习如何用对象（窗体和控件）建立界面及在代码编辑器中输入程序代码的基本操作。

4 基本掌握用VB开发应用程序的一般步骤。

【实验环境】VB6.0 奔腾586【实验内容】1. 启动和退出VB2. 打开和关闭窗口3. 设置窗体属性4. 设置控件属性5. 设计简单界面6. 开发一个简单的应用程序【实验步骤】1. 启动和退出VB（1）可用以下方法启动VB法1 用“开始”菜单的“程序”命令。

法2 用“开始”菜单的“运行”命令。

（2）可用以下方法退出VB法1 单击主窗口右上角的“关闭”按钮。

法2 执行“文件”菜单的“退出”命令。

2. 打开和关闭窗口（1）打开工程资源管理器窗口法1 单击工具栏上的“工程资源管理器”按钮。

法2 执行“视图”菜单中的“工程资源管理器”命令。

法3 CTRL+R（2）打开窗体设计器窗口法1 执行“视图”菜单中的“对象窗口”命令。

法2 SHIFT+F7法3 在工程资源管理器窗口中选择要打开的窗体，然后单击该窗口顶部的“查看对象”按钮。

（3) 激活属性窗口法1 按F4键法2 单击工具栏上的“属性窗口”按钮。

法3 执行“视图”菜单中的“属性窗口”命令。

（4) 关闭窗口法1 单击窗口右上角的关闭按钮。

法2 ALT+F43. 设置窗体属性（1）激活窗体，打开属性窗口。

（2）在属性窗口中双击“Caption”属性条，输入“窗体属性设置实验”。

（3）在属性窗口中选择“BackColor”属性条，然后单击右端的箭头，在所显示的调色板中选择一种颜色。

（4）在属性窗口中选择“DrawStyle”属性条，然后单击右端的箭头，在下拉显示的列表中选择“Dot”。

（5）在属性窗口中，把Top，Left，Height，Width属性的值分别设置为500，1000，3000，4000，观察窗体的变化。

实验一问答题：1、答：常见的有visual Basic、C++、Java、SQL。

用途特点：（参考课本4-5页）2、答：代码是一行或几行命令。

程序是针对某个任务编写的有序代码的集合。

软件是程序和文档的集合。

它们的关系是：代码 < 程序 < 软件3、答：面向对象程序设计中的每一个对象都应该能够接受数据、处理数据并将数据传达给其它对象，因此它们都可以被看作一个小型的“机器”，即对象。

它能够让人们更简单地设计并维护程序，使得程序更加便于分析、设计、理解。

4、答：参考课本第9页5、答：类——是创建对象实例的模板, 包含了创建对象的属性描述和行为特征的定义。

对象——是类的一个实例，继承了类的属性、方法。

控件——是具有图形界面的对象，它同样具有属性、方法、事件，是用来设计用户界面的重要元素。

属性——是对象的性质，用来描述和反应对象特征的参数。

事件——响应对象的动作，它发生在用户与程序交互时。

如单击控件、鼠标移动、键盘按下。

过程——指附在该对象上的程序代码，是事件的处理程序。

6、答：参考课本12页到17页。

实验二问答题：1、答通用属性有：Caption标题、Enabled可用性、Visible可见性、ForeColor前景颜色、BackColor背景颜色等。

2、答标签label是用来显示信息的，不具有输入功能。

属性有Caption、BackStyle、Alignment、BorderStyle、AutoSize。

文本框用来输入、输出数据，编辑文本。

属性有Text、 Maxlength、MultiLine、 ScrollBars、 Locked 、 PassWord 。

3、答结果为：标签里显示一个“abc”，图片框里显示3行“欢迎您”。

4、答要保存2次，分别是工程文件.vbp和窗体文件.frm。

实验一：一、选择1.D2.D3.B4.A5.B6.C7.CD8.D9.D10.编程机制是C、设计方式是B11.A12.D13.D14.C15.A二、填空1.windows2. 中断3.工具箱4.代码5.分类6.form2.show7. 出现语法错误8. 错9. 事件10. 面向对象11. 工程文件结构及各文件名12. 工程13. 设计程序代码14.双击窗体15.vb的安装文件夹16.属性17.方法18.font 19. form_load() 20.对象1.Private Sub Command1_Click()Print Sqr(8), 8 ^ (1 / 3)End Sub2.Private Sub Command1_Click()For i = 100 To 110Print Sqr(i)Next iEnd Sub3.Private Sub Form_Load()Print " 郑州大学在前进！"End Sub4. Private Sub label_click()PrintLabel.caption=”蓝天白云绿水青山”End sub实验二：一、选择1.B2.C3.B4.C5.C6.C7.B8.B9.D10.A11.C12.C13.C14.B15.A16.C17.B18.D19.C20.C二、填空1. Form_Click()2. Interval、5003..vbp .frm4.left top Height、Width twip5.picture6.load7. locked8. font Alignment9. GotFocus() LostFocus() 10. 属性窗口程序代码1.Private Sub Command1_Click()Label3 = Val(Text1) * Val(Text2)Private Sub Command2_Click()Label3 = Val(Text1) / Val(Text2)End Sub2.Private Sub Command1_Click()Picture1.Visible = TruePicture1.Picture = LoadPicture("d:\tu1.jpg") End SubPrivate Sub Command2_Click()Picture1.Visible = TruePicture1.Picture = LoadPicture("d:\tu2.jpg") End SubPrivate Sub Command3_Click()Picture1.Visible = False'也可以改为：Picture1.Picture = LoadPicture("") End Sub3.Private Sub Command1_Click()Label3 = Val(Text1) * Val(Text2) End Sub4.Private Sub Command1_Click() Text2 = Text1End SubPrivate Sub Command2_Click() Text1 = ""Text2 = ""End SubPrivate Sub Form_Load() Command1.Visible = False Command2.Visible = FalseEnd SubPrivate Sub Text1_Change() Command1.Visible = True Command2.Visible = TrueEnd Sub5.Private Sub Form_Load()Image1.Picture = LoadPicture("d:\tu3.jpg")End SubPrivate Sub Command1_Click()Timer1.Enabled = TrueEnd SubPrivate Sub Command2_Click()Timer1.Enabled = FalseEnd SubPrivate Sub Timer1_Timer()Image1.Left = Int(Rnd * (Form1.ScaleWidth - Image1.Width)) Image1.Top = Int(Rnd * (Form1.ScaleHeight - Image1.Height)) End实验三：一、选择1.A2.BC3.BC4.A5.A6.A7.BCD8.D9.B10.B 11.B二、判断题不合法的变量：3. 4. 5. 6. 8. 10. 11. 14.15. 16.三、1、abs(x+y)2. (3+x*y)^23. (-b+sqr(b^2-4*a*c))/(2*a)4.sin(30*3.14/180)+exp(2)四、1. int(rnd* 71+20) 或int(rnd* 71)+202. x<0 and y>0 or x>0 and y<0 或者x*y<03. x mod 3=0 or x mod 7=0或x/3=x\3 or x/7=x\74. x>=10 and x<205. x>="A" and x<="Z"6. left(s,3) 或mid(s,1,3)操作题：2.Private Sub Command1_Click()Dim n%n = Abs(Val(Text1))Label2 = Format(n ^ 2, "#.000") & Space(2) & Format(Sqr(n), "#.000") & Space(2) & Format(n ^ 3, "#.000") & Space(2) & Format(n ^ (1 / 3), "#.000")'上句的输出也可以用下面的print方式:' Print Format(n ^ 2, "#.000"); Spc(2); Format(Sqr(n), "#.000"); Spc(2); Format(n ^ 3, "#.000"); Spc(2); Format(n ^ (1 / 3), "#.000")End Sub3.Private Sub Command1_Click()Dim x%, y%x = Int(Rnd * 900 + 100)Print "产生的随机数："; xy = (x Mod 10) * 100 + (x \ 10 Mod 10) * 10 + x \ 100Print "反序数："; Format(y, "000")End SubPrivate Sub Command2_Click()Dim x%, y As Stringx = Int(Rnd * 900 + 100)Print "产生的随机数："; xy = Trim(Str(x))Print "反序数：" & Right(y, 1) & Mid(y, 2, 1) & Left(y, 1)End Sub4.Private Sub Command1_Click()Dim m%, n%Randomizem = Val(Text1): n = Val(Text2)x = Int(Rnd * (n - m) + m)y = Int(Rnd * (n - m) + m)z = Int(Rnd * (n - m) + m)Label3 = m & "到" & n & "之间的3个随机数为: " & x & Space(3) & y & Space(3) & zEnd Sub5.Private Sub Command1_Click()Label1.Caption = DateEnd SubPrivate Sub Command2_Click()Label2.Caption = TimeEnd SubPrivate Sub Command3_Click()Label3.Caption = WeekdayName(Weekday(Date))End Sub实验四：一、选择1.C2.D3. C4.D5.A6.D7.B8.B9.A10.C二、填空1. 48.71E-01, -4.87122. 关系、逻辑、算术3. 900，100，mid(s,2,1)4.m、1,2,3 、print m & "月是第二季度"、end select三、程序结果1. X=4 y=132. 10操作题：1.方法一：Private Sub Command1_Click()x = InputBox("请输入弧度数值", "弧度转换", 0)xx = Val(x)a = x * 180 / 3.14aa = Int(a)b = (a - aa) * 60bb = Int(b)c = (b - bb) * 60cc = Format(c, "#.000")MsgBox "弧度" & x & "转换为" & aa & "度" & bb & "分" & cc & "秒" End Sub方法二：Option ExplicitPrivate Sub Command1_Click()Dim x!, a!, aa%, b!, bb%, c!, cc$x = Val(Text1)a = x * 180 / 3.14aa = Int(a)b = (a - aa) * 60bb = Int(b)c = (b - bb) * 60cc = Format(c, "#.000")Label2 = "弧度" & Text1 & "转换为" & aa & "度" & bb & "分" & cc & "秒"End Sub2.Private Sub Command1_Click()Dim x%x = Val(Text1)If x / 400 = x \ 400 Or x Mod 4 = 0 And x Mod 100 <> 0 ThenLabel2 = Text1 & "年是闰年"ElseLabel2 = Text1 & "年不是闰年"End IfEnd Sub3.Private Sub Command1_Click()Dim x%, y%, z%x = InputBox("输入第一个数")y = InputBox("输入第二个数")z = InputBox("输入第三个数")Print "输入的数是："; x; y; zIf x > y Then t = x: x = y: y = tIf y > z Then t = y: y = z: z = tIf x > y Then t = x: x = y: y = tPrint "排序结果是："; x; y; zEnd Sub4.方法一：Private Sub Command1_Click() x = Val(InputBox("请输入上网时间:")) If x <> -1 ThenSelect Case xCase Is < 10fei = 25Case 10 To 50fei = x * 2Case 50 To 100fei = x * 1.5fei = x * 1End SelectMsgBox "上网费用为:" & fei & "元" End IfEnd SubPrivate Sub Command2_Click()EndEnd Sub方法二：Private Sub Command1_Click() Dox = Val(InputBox("请输入上网时间:", , -1)) If x <> -1 ThenSelect Case xCase Is < 10fei = 25Case 10 To 50fei = x * 2Case 50 To 100fei = x * 1.5Case Is >= 100End Selectzongfei = zongfei & Space(3) & fei MsgBox zongfei, , "上网费用为"ElseExit DoEnd IfLoopEnd SubPrivate Sub Command2_Click()EndEnd Sub实验五一、选择B C B A C二、填空（1）for x=2 to 10s*(1-1/x)(2) 1 t>1E-6(3) j t(4) 5 11 51.Private Sub Command1_Click()For n = 1 To 100s = s + nNext nPrint sEnd SubPrivate Sub Command2_Click()n = 1Do While n <= 100s = s + nn = n + 1LoopPrint sEnd Sub2.Private Sub Command1_Click()For i = 0 To 20For j = 0 To 33If i * 5 + j * 3 + 1 / 3 * (100 - i - j) = 100 Then Print i, j, 100 - i - j Next jNext iEnd Sub3.Private Sub Command1_Click()n = 0DoIf n Mod 2 = 1 And n Mod 3 = 2 And n Mod 5 = 4 And n Mod 6 = 5 And n Mod 7 = 0 Then Exit Don = n + 1LoopPrint nEnd Sub4.'已知x,y,z分别是0~9中的一个数，求x,y,z的值，使得xxz+yzz=532. Private Sub Command1_Click()Dim x%, y%, z%, i%, j%For x = 0 To 9For y = 0 To 9For z = 0 To 9If (x * 100 + x * 10 + z) + (y * 100 + z * 10 + z) = 532 Then Print x, y, z NextNextNextEnd SubPrivate Sub Command2_Click()For x = 0 To 9For y = 0 To 9For z = 0 To 9If Val(x & x & z) + Val(y & z & z) = 532 Then Print x; y; z NextNextNextEnd Sub5.Private Sub Command1_Click()x = Val(Text1)y = x * 4n = 0Do While x <= yx = x * (1 + 0.1)n = n + 1LoopPrint x, nEnd Sub6.Private Sub Command1_Click()n = Val(InputBox("输入计算到第几项:", , 0))For i = 1 To ns = s + (-1) ^ (i + 1) * iNextPrint n, sEnd SubPrivate Sub Command2_Click()n = Val(InputBox("输入计算到第几项:", , 0))p = 1For i = 1 To ns = s + p * ip = -pNextPrint n, sEnd Sub7.'s=(0+1)+(0+1+2)+(0+1+2+3)+(0+1+2+3+4)+……(0+1+2+3+4+……n) Private Sub Command1_Click()Dim n%, s%n = Val(InputBox("输入计算到第几项:", , 0))s = 0: t = 0For i = 1 To nt = t + is = s + tNext iPrint sEnd SubPrivate Sub Command2_Click()Dim n%, s%n = Val(InputBox("输入计算到第几项:", , 0)) s = 0: t = 0For i = 1 To nt = 0For j = 1 To it = t + jNexts = s + tNextPrint sEnd Sub8.Private Sub Command1_Click()Dim s As Double, pi As Doublen = 1: s = 0Do While 1 / (2 * n - 1) >= 0.0001 '也可以是Do Until 1 / (2 * n - 1)< 0.0001s = s + (-1) ^ (n + 1) * 1 / (2 * n - 1)n = n + 1Looppi = 4 * sPrint piEnd Sub9.'5-9:输出所有的“水仙花数”.'所谓的“水仙花数”是指一个3位数，其各位数字的立方和等于该数本身。

实验一：设计简单的VB 应用程序一、实验目的1．掌握Visual Basic 启动和退出的方法。

2．熟悉Visual Basic 的集成开发环境。

3．掌握Visual Basic 程序设计的基本步骤，了解VB 程序的编写、保存和编译的方法过程。

4．初步了解几个常用基本控件控件（标签、命令按钮和文本框）的使用方法。

二、实验类型综合三、实验时间：2013-3-8四、实验任务1、启动Visual Basic ，然后创建一个“标准 EXE ”工程（保存在D 盘以自己学号命名的文件夹中，文件名和窗体名均为SJT ），并了解Visual Basic 集成开发环境下各组成部分及其作用。

2、编一程序，计算任意输入的正整数的平方根。

3、编写一个应用程序，界面如图1-1所示。

窗体中文字“VB 应用程序！”为一标签控件，单击标题为“放大”的命令按钮，则“VB 应用程序！”的字号放大一号，单击“缩小”按钮则反之；同时，窗体中还有4个含某种指向图案的按钮，若单击某个按钮，则使“VB 应用程序！”向该按钮所指向的方向移动50Twip 。

（提示：四种指向的图案可以在Visual Basic 安装目录中的“…graphics\icon\Arrows ”子目录中找到，名称分别为arw07dn.ico 、arw07lt.ico 、arw07rt.ico 和arw07up.ico ）五、实验要求 写出实验报告，内容是：1、第1小题的操作步骤2、第2、3题1).程序的界面设计。

2).程序主要代码。

3).运行结果（输入与输出）。

4).实验总结。

(写上你自己的总结。

可以从以下几个方面来总结：你在编程过程中花时多少？时间是怎么分配的？多少时间在思考问题？遇到了哪些难题？你是怎么克服的？你对你的程序的评价？你的收获有哪些？)图1-1 实验1-2程序运行实验二：数据的输入和输出一、实验目的1．掌握常量和变量、表达式的基本概念和正确书写格式。

2．掌握基本语句（Print语句、赋值语句、Dim语句等）的使用；3、掌握常用函数的正确使用方法；4、掌握数据的动态输入InputBox和信息提示MsgBox的基本使用方法。

《VB程序设计》实验指导书18学时实验一VB集成环境及简单应用程序的建立一、实验目的1．掌握Visual Basic启动和退出的方法。

2．熟悉Visual Basic的集成开发环境。

3．掌握Visual Basic程序设计的基本步骤。

4. 掌握窗体的使用方法。

二、实验内容1 启动Visual Basic，然后创建一个“标准 EXE”工程。

了解Visual Basic集成开发环境下各组成部分及其作用。

【要求】（1）在集成开发环境中分别寻找“窗体窗口”、“属性窗口”、“工程资源管理器”、“窗体布局窗口”、“工具箱窗口”，熟悉它们的默认位置。

（2）在“视图”或“工程资源管理器”中切换显示“代码窗口”和“窗体窗口”。

（3）在“视图”菜单中点击“立即窗口”，观察刚刚显示出来的“立即窗口”。

（4）尝试分别将各部分关闭，然后再用“视图”菜单中对应的菜单命令将其显示。

2 编写一个简单的应用程序。

要求窗体的标题为“简单VB实验”；窗体中有一个标题为“显示”的按钮；单击该按钮后在窗体上显示蓝色的“江西农业大学”。

【步骤】（1）设计应用程序的界面；（2）设置对象的属性；（3）编写事件代码；（4）程序的运行及保存。

【提示】在窗体上显示“江西农业大学”有两种方法：（1）用Print方法：颜色应该设置窗体的前景色。

（2）用一个标签控件：颜色应该设置标签控件的前景色。

【思考】为什么在以上两种方法中在颜色的设置问题上有所不同？3 窗体无最大化和最小化按钮。

在窗体装入时，在窗体的标题栏显示“装入窗体”，并在窗体上装入一幅图片作为背景；当用户单击窗体，在标题栏显示“鼠标单击”，在窗体上显示“单击窗体”；当用户双击窗体，在标题栏显示“鼠标双击”。

去除窗体的背景图案，并显示“双击窗体”。

实验二VB常用控件的使用一、实验目的1．掌握基本控件（标签、命令按钮和文本框）的基本使用方法。

2. 掌握Visual Basic程序设计的基本步骤。

二、实验内容1 利用标签做浮雕效果文字。

习题1一、单选题1．D 2．D 3．B 4．B 5．C 6．A7．A 8．A 9．B 10．B 11．B 12．B二、多选题1．ADE 2．AB 3．BCDE 4．CD 5．CE三、填空题1．属性，方法，事件 2．解释，编译 3．设计，运行，中断 4．Command2_Click 5．中央，代码 6．MyForm.frm 7．(1)Cmd1_Click()，(2)Txt1.Text="VB语言程序设计"习题2一、单选题1．(1)A，(2)C 2．A 3．B 4．B 5．B 6．D 7．B 8．A 9．A 10．B 11．B 12．A 13．B二、多选题1．BD 2．CD 3． AD三、填空题1．(1) (2+x*y)/(2–y*y) (2) a^2–3*a*b/(3+a)(3) x^(3/8)+Sqr(y^2+4*a^2a/(x+y^3))2．Int(50+6*Rnd)3．(1)138， (2)3， (3)214， (4) 70， (5) "45"， (6)04． "系统管理数据库"习题3一、单选题1．C 2．B 3．B 4．D 5．B 6．C 7．B 8．D 9．C 10．(1)A， (2)C 11．A 12．B 13．D 14．B二、多选题1．AC 2．ABF 3．BE三、填空题1．$000,124 2．Label1.Caption="a*b=" 3．Height，Width4．2 5．Text1.SetFocus6．Multiline, ScrollBars, 2 7．24，2423习题4一、单选题1．C 2．B 3．C 4．C 5．D 6．B 7．(1)D，(2)A，(3)B 二、多选题1．ABCFGHJ 2．BE 3．CDE 4．AE三、填空题1．60000 2．O&pen 3．(1) "0" To "9"；(2) "a" To "z", "A" To "Z"；(3) Else习题5一、单选题1．C 2．(1)D，(2)C 3．A 4．(1)B，(2)C，(3)B 5．B 6．B二、填空题1．(1) 4次，n=13；(2) 3次，n=8；(3) 3次，n=27；(4) 1次，n=12 2．227 3．0 4．Style 5．下拉列表框6．AddItem，RemoveItem或Clear 7．(1)ItemA，(2) ItemD，(3) ItemD，(4) ItemA习题6一、单选题1．D 2．A 3．B 4．C 5．C 6．A 7．(1)D (2)A (3)B 二、多选题1．AD 2．CD三、填空题1．二, 12; 1, 3; -1, 22． 0 1 2 31 0 1 22 1 0 13 2 1 03． Name, Index 4．(1) 0 To Index， (2)Val(Text1(k).Text)习题7一、单选题1．B 2．C 3．B 4．B 5．C 6．D 7．A 8．C 9．D 10．C 二、填空题1．EF 2．(1)14，(2) 2，(3)10 3．(1)10，(2)28，(3)6，(4) 64．(1)Power(x,n-1)*x，(2)Power = x习题8一、单选题1．B 2．D 3．D 4．A 5．B 6．D 7．A8．(1)D，(2)D 9．B 10．A 11．D二、填空题1． Get, Put2．(1) Open "Myfile3.txt" For Output(2) Write #1, StNo, StMb (3) Close #13． (1) Open " Myfile3.txt" For Input As #1 (2) EOF(1)(3) Input #1, StNo, StMb习题9单选题1．B 2．D 3．D 4．B 5．A 6．A习题10一、单选题1．C 2．(1)A，(2)C 3．C 4．A 5．(1)A，(2)D 6．A 7．D 8．B 9．D二、填空题1．(1)Change，(2)Value，(3)Scroll，(4)Value2．Circle(Scale.Width/2,Scale.Height/2),10003．(1) P1.Picture ，(2) P2.Picture，(3) P2.Picture = P3.Picture4．KeyDown，KeyPress，KeyUp 5．MouseDown，MouseUP6．菜单编辑器，顶；PopUpMenu7．(1) Button.Index (2) BackColor = RGB(255, 0, 0)(3) BackColor = RGB(0, 255, 0) (4) BackColor = RGB(0, 0, 255)8．(1)DragMode, (2)1，(3)0 9．(1)Action, (2)4, (3)ShowFont10．(1)KeyPress， (2)Cls， (3)CurrentY = Y， (4) Button=1习题11一、单选题1．C 2．C 3．A 4．D 5．A 6．D 7．D 8．C9．D 10．D 11．C 12．A 13．B二、填空题1．Select 职工号,基本工资 From 工资表 Where 基本工资>5002．Update 职工表 Set 姓名="伍小明" Where 职工号="00018"3．Select 学籍表.班号,Avg(成绩表.英语) From 成绩表,学籍表 Where 学籍表.学号=成绩表.学号 Group By 学籍表.班号4．Update 工资表 Set 基本工资=基本工资+1005．Delete From 工资表 Where 基本工资<2006．Insert Into 学籍表(学号,姓名,性别,年龄,班号) Values("951009","林东生","男",20,"31")(完)。