VB综合实验报告

合集下载

VB综合实验报告

华北科技学院计算机学院综合性实验实验报告课程名称程序设计语言(VB)实验学期 2015 至 2016 学年第二学期学生所在系部安全工程学院年级 2015级班级安卓B151 学生姓名徐艳强学号 201510044218 任课教师李冬艳实验成绩计算机学院制《程序设计语言（VB）》课程综合性实验报告题目描述如下：在“数学运算”窗体上有一个名称为cmd1、标题为“计算”的命令按钮；两个水平滚动条，名称为hs1和hs2，其max属性均为100，min属性为1；四个标签，名称为lab1、lab2、lab3和lab4，标题分别为“运算数1”、“运算数2”、“运算结果”和空白；此外包含四个单选按钮，标题为“+”、“-”、“*”和“/”。

程序运行后，移动两个滚动条中的滚动框，用滚动条的当前值作为运算数，如果选中一个单选按钮，然后单击命令按钮，相应的计算结果将显示在label4中。

6.单击“退出”菜单，退出程序运行。

四．实验结果及分析1.菜单(1)功能主要功能就是把每个小程序串联起来，使其连续、具有整体性。

分为数组应用、控件应用、过程应用、和退出四个一级菜单。

在数组应用一级菜单下有数组操作二级菜单、控件应用一级菜单下有选择器和数学运算两个二级菜单、过程应用一级菜单下有字符转换二级菜单。

其中一级菜单中，单击退出后实现结束程序的目的，二级菜单对应每个程序，单击二级菜单会实现出现对相应的程序窗体。

(2)界面抓取(3)实现代码Private Sub 数学运算_Click()数学运算窗体.ShowEnd SubPrivate Sub 数组操作_Click()数组操作窗体.ShowEnd SubPrivate Sub 退出_Click()EndEnd SubPrivate Sub 选择器_Click()选择器窗体.ShowEnd SubPrivate Sub 字符转换_Click()字符转换窗体.ShowEnd Sub2.初始界面（1）功能人员分工介绍。

VB最综版实验报告

学生学号0120811360801 实验课成绩学生实验报告书实验课程名称可视化程序设计A开课学院自动化学院指导教师姓名刘红丽学生姓名朱明学生专业班级自动化0808班2009-- 2010学年第二学期实验课程名称：_可视化程序设计______实验项目名称窗体界面设计和控件的基本操作实验成绩实验者朱明专业班级自动化0808班组别01同组者无实验日期2010 年4 月22 日一部分：实验预习报告（包括实验目的、意义，实验基本原理与方法，主要仪器设备及耗材，实验方案与技术路线等）1、实验的目的和意义1）了解VB可视化编程的基本概念（对象的属性、事件和方法）；2）熟悉VB可视化编程的环境（集成开发环境、控件工具箱、工程窗口、属性窗口、窗体设计器、代码窗口、立即窗口、窗体布局窗口）；3）熟练掌握VB可视化编程的步骤（新建一个工程、添加控件、设置属性、编写代码、运行工程、修改工程、保存工程的编译)；4）熟悉控件的基本操作和控件的画法(在窗体上画一个控件、控件的缩放和移动、控件的复制与删除、控件的布局）。

2、实验的基本内容1）运行窗体时，显示出“欢迎您来到xxx的VB世界! ”；2）要求在“xxx”处添加自己的班级学号和姓名；3）实现显示、隐藏图片和标语的功能。

3、实验仪器设备及耗材计算机一台；打印机及耗材4、实验方案和技术路线（1）分析应用程序需要实现的功能，绘制TOE表：（2）绘制界面草图：（3）编写各控件的程序代码；（4）程序调试和排错；（5）运行结果分析。

程序要实现的功能：点击按钮，实现相应功能，显示“欢迎您来到xxx的VB世界! ”其中，TOE表和界面草图分别为：TOE表任务对象事件显示信息Command1 单击退出Command2 单击以对象为主线界面草图第二部分：实验过程记录（可加页）（包括实验原始数据记录，实验现象记录，实验过程发现的问题等）1、程序代码Private Sub Command1_Click()Label1.Caption = "欢迎来到自动化0808班朱明的VB世界！"End SubPrivate Sub Command2_Click()EndEnd Sub2、实验结果（界面运行结果截图）主界面：3、实验过程中出现的问题1、当使用print命令时，按钮点击多少次，语句就会重复出现多少次？解决办法：使用Label控件，Label1.Caption = "欢迎来到自动化0808班朱明的VB世界！"2、在加入背景图片后，若将窗口最大化，而图片却局限在某个角落，不能同时最大化？解决办法：图像控件的属性没设好，应该把图像控件的stretch 属性设为true 。

vb综合性实验报告

综合性实验实验名称：高中成绩管理系统专业班级：电子商务110 4 学生姓名：学号：指导教师：李琳1需求分析程序对谕入的学生基本情况建立数据.库，且拥有对新谕入的学生的基本情况进行添加.对己有数据库中的数据进行删减、修改、管理、洌览的功能。

2运行环境WINDOWS XPM统：VB6 . 0 :2开发工具和编程语言V isual Basi c 6. 0 语言；4系统设计Fo rml的代码：Dim ask As I n tegerP r i v a t e Sub C omman d l^ClickQAdodc 1 .R e c o rdset M oveFirs tEnd SubPriv a te S u b Com m a n d 1 0 _Clic k ()F orm2.Sho wEnd SubPri v at e Sub C omman d 1 1_C 1 I ck <)Textl o Text = ,,,fT ext 2 o Tex t =八"Text 3.T ext 二””Text4.Te x t = |F n丁ext 5 ° Text = M”T e x 16 .TextText? • T e xt =…Texts. TextE n d Su bPi 1 vate Sub Command2_C lickQAdodcl.Reco r d s et.・ Mo v ePrevi o usIf Adodcl o Re c o rd s e t r BOF Then Adodcl.R e cords e t.Move First End SubPri v ate Sub Command 3 _Clic k〔〉Adodcl o Rec or d set.Mo v e N e xtIf Ad o d cl.R e cordset > EOF The n Adodcl. Re cord set. M o v Last End SubPrivat e Sub C o mm an d4 Cl i c k ()Adodcl « R e co r dsetc Mo v eLas tEndSu bPn v ate S Li b Corrimand5_C 1 i c k Q ^Adodcl. R e cor d s et 0 Ad d N e w End SubP riva t e S u b C ommarid6 Cli c k()a s k = M s gBox ( '■删除否？解CK对话框出现Yes 、No 按钮I f ask = 6 TlieiiMs g Box 对话框中Yes 按钮&Adod c 1 .Recordset.Delete方法3 Adodc 1 .Re c ordset.Mov e Ne x t ;移动记录指针刷新显示屏 Q I f Adod cl. Re cordsct ・ E OF Then Adod c 1。

