推荐-vb程序设计实验报告 精品
《程序设计基础—VB程序实验》
《程序设计基础—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命名并保存。
2024版vb程序设计教案设计(精选)[1]
![2024版vb程序设计教案设计(精选)[1]](https://img.taocdn.com/s3/m/75788f5e5e0e7cd184254b35eefdc8d376ee14e2.png)
vb程序设计教案设计(精选2024)目录CATALOGUE•课程介绍与目标•VB 基础知识•程序控制结构•数组与过程•界面设计与事件处理•文件操作与数据库访问•课程总结与展望01CATALOGUE课程介绍与目标VB程序设计概述VB程序设计的基本概念介绍Visual Basic（VB）程序设计的基本概念，包括VB的历史、特点、应用领域等。
VB开发环境详细讲解VB的开发环境，包括集成开发环境（IDE）的组成、常用工具栏和菜单的功能等。
VB编程基础介绍VB编程的基础知识，如数据类型、变量、常量、运算符、表达式等。
教学目标与要求知识与技能目标通过本课程的学习，学生应掌握VB程序设计的基本概念和基础知识，能够熟练使用VB开发环境进行程序设计，具备一定的编程能力和解决实际问题的能力。
过程与方法目标通过案例分析、实践操作等方式，培养学生的逻辑思维能力和创新实践能力，提高学生的自主学习和团队协作能力。
情感态度与价值观目标培养学生的计算思维和信息素养，提高学生的创新意识和实践能力，培养学生的团队合作精神和责任感。
上课时间本课程每周上课X 次，每次X 学时，共计XX 学时。
上课时间安排在周一至周五的上午或下午，具体时间根据学校教学安排而定。
课程安排本课程共分为XX 个章节，每个章节包含若干个小节，每个小节都有相应的知识点和技能点。
课程安排由浅入深，循序渐进，注重实践应用。
实践环节本课程包含丰富的实践环节，包括实验、课程设计等。
实践环节旨在帮助学生巩固所学知识，提高编程能力和解决实际问题的能力。
课程安排与时间02CATALOGUE VB基础知识VB 提供丰富的控件和事件驱动编程模型，使开发者能够直观地设计用户界面。
可视化编程VB 采用简单易懂的语法和直观的编程环境，降低了编程难度，适合初学者快速上手。
易于学习VB 支持多种数据类型、运算符和函数，具备强大的数据处理能力，可开发出复杂的应用程序。
强大的功能VB 充分利用Windows API 和COM 组件，可轻松开发出与Windows 操作系统紧密结合的应用程序。
大一vb的实验报告
大一VB的实验报告
实验目的
本次VB的实验目的在于：
1.学习VB的基础语法和编程思想。
2.熟悉VB语言的IDE开发环境，了解其界面、操作方式和功能。
3.通过实现一个简单的文本编辑器，进一步熟悉VB的编程技巧。
实验内容
界面设计
首先，我们需要对文本编辑器的界面进行设计。
我们采用VB自带的Windows Form进行界面设计。
Notepad-UI
Notepad-UI
如图所示，主要包括菜单栏、工具栏、编辑区和状态栏等四个部分。
功能实现
新建、打开和保存
首先，我们需要实现新建、打开和保存功能，这是每个文本编辑器都需要支持的基本操作。
我们可以通过使用VB自带的控件——菜单控件和文件对话框，快速实现这些功能。
```vb ’Tool Strip Menu Item - New File Private Sub NewToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles NewToolStripMenuItem.Click If currentFile <>。
vb用户界面设计实验报告（共9篇）
vb用户界面设计实验报告(共9篇) VB第7章用户界面设计一、选择题1、下列控件中，没有Caption属性的是( )。
A. 框架B. 列表框C. 复选框D. 单选按钮2、复选框的Value属性为1时，表示( )。
A. 复选框未被选中B. 复选框被选中C. 复选框内有灰色的勾D. 复选框操作有错误3、用来设置粗体字的属性是( )。
A. FontItalicB. FontNameC. FontBoldD. FontSizeE. FontUnderline4、假定定时器的Interval属性为1000，Enabled属性为Ture，调用下面的事件过程，程序运行结束后变量x的值为( )。
Dim x As IntegerSub Timer1_Timer( )For i = 1 To 10x = x + 1Next iEnd SubA. 1000B. 10000C. 10D. 以上都不对5、在下列说法中，正确的是( )。
A. 通过适当的设置，可以在程序运行期间让定时器显示在窗体上B. 在列表框中不能进行多项选择C. 在列表框中能够将项目按字母顺序从大到小排列D. 框架也有Click和DblClick事件6、在用菜单编辑器设计菜单时，必须输入的项有( )。
A. 快捷键B. 标题C. 索引D. 名称7、在下列关于菜单的说法中，错误的是( )。
A. 每个菜单项都是一个控件，与其他控件一样也有自己的属性和事件B. 除了Click事件之外，菜单项还能响应其他的，如DblClick等事件C. 菜单项的捷径键不能任意设置D. 在程序执行时，如果菜单项的Enabled属性为False，则该菜单项变成灰色，不能被用户选择8、在下列关于通用对话框的叙述中，错误的是( )。
A. CommandDialog1.ShowFont显示“字体”对话框B. 在“打开”或“另存为”对话框中，用户选择的文件名可以经FileTitle属性返回C. 在“打开”或“另存为”对话框中，用户选择的文件名及其路径可以经FileName属性返回D. 通用对话框可以用来制作和显示“帮助”对话框二、填空题1、复选框( )属性设置为2——Grayed时，变成灰色，禁止用户选择。
vb实验报告实验6--循环结构
MsgBox outstr, , "The Output Result " End Sub
Run
运行界面及程序清单：
（二）程序填空
图 4-12 运行界面
【实验步骤】
1．主要属性设置，无。 2. 编写事件代码：
Option Explicit Private Sub Form_Click()
Dim m As Integer, n As Integer, r As Integer m = InputBox(" 输入 m 的 值： ") n = InputBox(" 输入 n 的 值： ") Do While n <> 0 '*** ** *** **F OUN D** ** *** ***
运行界面及程序清单：
第二题
【实验要求】
运行界面如图 4-15 所示，鼠标单击窗体，在窗体上打印出以下图形。
'
*
'
***
'
*****
' *******
'
*****
'
***
'
*
【实验步骤】
1．主要属性设置，无 2. 编写事件代码：
Private Sub Form_Click() Dim i%, j%, k% For i = 3 To 0 Step -1 For j = 0 To 2 * i
【实验步骤】
图 4-14 运行界面
程序设计实训报告(9篇)
程序设计实训报告（9篇）【导语】程序设计实训报告怎么写出亮点？整理了9篇优秀的《程序设计实训报告》通用版范文，有规范的开头结尾写法和标准的书写格式。
是您写出深受大家欢迎的综合报告抱负参考模板，盼望对您有所关心。
【第1篇】程序设计实训报告程序设计实训报告1一，实训目的：加深对可视化编程技术基本学问的理解，把握运用vb开发应用程序的基本方法及基本技巧。
二，实训时间:20xx年10月20xx年11月三，实训方式：上机操作四，实训类容：这次在杨立雄老师的带领下，利用vb开发工具与数据库sql开发一个使用的小型管理信息系统。
我选择了学籍管理系统。
它的功能要求如下：1，学籍信息输入：实现同学基本状况的输入。
包括各个同学的状况，姓名，家庭号码，家庭住址，学号等各个信息。
2，学籍信息管理：本模块实现了信息的修改，删除，查询。
还有个人信息。
把信息统计这个繁琐的工作简洁化，为同学信息的管理方面提高工作效率。
3，学籍信息查询：通过输入学号便可以查询到这个同学的全部信息，包括姓名，性别，诞生年月，班级，入学日期，联系电话，嘉奖和成果表都一目了然，很大的便利了教工们查询同学信息的过程。
4，统计查询：实现查询全班人数，男女生比例等。
五，实训体会：这次实训，感觉既好玩又有些辛苦。
这还是老师担忧我们适应不了所以没教那么多学问，即使这样我们仍学到了比以前上学时更多的学问，而且这些学问有好多都是我们自己去领悟的到的。
我也知道有人比我们更累，所以我自觉得还是挺好的。
经过这次的实训，我真真实切的感受到了计算机在我们生活中工作中的运用，这些软件，程序能让我们提高工作的效率，更直观更便捷切入主题。
这次我们学习的是数据源的原理及应用的各方面学问，由老师带着我们不断操作。
vb能有效的组织，管理和共享数据库信息，能把数据库信息与ado结合在一起，实现数据库信息的共享。
同时，vb概念清楚，简洁易学，使用。
是适合企业管理人员，数据库管理员使用的首选。
VB实验报告(实验10)
电子信息工程学系实验报告课程名称：面向对象程序设计实验项目名称：实验10 文件 实验时间2011-12-12班级： 姓名： 学号：实 验 目 的:1）、理解System.IO 对象模型。
2）、熟练掌握使用File 和Directory 对象操作文件的方法。
3）、熟练掌握DriveListBox 和StreamWriter 对象读写文本文件的方法。
4）、理解流的概念。
5）、掌握使用StreamReader 和StreamWriter 对象读写文本文件的方法。
实 验 环 境:Windows XPVisual 2003实 验 内 容 及 过 程:查找并替换文本文件的内容1、 新建一个“VisualBasic 项目”2、 界面设计由一个显示选择的文件的文本框（txtFileName ）、一个查找内容的文本框（txtFindText ）、一个替换内容的文本框（txtReplaceText ）、一个显示打开的文件内容的多行文本框（txtContent ）、三个标签（Label ）和两个按钮（btnSelFile 、btnReplace ）组成。
还要再添加一个OpenFileDialog 控件。
界面安排如图T10-1。
3、 编写程序代码引入System.IO 名称空间。
单击“选择文件”按钮的事件代码： 图T10-1 界面设计Private Sub btnSelFile_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) HandlesbtnSelFile.ClickOpenFileDialog1.InitialDirectory = "c:\"OpenFileDialog1.Filter = "文本文件(*.txt)|*.txt|所有文件(*.*)|*.*"OpenFileDialog1.FilterIndex = 1OpenFileDialog1.RestoreDirectory = TrueIf OpenFileDialog1.ShowDialog = DialogResult.OK ThentxtFileName.Text = OpenFileDialog1.FileNameEnd IfIf txtFileName.Text <> "" Thenreadfile(txtFileName.Text, txtContent)End If单击“替换”按钮的事件代码：Private Sub bntReplace_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) _ Handles bntReplace.ClickIf txtFindText.Text = "" ThenMsgBox("请输入查找字符串", MsgBoxStyle.Critical)End IfTryDim fs As New FileStream(txtFileName.Text, FileMode.Open)Dim sr As New StreamReader(fs)Dim tempstr As Stringtempstr = Path.GetTempFileNameDim sw As New StreamWriter(tempstr)Dim s As StringDos = sr.ReadLineIf s <> Nothing Thens = s.Replace(txtFindText.Text, txtReplaceText.Text)sw.WriteLine(s)ElseExit DoEnd IfLoop While s <> Nothingsw.Close()sr.Close()fs.Close()File.Delete(txtFileName.Text)File.Move(tempstr, txtFileName.Text)If txtFileName.Text <> "" Thenreadfile(txtFileName.Text, txtContent)End IfMsgBox("替换完成。
VB程序设计实训报告
《VB程序设计》实训报告实训名称：教学信息管理系统实训专业：计算机应用技术班级：计算机10A1学号：*********姓名：陈健指导教师：***2011 年6月18 日实训成绩一、实训目的1. 学会综合运用VB有关的控件、函数和对象的知识，掌握VB的程序设计方法和技术。
2.通过一个教学信息管理系统的开发，掌握VB与ACCESS数据库的综合编程方法。
3. 掌握ACCESS数据库的设计；数据库的连接；绑定控件的属性设置、ADO数据控件的属性和方法；功能模块的编程和实现方法。
4.提高学生分析和解决实际问题的能力，调试和分析应用程序的能力，达到一定的应用程序设计水平。
二、实训报告内容2.1实训内容：教学信息管理系统采用C/S体系结构，采用Visual Basic 6.0作为开发工具，采用ACCESS数据库作为后台管理。
1.根据需求分析，创建ACCESS数据库和数据表2.主窗体和系统菜单设计3.用户管理，用户登录界面设计4.学生信息管理模块设计5.课程管理、班级管理、教师管理模块设计6.学生成绩管理模块设计根据实训项目各个模块任务要求，进行程序设计和调试。
实现信息的录入、编辑修改、删除、浏览功能，能实现信息的一般查询功能和条件查询功能，并进行系统总体整合和调试。
2.2 实训设备或软、硬件1. PC计算机，Windows XP操作系统2.Visual Basic 6.0集成开发环境3.ACCESS 2003数据库系统三、结论经过近两周的实训，我发现我对《VＢ程序设计》这门课有了更深的了解，以下是我对这次实训所做的总结：这次实训做的是“教学信息管理系统”，需要掌握ＶＢ与ＡＣＣＥＳＳ数据库的综合编程方法，所以首先要熟练掌握ＡＣＣＥＳＳ数据库的创建。
实训第一天，我首先了解了这次实训的目的及意义；然后便是完成当天的主要任务，即根据“教学信息管理系统”中的需求分析，创建ＡＣＣＥＳＳ数据库及数据表。
结合实际，需要在数据库中创建学生信息表、课程信息表、学生成绩表、班级信息表、教师信息表、教学安排表、用户表、创建查询等八个数据表。
VB实验报告
VB实验报告《VB程序设计》实验单元一实验报告专业班级：姓名学号 2指导教师：王云侠完成时间： 3月22日实验一VB环境和可视化编程基础一、实验目的1 了解Visual Basic的安装2 掌握启动与退出Visual Basic3 掌握建立、编辑和运行一个简单应用程序的全过程4 掌握基本控件的使用二、实验环境VB6.0三、实验内容1、编写一程序，在文本框中统计在该窗口上鼠标单击的次数。
提示：对窗口编写两个事件：Form_Load事件对文本框初值设为空；Form_Click事件对文本框计数。
对文本框计数：Text1=Val(text1)+1 。
2、命令按钮、字号、内容和格式的复制练习。
按钮1：使得Text1中的文本按要求改变。
按钮2：将Text1中选定的文本复制到Text2. 控件名 Form1 Label1 Label2 Text1 属性 Ca ption=”实验2” 复制文本输入文本Text=“VB功能强大，但要下功夫学习才能学好。
” （每个同学文本框中内容可以不同） Text2 Command1 Command2 四、实验步骤1、编写一程序，在文本框中统计在该窗口上鼠标单击的次数。
从运用中点击vb6.0经典版Text=”” Caption=”隶书25磅” Caption=”复制=>” 打开标准 EXE 建立一个form 1添加一个Label和TextBox，Label的caption改为“你单击窗体的次数”，TextBox 的text改为空，然后编写代码如图点击运行即可。
2、命令按钮、字号、内容和格式的复制练习。
从运用中点击vb6.0经典版打开标准 EXE 建立一个form 1添加两个Label两个TextBox两个CommandButton，Label的caption改为“输入内容”和“复制效果”，TextBox的text改为“任意文字”和“空”，CommandButton的caption改为“隶书25磅”和“复制=>”。
VB实验及答案
对象名称
属性名称
Form1
Caption
Command1 Caption
Label1
Caption
Label2
Caption
Label3
Caption
Text1、Text2 Text
属性值 象限判断 判断 X= Y=
（3）编写事件代码： Private Sub Command1_Click() Dim x!, y!
Private Sub Command2_Click() Dim f!, c! c = Val(Text2.Text) f = 9 / 5 * c + 32 Text1 = Str(f)
End Sub
（4）程序的运行及保存。 4 求圆的面积及圆柱体的体积，界面如图 2-3 所示。
【步骤】 （1）设计应用程序的界面：在窗体上创建两个命令按钮 Command1 和 Command2，四个标签 Label1、Label2、Label3 和 Label4，四个文本框 Text1、Text2、Text3 和 Text4。 （2）设置对象的属性
【步骤】
（ 1 ） 在 窗 体 中 创 建 一 个 标 签 Label1 、 一 个 命 令 按 钮 Command1。
（2）在属性窗口中设置对象的属性：
对象名称
属性名称
属性值
Form1
Caption
设计界面
Label1
Caption
请留意此处
Command1
Caption
单击此处
（3）在 Command1 的 Click 事件中编写程序代码：
x = Val(Text1) y = Val(Text2) If x > 0 Then
VB实验报告1-9
实验一：设计简单的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程序设计实验心得(优秀模板3篇)
vb程序设计实验心得（优秀模板3篇）vb程序设计实验心得第1篇数据库课程设计大赛的尘嚣渐渐远去，怀着对这次大赛的些许不舍，怀着对当初课程设计开始时候的豪情万丈的决心的留恋，怀着通过这次课程设计积累的信心与斗志，我开始写这篇文章，为自己的足迹留下哪怕是微不足道但是对自己弥足珍贵的痕迹并期望与大家共勉。
首先，让我的记忆追溯到大二暑假，在老大的指引下，我接触到Microsoft 公司的.NET产品。
那个时候我已经学过vc和asp，因为windows程序设计实验的课的关系，接触过vb，但是没有专门去学他，因为习惯了c++里面的class，int，觉得vb的sub，var 看着就不是很顺心。
我是一个好奇心很强的人，突然看到了一个号称“.网络是用于创建下一代应用程序的理想而又现实的开发工具”，而且主推c#语言，由于对c语言的一贯好感，我几乎是立刻对他产生了兴趣。
我就开始了对c#的学习，任何语言都不是孤立存在的，所以数据交互是很重要的，暑假的时候我把我们这学期的课本数据库系统概论看了一遍。
我记得以前用c语言编程的时候，数据是在内存中申请空间，譬如使用数组等等。
很耗费内存空间。
这个时候就是数据库站出来的时候啦，于是我又装上了sql server，以前学asp的时候用的是access，那个时候只是照着人家做，理论是什么也不是很清楚。
通过一个暑假的学习，基本搞清楚了理论方面的东西，具体怎么用也不是很清楚。
但是这为这学期的课程设计打下了铺垫。
来到学校后，随着这学期的数据库课程大赛开始了，我有一个看法就是我自己应该具备的能力不是我会多少，而是我应该具备快速学会东西的能力。
遇到什么就学什么。
我们有时候很容易被一些专业名词说吓着，包括什么建模，软件工程，数据分析，数据挖掘等等。
我身边就有很多同学被这些纸老虎所唬住，而没有勇气去接触他们，总是说这个太难了之类的退堂鼓的话，他们低估了自己的潜力同时也压抑住了他们自己的好奇心。
其实都是纸老虎，又不是什么国家科研难题，只是去用一些工具，发明工具是很难，但是用一个工具就容易多了，just do it!我记得我做这个数据库之前，我们老师说要做好前期分析，我就在网上搜索用什么分析工具好。
vb程序设计实验报告
vb程序设计实验报告VB程序设计实验报告一、引言在计算机科学与技术领域中，程序设计是一项至关重要的技能。
Visual Basic （VB）作为一种强大的编程语言，被广泛应用于软件开发领域。
本实验报告旨在总结和分析我在VB程序设计实验中的学习和实践经验。
二、实验目的本次实验的主要目的是通过设计和实现一个简单的VB程序，加深对VB语言的理解和掌握。
通过这个实验，我将学习如何使用VB语言进行界面设计、事件处理和数据处理。
三、实验过程1. 界面设计在实验开始时，我首先进行了界面设计。
通过VB的可视化设计环境，我选择了合适的控件，布局了用户界面。
我使用了文本框、标签、按钮等控件，使用户能够输入数据并进行相应的操作。
2. 事件处理在界面设计完成后，我开始编写事件处理程序。
我为按钮添加了点击事件，当用户点击按钮时，程序会执行相应的操作。
例如，当用户点击“计算”按钮时，程序会读取用户输入的数据，并进行计算操作。
通过编写事件处理程序，我学会了如何响应用户的操作，并进行相应的逻辑处理。
3. 数据处理在实验中，我还学习了如何进行数据处理。
我使用了VB的变量和运算符，对用户输入的数据进行计算和处理。
通过编写算法和逻辑，我实现了对用户输入数据的验证和处理，确保程序能够正确运行。
四、实验结果经过一段时间的设计和调试，我成功完成了VB程序的实现。
我的程序可以根据用户输入的数据进行相应的计算，并将结果显示在界面上。
通过这个实验，我不仅巩固了VB语言的基础知识，还提高了自己的编程能力。
五、实验总结通过这次VB程序设计实验，我收获了很多。
首先，我学会了如何使用VB语言进行界面设计，掌握了一些常用的控件和布局方法。
其次，我学习了如何编写事件处理程序，响应用户的操作，并进行相应的逻辑处理。
最后，我还学习了如何进行数据处理，使用变量和运算符对数据进行计算和处理。
在实验过程中，我遇到了一些问题和挑战。
例如，我曾经遇到过界面布局不合理导致用户体验不佳的情况，但通过不断的调整和改进，最终解决了这个问题。
VB实验报告格式
输入半径
Text1
text
空
Text2
text
空
Text3
text
空
Command1
Caption
圆面积
Command2
Caption
圆周长
2、……
四、实验内容（程序代码）
1、
Private Sub Command1_Click()
Dim r As Single,s As Single
大庆石油学院学生实验报告
实验课程名称：VB程序设计2013年4月日
学院
石油工程
年级、专业、班
油06-1
姓名
学号
实验台号
xx
同组人
实验项目
名称
数组(一)
成绩
教师评语
教师签名：
年月日
实验报告内容（包括实验目的、原理、使用的仪器设备、实验步骤、实验过程及原始记录、实验结果及分析等）
一、实验目的
1．掌握静态数组的声明、数组元素的引用。
2．掌握一维静态数组的输入/输出方法。
3．掌握一维静态数组的常用算法。
二、实验项目
1、对于具有10个元素的一维数组，编程求其最大值和最小值。
2、对于具有10个元素的一维数组，编程使其按逆序存放并输出。
三、界面设计（窗体和控件属性说明）
1、
对象名称
属性
设abel1
1、
Text1中输入半径12，单击“圆面积”按钮，在Text2中显示452.3893344，单击“圆周长”，在Text3中显示75.3982224。
输入3.5，分别显示38.48450935和21.9911482。
2、
六、分析和体会（任选几条，此为可选项）
vb课程设计报告(直线拟合)
直线拟合一、功能本题目重要是用于将试验中得到旳具有线性特性旳一组数据通过最小二乘法拟合成直线，求出其直线方程和绘制出该直线旳图形。
二、详细设计本题目旳程序设计由三个窗体构成。
在Form1中，有1个框架控件、1个标签控件、2个命令按钮和1个由6个单项选择按钮构成旳控件数组。
单项选择按钮控件数组用来选择要输入旳数据组数，当选择好后，单击“确定”按钮，就可以进入下一种窗体。
单击“取消”按钮则退出程序Form1旳代码见附件。
在Form2中有2个命令按钮、20个文本框（每10个构成一种控件数组）、12个标签控件和许多直线构成。
在文本框中输入试验数据后，点击“确定”按钮，若数据没有所有输入，则出现消息框，提醒没有完全输入。
若已经完全输入，则显示Form3,隐藏Form2。
与此同步，对试验数据计算，得出拟合直线旳截距和斜率，并在Form3旳标签控件1中体现；根据所得旳斜率和截距得到拟合直线方程，并在Form3旳标签2中体现；还可以在Form3中绘出拟合直线和每个试验点（用绿色），根据试验数据调整坐标系统，画出拟合直线。
Form2旳代码见附件。
三、调试一开始，我是在三楼上机，用旳是VB6.0，碰到旳第一种问题是全局变量旳设置问题。
我不懂得是我一种暑假把学旳都忘了，最终终于在书本旳协助下成功做出来了。
第二个问题是显示拟合直线。
一开始，我在Form3中画了一种图片框，运行时总显示不了直线，后来索性将它删掉，再次运行时终于能出现直线，可是直线旳位置与设想相差太大了。
持续尝试了1个多星期后，终于明白了，本来我直接运用得到旳直线方程旳点旳坐标在窗体上画直线是不对旳，由于我所画旳坐标轴旳单位长度和窗体旳单位长度不相等，之间需要一定旳转换。
于是再次修改代码，可还是没有出现预想旳状况。
重新检查后，没有发现程序错误。
我又尝试输入一组特殊数据：（1，3）、（2，5）、（3，7）、（4，9）、（5，11），它们旳拟合直线应当是Y=2X+1,斜率是2，截距是1，可运行后旳成果让我大吃一惊，斜率是-0.2，截距是-0.1。
vb实验报告循环
物理工程系计算机实验报告课程名称VisualBasic程序设计班级姓名同组成员设备编号37 实验日期20120 实验目的循环实验题目对调数，守形数，完全数实验环境、条件VB6.0实验过程总结（产生的问题、解决方法）对调数Option ExplicitDim a, b, i, n, s, m As Integer,ch1, ch2 As StringPublic LoginSucceeded AsBooleanPrivate Sub Form_Click()a = InputBox("请输入一个两位正整数：")i = Len(a)If i = 2 Thench1 = StrReverse(a)b = Val(ch1)For m = 10 To 99ch2 = CStr(m)ch2 = StrReverse(ch2)n = Val(ch2)a = Val(a)If a + m = b + n ThenPrint mEnd IfNext mElseMsgBox "输入错误，请重新点击页面输入！"End IfEnd Sub守形数Option ExplicitDim a, i, n, s As Integer, ch AsString, ch1 As StringPublic LoginSucceeded AsBooleanPrivate Sub Form_Click()For a = 1 To 1000ch1 = CStr(a)i = Len(ch1)n = a ^ 2ch = CStr(n)ch = Right(ch, i)s = Val(ch)If s = a ThenPrint a & "为守形数！"End IfNext aEnd Sub完全数Option ExplicitDim a, i, n, s, m As IntegerPublic LoginSucceeded AsBooleanPrivate Sub Form_Click()Print "1和1000之间的完全数有："m = 0For a = 1 To 1000s = 0For i = 1 To a - 1n = a Mod iIf n = 0 Thens = i + sEnd IfNext iIf s = a ThenPrint am = m + 1End IfNext aMsgBox "1和1000之间一共有" & m & "个完全数。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
VB程序设计实验报告实验三选择结构程序设计一、实验目的1. 掌握逻辑表达式的正确书写形式。
2. 掌握单分支与双分支条件语句的使用。
3. 掌握多分支条件语句的使用。
4. 掌握情况语句的使用及与多分支条件语句的区别。
二﹑实验内容4. 编制程序，计算某个学生奖学金的等级（假定只考虑一等奖），以三门功课成绩m1，m2，m3为评奖依据。
奖学金一等奖评定标准如下：(1) 平均分大于95分者。
(2) 有两门成绩是100分，且第三门功课成绩不低于80分者。
5. 编一模拟袖珍计算器的完整程序，界面如图2.3.1所示。
要求：输入两个操作数和一个操作符，根据操作符决定所做的运算。
6．输入一个数字（1～7），用英文显示对应的星期一～星期日。
提示：用Select语句来实现。
三﹑实验步骤4，打开VB后，建立一个命令按钮，输入"奖学金评定"，编辑代码如下:Private Sub mand1_Click()Dim m1!, m2!, m3!m1 = InputBox("输入m1 的值")m2 = InputBox("输入m2 的值")m3 = InputBox("输入m3 的值")If (m1 + m2 + m3) / 3 > 95 Or _(m1 = 100 And m2 = 100 And m3 >= 85 Or _m1 = 100 And m3 = 100 And m2 >= 85 Or _m3 = 100 And m2 = 100 And m1 >= 85) ThenMsgBox "一等奖学金"ElseMsgBox "不是一等奖学金"End IfEnd Sub5，打开VB后，建立4个Lebel标签，4个Text文本框，2个mand按钮，如上图。
编辑代码如下：Private Sub mand1_Click()Select Case Trim(Text3)Case "+"Text4.Text = Val(Text1.Text) + Val(Text2.Text)Case "-"Text4.Text = Val(Text1.Text) - Val(Text2.Text)Case "*"Text4.Text = Val(Text1.Text) * Val(Text2.Text)Case "/"Text4.Text = Val(Text1.Text) / Val(Text2.Text)End SelectEnd SubPrivate Sub mand2_Click()EndEnd Sub6, 打开VB后，建立1个Text文本框，1个mand按钮。
代码如下：Private Sub mand1_Click()a = Text1.TextSelect Case aCase 1Print "Monday"Case 2Print "Tuesday"Case 3Print "Wednesday"Case 4Print "Thursday"Case 5Print "Friday"Case 6Print "Saturday"Case 7Print "Sunday"End SelectEnd Sub四﹑实验总结1，从此此实验中掌握了IF语句的使用.掌握情况语句的使用,以及情况语句与多分支语句的使用区别.2，写在不同行的条件代码要用空格加下划线分开，有关m1,m2,m3的三个条件要用AND隔开3，使用Select语句时，Case后的条件是字符型。
实验四循环结构程序设计一﹑实验目的1. 掌握For语句的使用。
2. 掌握Do语句的各种形式的使用。
3. 掌握如何控制循环条件，防止死循环或不循环。
二﹑实验内容3．用单循环显示有规律图形，如图4.1。
提示：（1）循环体内显示用String函数来实现，找出循环控制变量与String函数内个数的关系，即：String(i,Trim(Str(i)))。
（2）Trim函数是去除字符串两边的空格。
因为将数值i转换成字符，系统自动在数字前加符号位，正数为空格，负数为“-”；而String函数只取字符串中的第一个字符，本例中为空格，因此要利用Trim函数去除空格。
（3）为了使得最后一行的0显示，如按照上面公式为1，则要对公式修改为：String(i,Right( (Str(i),1))图4.1 实验4.3运行界面之一4．计算 2912211611117141211S当第i项的值<10-4时结束。
提示：找出规律，第i项的分母是前一项的分母加上表示有分母项开始的计数项=a+aa+aaa+aaa+⋯aa⋯aaa(n个a)，其中a是一个由随机数产生的1~9(包括1，9)中的一8．求Sn个正整数，n是一个由随机数产生的5~10(包括5，10)中的一个数。
=2+22+222+2222+22222。
例如：当a=2，n=5时，Sn提示：为了得到不断重复的数Temp，可在循环体利用下面通项：Temp=Temp*10+aTemp的初值为0。
三﹑实验步骤3，打开VB，程序代码如下：Private Sub Form_Click()For i = 1 To 10Print Spc(10 - i);If i < 10 Then Print String(i * 2 - 1, Trim(Str(i)));If i = 10 Then Print String(i * 2 - 1, Right(Str(i), 1)):PrintNext iEnd Sub4，打开VB，程序代码如下：Private Sub Form_Click()a = 0b = 1s = 0Dob = b + as = s + 1 / ba = a + 1Loop Until 1 / b < 0.0001Print sEnd Sub8，打开VB，程序代码如下：Private Sub Form_Click()a = Int(Rnd * 9 + 1)n = Int(Rnd * 6 + 5)temp = 0s = 0For i = 1 To ntemp = temp * 10 + as = s + tempNext iPrint sEnd Sub四﹑实验总结1，从此次实验中得到的是掌握了FOR语句的使用,还有的是DO语句的各种形式的使用,如何控制循环和防止死循环或不循环。
2，学会了String函数的用法。
实验五数组一﹑实验目的1. 掌握数组的声明、数组元素的引用。
2. 掌握静态数组和动态数组的使用差别。
3. 应用数组解决与数组有关的常用算法。
二﹑实验内容3．随机产生10个30~100(包括30，100)的正整数，求最大值、最小值、平均值，并显示整个数组的值和结果。
4．用起泡法对10个数进行从大到小排序，可以参考教材中的【例3-22】。
6．编一对已知数组a()，删除数组中数组元素中某个元素的程序。
假定数组a的值利用Array 函数，分别为{1，6，8，3，5，9，10，2，7，4}，删除Key值为10的元素。
三﹑实验步骤3，打开VB，建立1个mand按钮，程序代码如下：Private Sub mand1_Click()Dim a(10)RandomizeDim sum As Integer, min As Integer, max As Integersum = 0: min = 100: max = 30For i = 0 To 9a(i) = Int(30 + (71 * Rnd))sum = sum + a(i)If a(i) < min Then min = a(i)If a(i) > max Then max = a(i)Print a(i);Next iPrintPrint "最大值:"; maxPrint "最小值:"; minPrint "平均值:"; sum / 10End Sub4，打开VB，建立1个mand按钮，程序代码如下：Private Sub mand1_Click()Dim a(1 To 10) As IntegerRandomizePrint "排序前：";For i = 1 To 10a(i) = Int(Rnd * 100)Print a(i);Next iFor i = 1 To 10For j = i + 1 To 10If a(i) < a(j) Thent = a(i): a(i) = a(j): a(j) = tEnd IfNext jNext iPrintPrint "排序后：";For i = 1 To 10Print a(i);Next iEnd Sub6，打开VB，程序代码如下：Private Sub Form_Click()Dim a()aa = Array(1, 6, 8, 3, 5, 9, 10, 2, 7, 4)ReDim a(9)For i = 0 To 9If a(i) = "10" Then t = a(i): a(i) = a(9): a(9) = tNextReDim a(8)Print aaEnd Sub调试过程：实时错误”13”,类型不匹配四﹑实验总结1，学会了静态数组和动态数组的运用。
2，对于Array函数的添加元素和删除元素的掌握还有一定的问题，上面的6题不会做。
实验七一﹑实验目的1. 掌握常用控件的重要属性、事件和方法。
2. 掌握常用ActiveX控件的特性，熟练应用这些高级控件进行编程。
3. 初步掌握创建基于图形用户界面应用程序的过程。
4. 熟练掌握键盘事件、鼠标事件及其事件过程的编写技艺。
5. 掌握普通拖放和OLE拖放的原理，掌握实现拖放的方法。
二﹑实验内容1．调试教材中的【例4-7】，体会基本控件的使用方法。
2．调试教材中的【例4-8】，体会基本控件的使用方法。
3．设计一个如图7.1所示程序。
当用户在“操作选项”框架中选定操作后，文本框发生相应的变化，同时在“操作说明”框架中的标签上显示有关的操作说明。
图7.1提示：(1) 在文本框中移动光标和选定内容是通过设置SelStart和SelLength属性实现的。
(2) 文本框中内容分行显示是因为插入了回车换行符。