推荐-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Ｂ程序设计》这门课有了更深的了解，以下是我对这次实训所做的总结：这次实训做的是“教学信息管理系统”，需要掌握ＶＢ与ＡＣＣＥＳＳ数据库的综合编程方法，所以首先要熟练掌握ＡＣＣＥＳＳ数据库的创建。
实训第一天，我首先了解了这次实训的目的及意义；然后便是完成当天的主要任务，即根据“教学信息管理系统”中的需求分析，创建ＡＣＣＥＳＳ数据库及数据表。
结合实际，需要在数据库中创建学生信息表、课程信息表、学生成绩表、班级信息表、教师信息表、教学安排表、用户表、创建查询等八个数据表。
- 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) 文本框中内容分行显示是因为插入了回车换行符。