VB综合实验报告

一、需求分析该程序用于图书信息的管理，可以对图书信息进行添加、更改和查询操作二、运行环境WINDOWS XP系统；VB6.0环境三、开发工具和编程语言Visual Basic 6.0开发环境和Visual Basic语言四、系统设计（1）程序的组织结构（包括窗体、模块及其功能）。

该系统共包括两个窗体（form1,form2）和一个标准模块（module1）。

窗体1是主窗体，用于图书信息的添加，修改和显示，窗体2是查询窗口，用于指定信息的同类图书查询，标准模块用于建立自定义类型变量用来存放每本图书的信息。

（2）然后针对每个窗体（模块）详细描述设计思路。

①标准模块用于定义存放图书信息的变量，下面是系统中标准模块的代码：Type booktypenumber As String * 6name As String * 10sort As String * 4language As String * 1state As String * 1End TypePublic book As booktype②窗体1中设计了一个菜单栏用于备份图书信息文件（copy）、启动查询窗口（query）和退出系统（exit）；窗体左侧设计了两个文本框（text1,text2）、一个列表框（combo1）和两组单选按钮（option1—option4）用于录入图书信息，中间的部分设计了一个文本框（text3）和四个按键（command1—command4）用于向文件中添加图书信息或显示、更改指定编号的信息；窗体的右侧显示了当前文件中存放的信息数目和为方便逐条查看图书信息设计的四个按键（command5—command8）。

