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实验报告总结实验报告课程名称程序设计语言实验学期至学年第学期学生所在系部年级班级学生姓名学号任课教师实验成绩计算机学院制计算机学院综合性实验报告《程序设计语言》课程综合性实验报告编号：2011－2012学年第二学期实验报告实验课程名称VB程序设计基础与VBA应用专业班级学号学生姓名实验指导老师浙江大学城市学院实验报告课程名称 VB程序设计基础与实验实验项目名称实验十、上机综合练习学生姓名专业班级学号实验成绩指导老师日期一. 实验目的和要求掌握基本设计程序的能力，能使用条件语句、循环语句和数组解决一般的数据处理及应用问题；掌握常用算法。

二. 实验内容和原理从键盘输入两个正整数，判定其中一个是否能整除另一个；Private Sub Form_ClickDim a As Integer, b As Integera = Val)b = Val)If a Mod b = 0 Or b Mod a = 0 Then Print "能整除" Else Print "不能整除" End Sub从键盘输入n，计算s=1-5+9-13+17-…+的值；Private Sub Form_ClickDim n As Integer, flag As Integer, i As Integer, s As Integern = Val)flag = 1: s = 0For i = 1 To 4 * n + 1 Step 4s = s + i * flagflag = -flagNext iPrint sEnd Sub产生30个两位随机整数、并按从小到大的顺序存入数组a中，再将其中的奇数按从小到大的顺序在窗体中用紧凑格式输出；Private Sub Form_ClickDim a As byte, i as Byte, j As Byte, m As Byte For i = 1 To 30: a = ⑴ : Next iFor i = 1 To 29For j = ⑵If a > a Thenm = a: ⑶ :a = mEnd IfNext j,iFor i = 1 To 30If ⑷ Then Print a;Next iEnd SubPrivate Sub Form_ClickDim a As Integer, i As Integer, j As Integer, m As IntegerPrint "排序前："For i = 1 To 30a = Int) + 10Print a;If i Mod 10 = 0 Then Print Next iFor i = 1 To 29For j = i + 1 To 30If a > a Thenm = a: a = a: a = mEnd IfNext jNext iPrint "排序后："For i = 1 To 30Print a;If i Mod 10 = 0 Then Print Next iPrint "其中的奇数："For i = 1 To 30If a Mod 2 = 1 Then Print a; Next i求二维数组a中的最大值以及最大值所在的行号和列号，行数m、列数n及数组元素从键盘输入；Private Sub Form_ClickDim a As Integer, m As Integer, n As Integer, i As Integer, j As IntegerDim x As Integer, y As Integer, Max As Integer m = Val)n = Val)ReDim aFor i = 1 To mFor j = 1 To na = InputBox") Print a;Next jPrintNext iMax = aFor i = 1 To mFor j = 1 To nIf Max Max = ax = iy = jNext jNext iPrintPrint "最大值为" & Max & "在第" & x & "行" & y & "列"End Sub产生k个互不相等的三位正整数。

学生学号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 。

一、需求分析该程序用于图书信息的管理，可以对图书信息进行添加、更改和查询操作二、运行环境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 程序实验报告一、实验目的通过本次实验，深入了解和掌握 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实验报告
实验目的：
1.掌握VB6.0的启动与退出
2.了解VB6.0的集成开发环境
3.了解VB6.0应用程序的开发过程，熟悉VB的三种工作模
式
4.理解VB中对象的概念
5.掌握窗体,标签,命令按钮和文本框的基本使用方法
6.了解用VB制作简单动画的过程
实验内容：
实验一：启动VB6.0，并创建一个“标准EXE”工程
实验二：所输代码及实验结果如下图：
实验三所输代码及实验结果如上图
实验四所输代码及实验结果如上图
实验五所输代码及实验结果如上图
实验小结：通过此次实验，我初步及了解了VB6.0的集成开发环境和工作模式,掌握了基本使用方法，希望以后能将学到的知识用于实践。

(此文档为word格式，下载后您可任意编辑修改！) 福建农林大学计算机与信息学院（程序设计类课程）实验报告课程名称：Visual Basic程序设计教程姓名：洪景泉系：计算机与信息学院专业：计算机应用技术年级：05级学号：指导教师：黄红兵职称：讲师2007年6月 2 日实验项目列表系：计算机与信息学院专业：计算机应用技术年级： 05级姓名：洪景泉学号：计算机号 67实验时间： 2007、3、28 实验地点：综南附307 指导教师签字：黄红兵实验一Visual Basic环境和程序设计的初步一、实验目的和要求1、了解Visual Basic系统对计算机软件、硬件的要求。

2、掌握启动与退出Visual Basic的方法。

3、熟悉Visual Basic的集成开发环境（IDE）。

4、掌握在窗体上添加控件的各种方法。

5、掌握建立、编辑、运行和保存一个简单的Visual Basic应用程序的全过程。

二、实验内容和原理1、熟悉工具箱上的标准控件以及窗体设计器和工程管理器窗口、属性窗口、代码窗口的功能、组成以及它们各种不同的打开方法。

