VB上机实验计划

实验一 VB环境和简单应用程序设计（4个学时）一、实验目的1.熟悉Visual Basic集成开发环境的使用。

2.掌握建立、编辑和运行简单的Visual Basic应用程序的全过程。

3.掌握窗体对象的属性、事件和方法。

二、实验内容1. 在VB的集成开发环境中实现如下的操作：1）、将“标准”工具栏去掉后再添加上，将“编辑”工具栏添上再去掉。

2)、分别利用“菜单”和“工具栏”中的命令打开“属性窗口”、“工程资源管理器窗口”3）、将“窗体布局窗口“的”启动位置“设置成“手工”。

4)、在工具箱中任意添加一个Active X 控件。

5）、在工程1中增加两个窗体：Form1、Form26）、在工程1中增加两个标准模块：Module1 、Module27）、在工程1中增加一个类模块：Class18）、在工程资源管理器中将Form2、Module2 删除。

9）、在在工程资源管理器中利用“切换文件夹”按钮隐藏或显示对象的文件夹10）、将代码窗口中的字体大小改为18号字。

2．设计一个窗体，窗体内有1个文本框和3个命令按钮控件。

要求：当按“显示”按扭时，在文本框内显示“欢迎来到青岛科技大学！”一串红色、四号、隶书字符串。

当按“清除”按钮时，清除文本框内全部信息；当按“退出”按钮时，结束程序运行。

1) 创建界面（将设计好的界面截下来粘贴在下面）2)以表格形式进行属性设置（写出所有非默认属性值的设置）3)代码设计4)调试过程记录（错误情况及改正方法，不得少于三条）3. 设计一个窗体，在窗体上添加一个文本框和三个命令按钮。

要求：当按“显示”按扭时，在文本框内显示“Visual Basic 程序设计”一串字符串。

当按“黑体”按钮时，文本框内的字符串的字体变为黑体；当按“隶书”按钮时，文本框内的字符串的字体变为隶书；1) 创建界面（将设计好的界面截下来粘贴在下面）2)以表格形式进行属性设置（写出所有非默认属性值的设置）3)代码设计4)调试过程记录（错误情况及改正方法，不得少于三条）4. 窗体的Click、DbClick、Load事件的使用，以及Print方法和相关属性的使用。