下面是系统中窗体1部分的代码：装入窗体时的代码：Private Sub Form_Load()Open App.Path & "\book.dat" For Random As #1 Len = Len(book)Label6.Caption = LOF(1) / Len(book)Close #1Form1.Move (Screen.Width - Form1.Width) / 2, (Screen.Height - Form1.Height) / 2End Sub实现菜单功能的代码：Private Sub copy_Click()Open App.Path & "\book.dat" For Random As #1 Len = Len(book)Open App.Path & "\bookcopy.dat" For Random As #2 Len = Len(book) record_no = 1Do While Not EOF(1)Get #1, record_no, bookPut #2, record_no, bookrecord_no = record_no + 1LoopClose #1Close #2End SubPrivate Sub query_Click()Form1.HideForm2.ShowEnd SubPrivate Sub exit_Click()EndEnd Sub八个功能按键时的代码：Private Sub Command1_Click()If Val(Text3.Text) > Val(Label6.Caption) ThenMsgBox "输入的数据有误", 48, "警告"ElseOpen App.Path & "\book.dat" For Random As #1 Len = Len(book)record_no = Val(Text3.Text)Get #1, record_no, bookText1.Text = book.numberText2.Text = If Trim(nguage) = "1" ThenOption1.Value = TrueElseOption2.Value = TrueEnd IfIf Trim(book.state) = "1" ThenOption3.Value = TrueElseOption4.Value = TrueEnd IfCombo1.Text = book.sortClose #1End IfEnd SubPrivate Sub Command2_Click()record_no = Val(Text3.Text)With book.number = Text1.Text.name = Text2.Text.sort = Combo1.Text.language = IIf(Option1.Value, "1", "0").state = IIf(Option3.Value, "1", "0")End WithOpen App.Path & "\book.dat" For Random As #1 Len = Len(book) Put #1, record_no, bookClose #1End SubPrivate Sub Command3_Click()Text1.Text = ""Text2.Text = ""Text3.Text = ""Combo1.Text = ""Option1.Value = FalseOption2.Value = FalseOption3.Value = FalseOption4.Value = FalseEnd SubPrivate Sub Command4_Click()With book.number = Text1.Text.name = Text2.Text.sort = Combo1.Text.language = IIf(Option1.Value, "1", "0").state = IIf(Option3.Value, "1", "0")End WithOpen App.Path & "\book.dat" For Random As #1 Len = Len(book) record_no = LOF(1) / Len(book) + 1Label6.Caption = record_noPut #1, record_no, bookClose #1End SubPrivate Sub Command5_Click()Open App.Path & "\book.dat" For Random As #1 Len = Len(book) record_no = 1Text3.Text = record_noGet #1, record_no, bookText1.Text = book.numberText2.Text = Combo1.Text = book.sortIf nguage = "1" ThenOption1.Value = TrueElseOption2.Value = TrueEnd IfIf book.state = "1" ThenOption3.Value = TrueElseOption4.Value = TrueEnd IfClose #1End SubPrivate Sub Command6_Click()Open App.Path & "\book.dat" For Random As #1 Len = Len(book) record_no = Val(Text3.Text) - 1If record_no = 0 ThenMsgBox "当前记录为第一条记录", 64, "提示"record_no = 1End IfText3.Text = record_noGet #1, record_no, bookText1.Text = book.numberText2.Text = Combo1.Text = book.sortIf nguage = "1" ThenOption1.Value = TrueElseOption2.Value = TrueEnd IfIf book.state = "1" ThenOption3.Value = TrueElseOption4.Value = TrueEnd IfClose #1End SubPrivate Sub Command7_Click()Open App.Path & "\book.dat" For Random As #1 Len = Len(book) record_no = Val(Text3.Text) + 1If record_no > LOF(1) / Len(book) ThenMsgBox "当前记录为最后一条记录", 64, "提示"record_no = LOF(1) / Len(book)End IfText3.Text = record_noGet #1, record_no, bookText1.Text = book.numberText2.Text = Combo1.Text = book.sortIf nguage = "1" ThenOption1.Value = TrueElseOption2.Value = TrueEnd IfIf book.state = "1" ThenOption3.Value = TrueElseOption4.Value = TrueEnd IfClose #1End SubPrivate Sub Command8_Click()Open App.Path & "\book.dat" For Random As #1 Len = Len(book) record_no = LOF(1) / Len(book)Text3.Text = record_noGet #1, record_no, bookText1.Text = book.numberText2.Text = Combo1.Text = book.sortIf nguage = "1" ThenOption1.Value = TrueElseOption2.Value = TrueEnd IfIf book.state = "1" ThenOption3.Value = TrueElseOption4.Value = TrueEnd IfClose #1End Sub③窗体2是指定图书信息查询窗体，共设计了一个列表框（combo1）和一个文本框（text1）用于指定查找的图书信息，两个功能按键（command1,command2）用于确定查找信息和退出查询窗体，一个图片框（picture1）用来显示查找到的信息。

vb程序实验报告

vb程序实验报告VB 程序实验报告一、实验目的通过本次实验，深入了解和掌握 Visual Basic（VB）程序设计的基本概念、语法和编程技巧，提高解决实际问题的能力，培养逻辑思维和创新能力。

二、实验环境操作系统：Windows 10开发工具：Microsoft Visual Basic 60三、实验内容本次实验主要包括以下几个方面的内容：1、界面设计使用 VB 的窗体设计器，创建一个简单的用户界面，包含文本框、按钮、标签等控件，并设置其属性，如字体、颜色、大小等，以实现美观和友好的用户交互。