2、在窗体上画一文本框个一个命令按钮，在文本框中显示“VB程序设计”，然后执行如下操作：（1）编写适当事件过程，当单击命令按钮时，文本框内容消失。

（2）单击“文件”—“生成工程”并退出。

在windows环境下运行该工程。

用户界面：实验代码：Private Sub Command1_Click()Text1.Text = ""End Sub3、创建一个“标准EXE”类型的应用程序。

要求：程序运行时在屏幕上显示“欢迎您的到来！”，并输入您的名字。

当按回车键时弹出对话框如下所示：用户界面：代码：Private Sub Text1_KeyPress(KeyAsciiAs Integer)If KeyAscii = 13 ThenMsgBox "欢迎" + Text1.Text + "的到来"End If End Sub4、创建如图所示的应用程序，要求：单击“确定”按钮后，第一个文本框显示系统日期，第二个文本框显示星期。

实验一：设计简单的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程序设计实验报告一、引言在计算机科学与技术领域中，程序设计是一项至关重要的技能。

Visual Basic （VB）作为一种强大的编程语言，被广泛应用于软件开发领域。

本实验报告旨在总结和分析我在VB程序设计实验中的学习和实践经验。

二、实验目的本次实验的主要目的是通过设计和实现一个简单的VB程序，加深对VB语言的理解和掌握。

通过这个实验，我将学习如何使用VB语言进行界面设计、事件处理和数据处理。

三、实验过程1. 界面设计在实验开始时，我首先进行了界面设计。

通过VB的可视化设计环境，我选择了合适的控件，布局了用户界面。

我使用了文本框、标签、按钮等控件，使用户能够输入数据并进行相应的操作。

2. 事件处理在界面设计完成后，我开始编写事件处理程序。

我为按钮添加了点击事件，当用户点击按钮时，程序会执行相应的操作。

例如，当用户点击“计算”按钮时，程序会读取用户输入的数据，并进行计算操作。

通过编写事件处理程序，我学会了如何响应用户的操作，并进行相应的逻辑处理。

3. 数据处理在实验中，我还学习了如何进行数据处理。

我使用了VB的变量和运算符，对用户输入的数据进行计算和处理。

通过编写算法和逻辑，我实现了对用户输入数据的验证和处理，确保程序能够正确运行。

四、实验结果经过一段时间的设计和调试，我成功完成了VB程序的实现。

我的程序可以根据用户输入的数据进行相应的计算，并将结果显示在界面上。

通过这个实验，我不仅巩固了VB语言的基础知识，还提高了自己的编程能力。

五、实验总结通过这次VB程序设计实验，我收获了很多。

首先，我学会了如何使用VB语言进行界面设计，掌握了一些常用的控件和布局方法。

其次，我学习了如何编写事件处理程序，响应用户的操作，并进行相应的逻辑处理。

最后，我还学习了如何进行数据处理，使用变量和运算符对数据进行计算和处理。

在实验过程中，我遇到了一些问题和挑战。

例如，我曾经遇到过界面布局不合理导致用户体验不佳的情况，但通过不断的调整和改进，最终解决了这个问题。

除数
标签
Label3
Caption
浮点数
标签
Label4
Caption
整除数
标签
Label5
Caption
余数除
标签
Command1
Caption
执行除法运算
命令按钮
四．实验思考：
1.温度转换中的Command1命令的单击事件的程序代码是什么？
Private Sub Command1_Click()
5.了解文本框、标签框、命令按钮的构造及其属性、事件和方法。
二．实验内容：
1．设计一个简单的应用程序，要求在窗体上画一个文本框、一个标签和两个命令按钮编一程序，并把命令按钮分别设置为”显示”和”清除”。程序运行后，单击”显示”按钮，在文本框中输出一行信息；单击”清除”按钮，则清除文本框中的内容，运行界面如图1.1所示。
For i = 1 To 10
If max < a(i) Then max = a(i)
If min > a(i) Then min = a(i)
avg = avg + a(i)
Next i
avg = avg / 10
图5-1窗体界面
三．实验结果：对象属性设置
对象
属性
属性值
说明
Label1
Caption
10个100到200之间的整数
标签
Label2
Caption
最大值
标签
Label3
Caption
最小值
标签
Label4
Caption
平均值
标签
Command1
Caption
计算
命令按钮

实验报告实验课程名称实验项目名称年级班级学生姓名学号学院：实验时间：年月日◆实验相关信息实习主题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）Ⅲ实验名称：常用控件、选择、循环和数组综合程序设计实验类型：验证性□ 综合性√设计性□实验室名称：班级：学号：姓名：组别：同组人：成绩：实验日期：实验报告撰写要求一、实验前用预习报告纸撰写预习报告，预习报告包括以下内容1．实验目的2．实验用仪器设备、器材或软件环境3．实验原理、方案设计、程序框图、预编程序等4．实验过程中需要记录的实验数据表格二、实验过程中，要认真观察，仔细记录三、完成实验后用实验报告纸撰写实验报告，包括以下内容1．仪器设备型号及编号2．实验器材或软件环境3．实验步骤、程序调试方法4．实验数据处理及结果分析5．实验中存在的问题6．体会及思考题四、报告撰写时，要求格式规范、书写整齐预习报告成绩：指导教师审核（签名）：年月日预习报告实验一一、实验目的学会综合运用常用控件进行程序设计的方法。