湖北汽院VB上机实验指导实验一 VB语言环境实验选课班号: 序号: 姓名: 实验日期:【实验目的】1( 熟悉Visual Basic 6.0集成开发环境。

2( 学习如何用对象(窗体和控件)建立界面。

3( 学习用属性窗口设置对象属性的方法。

4( 了解窗体及控件所执行的操作。

5( 掌握开发一个简单程序的基本步骤。

【相关知识】1( 窗体是VB中的对象，具有自己的属性、事件和方法。

窗体属性:(1)Name属性对象的名称，是所有对象都具有的属性，用来唯一标识该控件。

在程序中，控件名是作为对象的标识而引用，不会显示在窗体上。

所有的控件在创建时由VB自动提供一个默认名称。

(2)Height、Width、Top和Left属性Height和Width属性决定了控件的高度和宽度，Top表示控件到窗体顶部的距离，Left表示控件到窗体左边框的距离。

默认单位为twip，1 twip=1/20点=1/1440英寸=1/567cm 。

窗体位置、大小如图1-1所示。

(3)Caption 标题属性Caption属性的值是显示在窗体标题栏上的文字。

(4)BackColor属性和ForeColor属性BackColor属性用于返回或设置对象的背景图1-1 窗体位置、大小颜色，ForeColor属性用于返回或设置在对象里显示图片和文本的前景颜色。

(5)BorderStyle属性此属性决定边框风格, 通过改变 BorderStyle 属性，可以控制窗体如何调整大小。

(6)MaxButton、MinButton和ControlBox属性MaxButton最大化按钮和MinButton最小化按，当值为 True，有最大或最小化按钮，False则无。

ControlBox控制菜单框属性，其值设置为Ture时，有控件菜单;设置为False时，则无控件菜单，同时窗体也无“最大化”按钮和“最小化”按钮，即使MaxButton属性和MinButton属性设置为Ture。

VB上机实验2窗体设计1、本实验使用Mousemove事件，实线鼠标在标签上时标签文本为蓝色，鼠标离开标签时，标签文本为红色。

2、编写一段程序，在文本框中统计在该窗口上单击鼠标的次数，效果如下图所示。

提示：对窗口编写两个事件：Form_Load事件设置文本框初值为0；Form_Click事件对文本框累加计数。

3、创建如图所示的窗体界面，标签文本"欢迎使用VB"为四号、黑体字，按钮文本分别为"手动"，"自动"；计时器Interval属性为50毫秒，Enabled属性为False。

要求当单击"手动"按钮的时候，每单击一次，标签从左向右移动500twip，单击"自动"按钮时，根据计时器时间间隔触发计时器事件，从左向右移动，且不管用哪种方式移动，当标签从右侧移出窗体后可以从左侧再次进入。

按要求完成界面和控件的属性设置以及相关的代码设计。

提示：窗体移动请用move方法实现【窗体设计】------------------------------------------------题目：请按照题目要求设计指定的窗体。

建立如下所示界面。

1、添加控件文本框(Text1)。

框架(Frame1，框架Frame2)。

框架(Frame1)内添加2个单选框(Option1，Option2)。

框架(Frame2)内添加3个单选框(Option3，Option4，Option5)。

2、窗体设置窗体名称(Name)为"Form1"。

窗体标题(Caption)为"字体样式"。

3、文本框设置文本框(Text1)文本(Text)属性值为"VB窗体设计"。

字体属性为"宋体"。

文字对齐方式属性为"居中对齐"。

文字颜色为&H00FF0000&。

VB上机实验报告实验名称：程序设计语言（VB）实验日期：指导老师：实验地点：姓名：班级：学号：一、实验名称：实验5 顺序结构程序设计二、实验目的：（1）掌握基本的输入输出操作（Inputbox、Msgbox、Print使用）。

（2）掌握顺序结构的程序设计方法。

三、实验内容：1.课本的3.3、3.4、3.5、3.6、3.7、3.82.用图形、图像框控件实现图片切换和图片放大缩小。

3.根据提示，补充下列程序段，并在VB环境下调试：（1）鸡兔同笼问题。

（2）计算三角形的面积。

四、实验步骤及结果：1、3.3：Private Sub Command1_Click()Dim x As Integer, y As IntegerDim s1 As String, s2 As Stringx = 2: y = 1s1 = x & "+" & y & "=" & x + ys2 = x & "-" & y & "=" & x - yMsgBox s1 & vbCrLf & s2, , "输出"End Sub3.4：Private Sub Command1_Click()Dim x As Integer, y As Integerx = InputBox("请输入第1个整数", "输入", 0) 'y = InputBox("请输入第2个整数", "输入", 0) ' Print "第1个数为:" & xPrint "第2个数为:" & yPrint "和=" & x + yPrint "差=" & x - yEnd Sub3.5：Private Sub Command1_Click()Dim r As Single, h As SingleDim area As Single, v As Singler = InputBox("请输入半径")h = InputBox("请输入高度")area = 2 * 3.14 * r * r + 2 * 3.14 * r * h v = 3.14 * r * r * hPrint "圆柱体的半径为:" & r; "高为:" & h Print "表面积为:" & areaPrint "体积为:" & vEnd Sub3.6：Private Sub Command1_Click()Dim a As Single, b As Single, c As Single ' Dim s As Single, area As Single 'a = Val(Text1)b = Val(Text2)c = Val(Text3)s = (a + b + c) / 2 'area = Sqr(s * (s - a) * (s - b) * (s - c)) Label2 = "三角形的面积为:" & area 'End Sub3.7：Dim a As Integer, b As Integer, t As Integera = Text1b = Text2t = aa = bb = tLabel2 = "交换后的值为:" & a & "," & b End Sub3.8：Dim x As Integer, s As IntegerDim a As Integer, b As IntegerDim c As Integer, d As Integerx = InputBox("请输入一个四位整数")a = x Mod 10b = x \ 10 Mod 10c = x \ 100 Mod 10d = x \ 1000s = a + b + c + dPrint x; "的各位数字之和为:"; sEnd Sub2、用图形、图像框控件实现图片切换和图片放大缩小：图片切换:Private Sub Command1_Click()Picture1.Picture = LoadPicture(App.Path + "\春.jpg") End SubPrivate Sub Command2_Click()Picture1.Picture = LoadPicture(App.Path + "\夏.jpg") End SubPrivate Sub Command3_Click()Picture1.Picture = LoadPicture(App.Path + "\秋.jpg") End SubPrivate Sub Command4_Click()Picture1.Picture = LoadPicture(App.Path + "\冬.jpg") End SubPrivate Sub Command5_Click()Picture1.Picture = LoadPicture("")End Sub图片放大缩小:Private Sub Command1_Click() Image1.Stretch = TrueImage1.Width = Image1.Width * 2 Image1.Height = Image1.Height * 2 End SubPrivate Sub Command2_Click() Image1.Stretch = TrueImage1.Width = Image1.Width / 2Image1.Height = Image1.Height / 2 End SubPrivate Sub Command3_Click() Image1.Stretch = FalseEnd Sub3、（1）鸡兔同笼问题：Private Sub Command1_Click() Dim h As IntegerDim f As IntegerDim x As Integerh = Val(Text1.Text)f = Val(Text2.Text)x = (4 * h - f) / 2y = (f - 2 * h) / 2Text3.Text = xText4.Text = yEnd Sub(2)计算三角形的面积：Private Sub Command1_Click()Dim b As SingleDim c As SingleDim s As SingleDim area As Singlea = Text1.Textb = Text2.Textc = Text3.Texts = (a + b + c) / 2area = Sqr(s * (s - a) * (s - b) * (s - c))Text4.Text = areaEnd Sub五、实验分析及总结：（1）通过几次VB上机实验，我发现只要代码不写错，调试结果通常都会成功。

计算机上机实习（vb）大致思路：1.首先建一个文本文件“学生成绩”放在一个新建文件夹中，然后在此文件夹中输入二十个人的成绩及相关信息，包括学号，姓名，五门课程的名称。

2.再建一个文件夹叫做“课程学分”，在里面输入每个课程的编号，学时和名称并保存。

3.编写程序调用刚才保存的两个文件算出每个学生n门课的加权平均分然后排名，再把这班级成绩表保存在新建的文本文件“班级成绩表”中。

4.分别统计全班每门课的平均分，并计算每门课在60分以下，60~69,70~79,80~89,90分以上的人数，用vb创建一个叫“各分数段人数”的文本文件装此数据。

5.编程找出每门课中不及格的人，并在窗体上显示名单。

6.编程找出符合优等条件的人并在窗体上显示名单。

具体的流程：1.先编写如下程序使学生的每个信息的到保存，在自定义数组stu中有学生的姓名，学号，各科成绩。

再命名两个数组name和xf，让文本文件里的每一个信息调用起来方便简单。

2.求加权平均分，让每个学生的各科成绩分别乘以各成绩的学分，在除以总学分即为加权平均分。

有两个循环分别是20 个学生的循环和五门课的循环。

3.排名次，由于当两个人的成绩相等时要求名次一样，所以用书上常用的冒泡法和选择排序法是有些麻烦的，从而我用了把分数和每一位同学的分数比较来累计排名。

此时要在stu类型中加一个rank的分量。

从而有了下面的代码：4．统计分数段时，要求是统计每科的分数段人数，所以我先写了一个课程的分段程序，再把它复制四遍做适当的调整就得到了五门课的分段的程序：Private Sub mnuyw_Click()Picture1.ClsPicture1.Picture = LoadPicture("D:\要用的图片\16.jpg")Picture1.FontSize = 20Picture1.ForeColor = RGB(156, 134, 2)Picture1.Print Tab(20); "语文"Picture1.PrintPicture1.Print Tab(15); "范围"; Tab(30); "人数"Dim i%, b(1 To 5)For i = 1 To 5b(i) = 0Next iFor i = 1 To 20If stu(i).cj(1) <= 60 Then b(1) = b(1) + 1If stu(i).cj(1) < 69 And stu(i).cj(1) > 60 Then b(2) = b(2) + 1If stu(i).cj(1) < 79 And stu(i).cj(1) >= 70 Then b(3) = b(3) + 1If stu(i).cj(1) < 89 And stu(i).cj(1) >= 80 Then b(4) = b(4) + 1If 90 <= stu(i).cj(1) Then b(5) = b(5) + 1Next iPicture1.Print Tab(15); "=<60"; Tab(30); b(1)Picture1.Print Tab(15); "60-69"; Tab(30); b(2)Picture1.Print Tab(15); "70-79"; Tab(30); b(3)Picture1.Print Tab(15); "80-89"; Tab(30); b(4)Picture1.Print Tab(15); ">90"; Tab(30); b(5)5.打印学生的成绩单相当于把之前刚存好的班级成绩表再打印一次，所以代码用只读打开文本文件。

VB上机实验报告详细易懂实验五数组的应用一、实验目的1．掌握一维数组的概念、定义、数组元素的引用和初始化。

2．学会用数组和程序基本控制结构实现数据的求和、求平均、求极值和排序等算法程序的设计3．加深对循环控制结构的理解和使用二、实验环境1．计算机2．Visual Basic 6.0开发环境三、实验说明1．熟练运用Visual Basic 6.0开发环境2．熟悉建立VB应用程序的步骤3．学会使用一维数组实现简单的应用程序四、实验内容和步骤1.实验内容随机产生10个两位整数，找出其中的最大值、最小值和平均值。

2.实验步骤（1）打开计算机，在Visual Basic 6.0系统环境下，选择“文件”菜单中的“新建工程”菜单选项，打开“新建工程”窗口；（2）在“新建工程”窗口按下“确定”按钮打开“工程设计”窗口；（3）在“工程设计”窗口，首先设计窗口的属性，然后打开“工具箱”窗口添加所需控件，设计该实验的界面；（4）选择“视图”菜单中的“代码窗口”菜单选项，打开“代码窗口”窗口，设计命令按钮控件的事件代码；考虑到要在不同的过程中使用数组，所以首先在模块的通用段中声明数组：Dim a(1 To 10) As Integer随机整数的生成由窗体的Load事件代码完成：Private Sub Form_Load( )Dim p As StringRandomizep = ""For i = 1 To 10a(i) = Int(Rnd * 90) + 10p = p & Str(a(i)) & ","NextLabel1.Caption = L Trim(Left(p, Len(p) – 1))End Sub求最大、最小以及平均值由“确定”按钮Command2的Click事件代码完成：Private Sub Command2_Click( )Dim n As Integer, m As Integer, s As Singlemin = 100: max = 10: s = 0For i = 1 To 10If a(i) > n Then max = a(i)If a(i) < m Then min = a(i)s = s + a(i)NextText1.Text = maxText2.Text = minText3.Text = s / 10End Sub“重置”按钮Command1的Click事件代码：Private Sub Command1_Click( )Form_LoadText1.Text = ""Text2.Text = ""Text3.Text = ""End Sub最后是“关闭”按钮Command3的Click事件代码：Private Sub Command3_Click( )Unload MeEnd Sub（5）运行程序，观察结果；（6）保存窗体，保存工程。

《VB课程设计》实训计划五篇范文第一篇：《VB课程设计》实训计划《VB课程设计》实训计划一、实验目的全面掌握利用VB实施应用软件开发的知识和方法，系统提高中小型应用程序的开发能力，努力培养提高创新精神和团队精神，为以后学习JAVA打下坚实的基于面向对象的应用软件开发基础。

二、设计时间2010-2011学年第二学期第16-18周。

三、组织形式独立完成。

四、基本要求1、设计必须在机房完成，不得迟到、早退或旷课。

2、设计作品的实现功能不得低于设计要求。

3、根据设计流程撰写设计报告，主要包括系统分析、解决方案、主要功能的实现要点、设计中遇到的问题及解决方法、设计中存在的不足、对设计的感想和心得体会等。

4、设计过程中要开拓思路、互相协作、自主学习，努力提高分析问题和解决问题的能力。

5、不得抄袭他人作品，一经发现，作零分处理。

五、具体任务任务一：Visual Basic操作基础任务难度：* 基本要求：• 熟练掌握Visual Basic 6.0的启动方法。

• 熟悉VB的开发环境。

• 熟悉常用菜单，使用菜单和工具栏创建工程，保存工程生成exe 文件。

• • 学会向窗体中放置控件和使用属性窗口。

学会建立一个简单界面的应用程序，在代码编辑窗口中添加代码。

• 掌握启动工程和结束工程的方法。

任务二：程序设计基础1 任务难度：** 基本要求：• 掌握VB的常量、变量、数组和表达式的定义。

• • • • 熟练掌握VB简单的语句书写。

掌握分支结构的使用。

掌握循环结构的使用。

掌握各种常用函数的使用。

任务三：程序设计基础2 任务难度：*** 基本要求：• • • • 熟练掌握常用函数的使用。

熟练掌握分支结构的使用。

熟练掌握循环结构的使用。

掌握常用简单算法的编程。

任务四：窗体、标签、文本框和按钮任务难度：* 基本要求：• 学会添加多个窗体。

• • • • • 掌握启动窗体和切换窗体。

掌握为窗体添加事件代码。

掌握标签的属性和事件代码。

VB程序设计上机指导书前言Visual Basic是Microsoft公司推出的一种面向对象的“可视化”Windows应用程序开发工具，它在语法上继承了Basic和Quick Basic的优点，具有使用方便、简单易学等特点，且功能强大，与其他开发工具有丰富的接口。

因此，深受广大用户的青睐，成为学习开发Windows应用程序首选的程序设计语言。

“VB程序设计”是一门实践性很强的课程，在学习此课程的过程中，上机实验是十分重要的环节，通过上机实验，可以使学生了解面向对象的程序设计方法，掌握用VB开发应用软件的方法，培养学生的实用型应用软件开发能力，为今后承担VB应用程序的开发和维护打下良好的基础。

本指导书共有四个实验，要求学生必须熟练掌握。

目录前言 (2)实验一VB集成开发环境及工程管理 (4)一、实验目的 (4)二、实验内容 (4)实验二VB基本编程技术 (5)一、实验目的 (5)二、实验内容 (5)实验三文件管理 (7)一、实验目的 (7)二、实验内容 (7)实验四数据库访问技术 (9)一、实验目的 (9)二、实验内容 (9)实验一VB集成开发环境及工程管理（2学时）一、实验目的1．掌握Visual Basic启动和退出的方法。

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

3．掌握VB工程的创建、打开和保存以及向工程中添加、删除文件的操作方法。

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

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

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

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

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

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