2、变量与数据类型在程序中声明不同类型的变量，如整数型（Integer）、字符串型（String）、布尔型（Boolean）等，并进行赋值和运算操作，理解不同数据类型的特点和适用场景。

3、控制结构运用顺序结构、选择结构（IfThenElse、Select Case）和循环结构（ForNext、WhileWend）编写程序，实现条件判断和重复执行的功能，例如计算阶乘、判断素数、打印九九乘法表等。

4、数组与过程定义数组来存储和处理大量的数据，掌握数组的声明、初始化和遍历操作。

同时，学习使用过程（Sub 过程和 Function 过程）来封装可重复使用的代码块，提高程序的可读性和可维护性。

5、文件操作实现对文本文件的读写操作，包括创建文件、写入数据、读取数据和关闭文件，了解文件处理在实际应用中的重要性。

四、实验步骤1、界面设计（1）打开 Microsoft Visual Basic 60，新建一个标准 EXE 工程。

（2）在窗体上添加所需的控件，如文本框 Text1、Text2，命令按钮 Command1、Command2，标签 Label1 等。

（3）通过属性窗口设置各个控件的属性，如 Text1 的 Text 属性为空，Command1 的 Caption 属性为“计算”，Label1 的 Caption 属性为“结果：”等。

VB实验报告格式

VB实验报告格式1.实验目的本实验旨在通过编写VB程序来熟悉VB的基本语法和应用，加深对VB的理解，并实践运用对话框、输入输出、控制流程等基本知识。

2.实验环境本实验使用的开发环境是Visual Studio。

VB是Visual Basic的简称，是一种用于Windows操作系统的事件驱动编程语言。

它以易学易用和可视化设计为特点，广泛用于Windows客户端应用程序开发。

3.实验内容及步骤本次实验的主要内容是开发一个简单的计算器程序，实现基本的数学运算和功能。

步骤如下：步骤一：创建一个新的VB项目，选择Windows Forms应用程序模板。

步骤二：通过拖放控件的方式在窗体上创建计算器的界面，包括数字按钮、运算符按钮和显示框等。

步骤三：为每个按钮的Click事件添加对应的处理函数，实现按钮点击后的相应操作，如数字按钮的输入、运算符按钮的操作、等号按钮的计算等。

步骤四：编写计算逻辑函数，将用户输入的表达式进行计算，并返回结果。

步骤五：在界面上显示计算结果。

4.实验思考在实验过程中，我遇到了一些问题，并进行了一些思考。

首先，我发现在进行运算时，用户可能会输入错误的表达式，如除数为零、表达式不完整、运算符错误等。

为了提高程序的容错能力，我在进行运算前添加了一些检测，如判断是否为零除法、判断表达式是否合法等。

其次，我也思考了如何将程序的功能和用户交互进行优化。

在这个计算器程序中，我添加了一些便捷的操作，如点击清零按钮可以清空当前表达式，点击删除按钮可以删除一个字符等。

5.实验结果经过编写代码和调试运行，我成功地实现了一个简单的计算器程序。

用户可以通过点击界面上的按钮输入表达式，然后点击等号按钮进行计算，最后显示计算结果。

6.实验总结通过本次实验，我更加深入地了解了VB语言的基本语法和应用。

通过实践编写了一个计算器程序，不仅加深了对VB的理解，还提高了编程能力和解决问题的能力。

同时，本次实验也让我体会到了软件开发的过程，包括需求分析、设计、开发和测试等。

vb实验报告3

min = List1.List(0)
For i = 1 To List1.ListCount - 1
If min > List1.List(i) Then min = List1.List(i): j = i
Next i
List1.RemoveItem j
End Sub
Private Sub随机产生_Click()
If min > List1.List(i) Then min = List1.List(i): n = i
ave = ave + List1.List(i)
Next i
Form2.Text1 = List1.List(n)
Form2.Text2 = List1.List(m)
Form2.Text3 = Format(ave / List1.ListCount, "0.00")
CommonDialog1.ShowOpen
i = Shell("C:\WINDOWS\NOTEPAD.exe " + CommonDialog1.FileName, vbNormalFocus)
End Sub
2.源代码如下
Private Sub结束_Click()
End
End Sub
Private Sub删除最大值_Click()
Form2.Show
End Sub
3.源代码如下：
Private Sub experimentG2_Click()
Form2.Show
End Sub
Private Sub experimentG3_Click()
Form3.Show
End Sub

VB实验报告

软件技术实验指导实验一：名称：VB的感性认识实验要求：1）在屏幕上开辟一个窗口（文本框），窗口的上部放置一个标签，标签中显示：“欢迎使用Visual Basic6.0中文版”。