二、实验用仪器设备、器材、软件环境1、2、普通计算机3、VB三、实验内容设计一个能控制字体、字号、字形和速度的滚动字幕程序四、预编程序Const mLen = 100 '移动步长值Const mVMin = 500 '慢速Const mV = 250 '中速Const mVMax = 10 '快速Private Sub ChFonB_Click()Label1.FontBold = IIf(ChFonB.Value = 0, False, True)End SubPrivate Sub ChFonI_Click()Label1.FontItalic = IIf(ChFonI.Value = 0, False, True)End SubPrivate Sub ChFonU_Click()Label1.FontUnderline = IIf(ChFonU.Value = 0, False, True)End SubPrivate Sub Form_Load()'初始化Timer1.Interval = mVMinWith Label1.FontName = .FontSize = OpFonSizeMin.FontSizeEnd WithLabel1.Top = (Me.Height - Frame1(0).Height) / 3End SubPrivate Sub OpFonH_Click()Label1.FontName = Label1.Top = (Me.Height - Frame1(0).Height) / 3 End SubPrivate Sub OpFonK_Click()Label1.FontName = Label1.Top = (Me.Height - Frame1(0).Height) / 3End SubPrivate Sub OpFonS_Click()Label1.FontName = Label1.Top = (Me.Height - Frame1(0).Height) / 3End SubPrivate Sub OpFonSize_Click()Label1.FontSize = OpFonSize.FontSizeLabel1.Top = (Me.Height - Frame1(0).Height) / 3End SubPrivate Sub OpFonSizeMax_Click()Label1.FontSize = OpFonSizeMax.FontSizeLabel1.Top = (Me.Height - Frame1(0).Height) / 3End SubPrivate Sub OpFonSizeMin_Click()Label1.FontSize = OpFonSizeMin.FontSizeLabel1.Top = (Me.Height - Frame1(0).Height) / 3End SubPrivate Sub OpV_Click()Timer1.Interval = mVEnd SubPrivate Sub OpVMax_Click()Timer1.Interval = mVMaxEnd SubPrivate Sub OpVMin_Click()Timer1.Interval = mVMinEnd SubPrivate Sub Timer1_Timer()Label1.Left = Label1.Left + mLenIf Label1.Left >= Me.Width Then Label1.Left = -Label1.Width End Sub实验报告成绩：指导教师审核（签名）：年月日实验报告实验项目第一部分一、实验目的学会综合运用常用控件进行程序设计的方法。

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

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

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

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

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

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

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

这课题是自拟的。

我们组实行的分工合作。

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

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

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

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

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

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

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

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

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

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

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

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的实验报告篇一：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、随机产生三个整数，按从小到大的顺序显示。

综合性实验实验名称:用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）程序的组织结构（包括窗体、模块及其功能）。

一、实验目的1、掌握VB操作界面的各部分含义及操作方法2、熟练掌握窗体中对各个控件的属性设置及其功能和使用方法3、熟练掌握VB环境中基本语句（Print语句、赋值语句、Dim语句等）的使用4、掌握数据的动态输入InputBox和信息提示MsgBox5、掌握顺序结构程序设计方法6、熟练使用VB软件中正确书写方法及函数、运算符的正确使用二、实验要求通过对本学期VB的学习，按照自己想要设计的思路，也可以借鉴前人成果，设计一个小的VB程序，可以是小游戏，可以是解决一些实际问题的程序，等等。

三、实验主要仪器和设备计算机一台，Windows XP操作系统，V isual Basic环境以及所需要的一些硬件设施。

四、实验内容及思路设计一个简单的小游戏，设置4个命令按钮，单击控件按钮时，可以实现如下功能：1、随机出现在这4个命令按钮上一个图像2、若单击的按钮上正好是这个图像则说“猜对了！”，然后显示出这个图像3、若单击的按钮上没这个图像则说“猜错了!”,然后再正确的按钮上显示这个图像4、显示图像后，所有控件全部无法再改变五、实验步骤1、在窗体上设置相应的控件①6个命令按钮，1个文本框，且命令按钮必须为一个控件数组②将所选择的按钮按照合适的方向和位置排列③设置所输入控件的属性值及相应的所需要呈现的属性，如控件的caption，picture，enabled 等2、编写程序代码①编写控件的代码，单击所需编写代码的控件，出现代码编写窗体，根据软件编写规则及所需要编写的内容，将该控件的VB程序代码编写出来。

如此，将所有的控件代码编写出来②编写窗体代码，直接打开代码窗体，左边列表框是控件名，右边的是事件名，根据所需要的内容进行编写注意事项：打开所需要下载的图像及其他所需要使用的程序必须设定其正确的存储路径，更换地址将导致文件不存在。

六、实验截图七、实验总结通过学习VB 程序设计，让我们在除了C 语言以为可以用到的程序编写语言又多了一种。