窗口的下部有三个按钮，左边按钮中标有“开始显示”，中间按钮中标有“清屏”，右边按钮中标有“结束”。

当鼠标单击左边按钮时，文本框中显示“欲穷千里目，更上一层楼！”如果单击中间按钮，则清除文本框中显示的内容，单击右边按钮则程序结束。

2）单击“清屏”后，让光标出现在文本框中，此时往文本框中输入若干文字，例如“您好”，然后单击窗体，使得在窗体的指定位置上显示在文本框中输入的文字。

3）如果将1）中单击左边按钮后文本框中显示的“欲穷千里目，更上一层楼！”改为“白日依山尽，黄河入海流，欲穷千里目，更上一层楼！”此时文本框在一行中将显示不下所有文本，请试调整该文本框的“Multiline”属性，并将文本框纵向距离调整到可容纳两行以上文字。

此时再次执行程序，观察执行结果所发生的变化。

实验设计知识点：文本框的双向作用（即输入与输出）；窗体的双重作用（容器与输出）；事件过程的编写；输入输出的简单实现；窗体、文本框、标签、命令按钮等基本控件的常用属性的动、静态设置等。

(只为工大人民准备的) 附加内容：建立我的工具箱：该程序用于对Windows中的常用工具例如记事本、画图板等等进行方便的管理。

程序使用者只需单击界面上的相应图标按钮，就可以启动相应的Windows程序。

实验步骤：1）在窗体中央放入四个命令按钮，并选中4个按钮控件令其全部处于激活状态，单击“格式”菜单，选择“统一尺寸”子菜单下的“两者都相同”选项，可使所有被选中的按钮的外观尺寸统一；2）分别修改4个按钮的Caption属性分别为：记事本，画图板、写字板和媒体播放，并且将四个按钮的Style属性值取为Graphical属性以便在按钮控件上可以添加小图标和设置背景颜色。

在图标库中给四个按钮选择放入合适的小图标。

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实验报告实验一

vb实验报告实验一
实验一：VB实验报告
实验目的：通过VB编程实现简单的计算器功能，加深对VB语言的理解和掌握。

实验内容：
1. 设计计算器界面，包括数字按钮、运算符按钮和等号按钮。

2. 实现数字按钮的点击事件，将点击的数字显示在计算器界面上。

3. 实现运算符按钮的点击事件，将点击的运算符保存下来。

4. 实现等号按钮的点击事件，根据保存的运算符进行相应的计算，并将结果显
示在计算器界面上。

实验步骤：
1. 打开VB开发环境，创建一个新的Windows窗体应用程序项目。

2. 在窗体上设计计算器界面，包括数字按钮、运算符按钮和等号按钮。

3. 编写VB代码，实现数字按钮和运算符按钮的点击事件，将点击的数字或运
算符保存下来。

4. 编写VB代码，实现等号按钮的点击事件，根据保存的运算符进行相应的计算，并将结果显示在计算器界面上。

实验结果：
经过实验，成功实现了一个简单的计算器功能。

用户可以通过点击数字按钮输
入数字，点击运算符按钮选择运算符，点击等号按钮进行计算，最终得到正确
的计算结果。

实验总结：
通过本次实验，我进一步掌握了VB语言的编程技巧，对VB编程有了更深入的
理解。

通过实际操作，我对计算器功能的实现有了更清晰的认识，为以后的VB 编程打下了良好的基础。

希望通过不断的实践和学习，能够更加熟练地运用VB 语言，实现更多更复杂的功能。

vb综合上机实验报告

实验报告实验课程名称实验项目名称年级班级学生姓名学号学院：实验时间：年月日◆实验相关信息实习主题VB综合教程实验时间学年学期周学生姓名学号班级实验地点设备号指导教师◆界面及源代码主界面Private Sub Form_Load()End SubPrivate Sub no1_Click()Form2.ShowEnd SubPrivate Sub no2_Click()Form3.ShowEnd SubPrivate Sub no3_Click()Form4.ShowEnd SubPrivate Sub no4_Click()Form5.ShowEnd SubPrivate Sub no5_Click()Form6.ShowEnd SubPrivate Sub no6_Click()Form7.ShowEnd SubPrivate Sub no7_Click()Form8.ShowEnd SubPrivate Sub no8_Click()Form9.ShowEnd SubPrivate Sub no9_click()Form10.ShowEnd SubPrivate Sub no10_Click()Form11.ShowEnd SubPrivate Sub no11_Click()Form12.ShowEnd SubPrivate Sub no12_Click()Form13.ShowEnd SubPrivate Sub no13_Click()Form14.ShowEnd SubPrivate Sub no14_Click()Form15.ShowEnd SubPrivate Sub no15_Click()Form16.ShowEnd Sub一、基础题1.编程实现在包含10个元素的一维数组中寻找前n（n<=10）个元素中的最大数及位置，在文本框中显示出来。

界面（一，1）Private Sub Command1_Click()Dim N As Integer, k As Integer, a(1 To 10) As IntegerN = 1k = 1Max = 0If N >= 2 ThenN = Val(InputBox("请输入n的值", N))End IfFor i = 1 To 10a(i) = Int(Rnd * 100)Print a(i);If a(i) > Max ThenMax = a(i)k = iEnd IfNext iLabel1.Caption = "最大值: " & "第" & k & "个"End Sub2.求出10000以内的所有完数，并显示在窗体上。

vb实验总结通用模板(热门9篇)

vb实验总结通用模板第1篇一个月的时间非常快就过去了，这一个月我不敢说自己有多大的进步，获得了多少知识，但起码是了解了项目开发的部分过程。

虽说上过数据库相关的课程，但是没有亲身经历过相关的设计工作细节。

这次课程设计给我提供了一个很好的机会。

通过这次课程设计发现这其中需要的很多知识我们没有接触过，上网查找资料的时候发现我们以前所学到的仅仅是皮毛，还有很多需要我们掌握的东西我们根本不知道。

同时也发现有很多已经学过的东西我们没有理解到位，不能灵活运用于实际，不能很好的用来解决问题，这就需要自己不断的大量的实践，通过不断的自学，不断地发现问题，思考问题，进而解决问题。

在这个过程中我们将深刻理解所学知识，同时也可以学到不少很实用的东西。

这次的数据库课程设计，我们组负责的企业信息文档管理系统的设计。

这课题是自拟的。

我们组实行的分工合作。

我主要是负责数据库功能模块设计这部分。

从各种文档的阅读到需求分析、概要设计、数据库总体设计、代码编写与调试，我们都准备了好长时间。

组内分工合作的整个过程，我亲身体验了一回系统的设计开发过程，分工合作的好处。

很多东西书上写的很清楚，貌似看着也很简单，思路非常清晰。

但真正需要自己想办法去设计一个系统的时候才发现其中的难度。

经常做到后面突然就发现自己一开始的设计有问题，然后又回去翻工，在各种反复中不断完善自己的想法我想有这样的问题不止我一个，事后想想是一开始着手做的时候下手过于轻快，或者说是根本不了解自己要做的这个系统是给谁用的。

因为没有事先做过仔细的用户调查，不知道整个业务的流程，也不知道用户需要什么功能就忙着开发，这是作为设计开发人员需要特别警惕避免的，不然会给后来的工作带来很大的麻烦，甚至可能会需要全盘推倒重来。

所以以后的课程设计要特别注意这一块的设计。

经过组内讨论，我们确定的课题是企业信息文档管理系统。

说实话，我对这个系统不是很了解。

通过上网查找资料、相关文献的阅读，我对该系统有了大体的了解。

大一vb的实验报告

大一vb的实验报告一、实验目的掌握VB语言的基础知识和编程技巧，并通过实践掌握VB的常用控件和事件处理方法。

二、实验材料1.计算机2.VB开发环境三、实验步骤1.搭建VB开发环境在计算机上安装VB开发环境，并进行必要的配置。

2.创建一个新的VB项目打开VB开发环境，点击“新建项目”按钮，选择“Windows桌面应用程序”模板，填写项目名称并确定。

3.设计用户界面在VB的设计器中，拖动控件到窗体上，设置其属性，并进行布局设计。

4.添加事件处理程序对每个控件添加相应的事件处理程序，以实现交互功能。

例如，对于按钮控件，可以添加点击事件的处理程序。

5.编写VB代码在VB的代码编辑器中，编写处理事件的代码，以实现所需的功能。

可以使用VB的基础语法、分支结构、循环结构等。

6.调试与运行对代码进行调试，确保程序运行没有错误，然后点击运行按钮，查看程序的运行效果。

四、实验结果通过以上步骤，成功实现了一个基础的VB程序，具备一定的交互功能和相应的逻辑处理。

五、实验总结通过本次实验，我学会了如何搭建VB开发环境，编写VB代码，设计用户界面，以及添加事件处理程序。

这些都是VB编程的基础知识和技能，对于以后的学习和应用都具有重要的意义。

通过不断的实践和探索，我相信自己能够在VB编程方面有更深入的理解和应用。

六、实验心得本次实验对我来说是一次很好的学习机会。

通过亲自动手实践，我加深了对VB语言和开发环境的了解，对于如何设计用户界面和编写代码也有了一定的经验。

实验过程中，我遇到了不少问题，但通过查阅资料和请教同学，我一一解决了这些问题。

实验不仅让我学到了知识，还培养了我的动手能力和解决问题的能力。

我会继续努力学习，提升自己的编程水平。

vb实验报告三

vb实验报告三VB实验报告三引言：VB（Visual Basic）是一种基于事件驱动的编程语言，广泛应用于Windows操作系统上的软件开发中。

本篇实验报告将详细介绍我在VB实验三中的实验过程、结果和分析。

实验目的：本次实验旨在通过VB编程实现一个简单的学生信息管理系统。

通过该系统，能够实现学生信息的录入、查询、修改和删除等功能，并将数据存储在数据库中。

实验步骤：1. 设计数据库结构：在实验前，首先需要设计数据库的表结构。

我选择了三个字段：学生姓名、学生年龄和学生性别。

2. 创建VB窗体：打开VB开发环境，创建一个新的窗体。

在窗体上设计相应的控件，如文本框、按钮和标签等，以实现学生信息的录入和操作。

3. 连接数据库：使用VB提供的ADO（ActiveX Data Objects）技术，连接到事先创建的数据库。

通过VB代码，建立与数据库的连接，并打开数据库。

4. 实现数据录入功能：在VB窗体上添加文本框和按钮，通过编写相应的事件处理程序，实现学生信息的录入功能。

当用户在文本框中输入完整的学生信息后，点击按钮即可将数据保存到数据库中。

5. 实现数据查询功能：在VB窗体上添加查询按钮和文本框，通过编写事件处理程序，实现学生信息的查询功能。

用户可以在文本框中输入学生姓名或其他关键词，点击查询按钮后，系统将从数据库中检索相关数据，并显示在窗体上。

6. 实现数据修改和删除功能：在VB窗体上添加修改和删除按钮，通过编写事件处理程序，实现学生信息的修改和删除功能。

用户可以选择要修改或删除的学生信息，并点击相应按钮进行操作。

实验结果：经过以上步骤的实现，我成功地完成了学生信息管理系统的开发。

通过运行程序，我可以在VB窗体上录入学生信息，并实现查询、修改和删除等操作。

数据能够准确地保存到数据库中，并能够根据用户的需求进行相应的操作。

实验分析：通过本次实验，我深入了解了VB编程语言和数据库的应用。

VB作为一种简单易学的编程语言，具有良好的可视化编程环境，使得开发者能够快速实现各种功能。

VB实验报告(含答案)

实验报告课程名称_程序设计基础Visual Basic_ 班级______ _____＿姓名_____ ____实验一 VB环境和创建一个简单的VB程序一．实验目的：1.了解VB系统对计算机软件、硬件的要求。

2.掌握启动和退出VB的方法。

3.了解和使用VB集成开发环境各窗口、菜单的一般功能。

4.熟悉建立、编辑、运行、保存一个简单的VB应用程序的全过程。

5.了解文本框、标签框、命令按钮的构造及其属性、事件和方法。

二．实验内容：1．设计一个简单的应用程序，要求在窗体上画一个文本框、一个标签和两个命令按钮编一程序，并把命令按钮分别设置为”显示”和”清除”。

程序运行后，单击”显示”按钮，在文本框中输出一行信息；单击”清除”按钮，则清除文本框中的内容，运行界面如图1.1所示。

图1.1 实验1-1 运行界面三．实验结果：对象属性设置对象属性属性值说明caption 我的第一个vb程序窗体Form1caption 请输入姓名标签Label1text ““文本框Text1caption 显示命令按钮Command1caption 清除命令按钮Command2四．实验思考：1.标签label控件设置的属性代码有哪些？Label1.Caption=“请输入姓名”Label1.fontsize=24Label1.fontbold=True2.两个按钮所使用的是什么事件？代码分别是什么？Private Sub Command1_Click()Text1.text=“姓名”实验二简单程序设计数据类型及常用内部函数的简单应用一．实验目的：1．掌握Visual Basic数据类型的基本概念。

2．掌握用Visual Basic的各种运算符及表达式。

3．学习使用Visual Basic内部函数和数据输入、输出方法。

4．掌握命令按钮、文本框和标签。

5．设计顺序程序。

二．实验内容：1．编写一个华氏温度和摄氏温度之间的转换程序，如图2-2所示,要求用inputbox函数输入华氏温度，用msgbox输出转换后的摄氏温度。

大一vb的实验报告

大一vb的实验报告篇一：VB实验报告一、实验目的和要求1、掌握正确书写表达式、赋值语句的规则。

2、掌握InputBox与MsgBox的使用。

3、掌握Print方法和Format格式使用。

4、掌握单分支与双分支条件语句的使用。

5、掌握多分支条件语句的使用。

6、掌握For语句和Do语句的各种形式的使用。

7、掌握如何控制循环条件，防止死循环和不循环。

二、实验内容和原理1、输入半径，计算圆周长和圆面积。

为了保证程序运行的正确，对输入半径要进行合法性检查，数据检查调用IsNumeric函数；若有错，利用MsgBox显示错误信息，通过SetFocus方法定位于出错的文本框处，重新输入；计算结果保留两位小数。

提示：使用Text1_KeyPress事件，按Enter键，返回参数“KeyAscii”的值为13表示输入结束。

2、随机产生三个整数，按从小到大的顺序显示。

3、计算π的近似值，π的计算公式为：?2n?224262π=2×××…× 2n-1?2n+11?33?55?7 注意：①、分别显示当n=10、100、1000时的结果，由此可见，此计算公式收敛如何？②、要防止大数相乘时结果溢出的问题，将变量类型改为长整型或实数型。

三、主要仪器设备计算机四、实验结果与分析实验界面：1、输入半径，计算圆周长和圆面积。

程序：Private Sub Form_ActivateText1.Text = "输入半径值"Text1.SetFocusText1.SelStart = 0Text1.SelLength = Len(Text1.Text)End SubPrivate Sub Text1_KeyPress(KeyAscii As Integer) '圆面积，周长Dim rr = Text1.TextConst PI = 3.14159If KeyAscii = 13 ThenClsIf IsNumeric(r) ThenPrint "当圆的半径为"; r; "时："Print "圆面积为："; Format(PI * r ^ 2, "0.00") Print "圆面积为"; Format(PI * r ^ 2, "0.00")ElseText1 = "半径值输入有误"End IfText1.SetFocusText1.SelStart = 0Text1.SelLength = Len(Text1.Text)ElseEnd IfEnd Sub运行结果：输入值:22、随机产生三个整数，按从小到大的顺序显示。

vb综合性设计实验报告

综合性实验实验名称:用v b编写简单计算器专业班级: 土木工程0901班学生姓名：***学号：*********指导教师：***1 需求分析该计算器程序是在Visual Basic6.0环境下编写，编写完成后在Windows xp下运行，通过初步测试，发现该计算程序能完成整数的加，减，乘，除四种运算。

通过在虚拟键盘上用鼠标点击输入第一个数，然后点击运算符，再输入第二个数，最后点击“=”就会在计算器上方的文本框中输出结果，清空文本框进行下次运算。

经过仔细测试发现，该计算器最高支持五位整数的运算，在除法运算中能精确到小数点后14位。

2 运行环境WINDOWS XP系统；VB6.0；3开发工具和编程语言开发工具：Visual Basic6.0“微型整值计算器”程序编写代码：Dim op1 As IntegerDim op2 As IntegerDim operator As StringPrivate Sub Command1_Click()Text1.Text = Text1.Text &"1"End SubPrivate Sub Command2_Click()Text1.Text = Text1.Text &"2"End SubPrivate Sub Command3_Click()Text1.Text = Text1.Text & "3"End SubPrivate Sub Command4_Click() Text1.Text = Text1.Text & "4"End SubPrivate Sub Command5_Click() Text1.Text = Text1.Text & "5"End SubPrivate Sub Command6_Click() Text1.Text = Text1.Text & "6"End SubPrivate Sub Command7_Click() Text1.Text = Text1.Text & "7"End SubPrivate Sub Command8_Click() Text1.Text = Text1.Text & "8"End SubPrivate Sub Command9_Click() Text1.Text = Text1.Text & "9"End SubPrivate Sub Command11_Click() Text1.Text = Text1.Text & "0"End SubPrivate Sub Command10_Click() op1 = Val(Text1.Text)operator = "+"Text1.Text = ""End SubPrivate Sub Command12_Click() op1 = Val(Text1.Text)operator = "-"Text1.Text = ""End SubPrivate Sub Command13_Click() op1 = Val(Text1.Text)operator = "*"Text1.Text = ""End SubPrivate Sub Command14_Click() op1 = Val(Text1.Text)operator = "/"Text1.Text = ""End SubPrivate Sub Command15_Click() op2 = Val(Text1.Text)If operator = "+" ThenText1.Text = op1 + op2 ElseIf operator = "-" ThenText1.Text = op1 - op2ElseIf operator = "*" ThenText1.Text = op1 *op2ElseIf operator = "/"ThenText1.Text = op1 /op2End IfEnd Sub4 系统设计（1）程序的组织结构（包括窗体、模块及其功能）。