vb上机实验报告
VB上机实验报告
一、引言
Visual Basic（VB）是一种面向对象的编程语言，广泛应用于软件开发领域。本
次实验旨在通过VB的上机实践，掌握VB的基本语法和应用技巧，提升编程能力。
二、实验内容
1. VB环境搭建：安装VB开发环境，并熟悉VB的开发界面和功能；
2. VB基本语法：学习VB的变量、数据类型、条件语句、循环结构等基本语法；
3. VB应用实例：实现一个简单的学生信息管理系统，包括学生信息录入、查询
和删除功能。
三、VB环境搭建
VB的开发环境可以通过官方网站下载并安装。安装完成后，打开VB开发界面，可以看到菜单栏、工具栏和代码编辑区等组成部分。熟悉这些界面元素，是进
行VB编程的基础。
四、VB基本语法
1. 变量与数据类型
在VB中，可以使用Dim语句声明变量，并指定其数据类型。常见的数据类型
有整数型（Integer）、浮点型（Single）、字符串型（String）等。例如，使用以
下语句声明一个整数型变量：
Dim num As Integer
2. 条件语句
条件语句用于根据条件的真假执行不同的代码块。在VB中，可以使用If语句和Select Case语句实现条件判断。例如，以下代码展示了使用If语句判断一个数的正负：
If num > 0 Then
MsgBox("该数为正数")
ElseIf num < 0 Then
MsgBox("该数为负数")
Else
MsgBox("该数为零")
End If
3. 循环结构
循环结构用于重复执行一段代码。在VB中，可以使用For循环和Do While循环等实现循环功能。例如，以下代码展示了使用For循环输出1到10的数字：For i = 1 To 10
MsgBox(i)
Next i
五、VB应用实例
本次实验要求实现一个学生信息管理系统，包括学生信息录入、查询和删除功能。以下是实现该功能的代码示例：
1. 学生信息录入
在VB的窗体中，添加文本框和按钮控件。当用户在文本框中输入学生信息，并点击“录入”按钮时，将学生信息保存到数据库中。以下是实现该功能的代码
片段：
Private Sub btnAdd_Click()
Dim name As String
Dim age As Integer
name = txtName.Text
age = CInt(txtAge.Text)
'将学生信息保存到数据库中
'...
MsgBox("学生信息录入成功！")
End Sub
2. 学生信息查询
在VB的窗体中，添加文本框和按钮控件。当用户在文本框中输入学生姓名，并点击“查询”按钮时，从数据库中查询该学生的信息，并显示在窗体中。以下是实现该功能的代码片段：
Private Sub btnSearch_Click()
Dim name As String
name = txtName.Text
'从数据库中查询学生信息
'...
'将查询结果显示在窗体中
'...
End Sub
3. 学生信息删除
在VB的窗体中，添加文本框和按钮控件。当用户在文本框中输入学生姓名，并点击“删除”按钮时，从数据库中删除该学生的信息。以下是实现该功能的代码片段：
Private Sub btnDelete_Click()
Dim name As String
name = txtName.Text
'从数据库中删除学生信息
'...
MsgBox("学生信息删除成功！")
End Sub
六、实验总结
通过本次VB上机实验，我对VB的基本语法和应用技巧有了更深入的了解。通过实际操作，我掌握了VB环境的搭建方法，熟悉了VB的开发界面和功能。同时，通过实现学生信息管理系统，我对VB的变量、条件语句和循环结构等基本语法有了更深入的理解。这次实验不仅提升了我的编程能力，也增强了我对软件开发的兴趣和热情。
七、参考资料
1. VB官方网站：https://www.doczj.com/doc/b019106714.html,
2. VB教程：《Visual Basic 2019入门经典》
以上是本次VB上机实验的实验报告，通过这次实验，我对VB的基本语法和应用技巧有了更深入的了解，为今后的编程学习和实践打下了坚实的基础。
西安邮电学院 《项目实训》实验报告题目：航空管理系统 院系名称： 专业名称： 班级： 学生姓名： 学号： 起止时间：
题目：航空管理系统 一、实验要求： 数据录入、存储（录入系统所需的数据；将录入的数据存储在文件中）；数据查询（按要求对数据进行查询）；数据修改（对数据进行更新操作）；数据删除（对数据进行删除操作）；数据统计（对指定数据进行统计并输出） 二、设计 1、系统设计 （1）系统功能分析： 系统开发的总体任务是实现各种信息的系统化、规范化和自动化。 系统功能分析是在系统开发的总任务的基础上完成的。本实验的航空管理系统需要完成的功能主要有： 舱位信息的输入和修改，包括舱位等级编号、舱位等级名称以 及提供的各种服务类别。 客机信息的输入、修改和查询，包括客机编号、购买时间、服 役时间和机舱座位数量。 航线信息的输入、修改和查询，包括航线编号、出发城市、到 达城市、出发时间、到达时间和机舱价格。 客户信息输入、修改和查询，包括客户编号、客户姓名、客户 性别、身份证号码和联系电话。 订票信息输入、修改和查询，包括订票编号、客户编号、客户
姓名、航线编号、出发城市、到达城市、出发时间和票价。 （2）系统功能模块设计 对上述各项功能进行集中、分块，按照结构化程序设计的要求，得系统功能模块图如下： 2、数据库设计 （1）数据库需求分析 用户的需求具体体现在各种信息的提供、保存、更新和查询，这就要求数据库结构能充分满足各种信息的输出和输入。收集基本数据、数据结构以及数据处理的流程。组成一份详尽的数据字典，为具体设计打下基础。
仔细分析有关航空管理信息需求的基础上，将得到如图所示的本系统所处理的数据流程。 针对一般航空管理系统的需求，通过对航空公司管理工作过程的内容和数据流程分析，设计如下面所示的数据项和数据结构： ●舱位等级信息，包括的数据项有：舱位等级编号、舱位等级 名称、是否有礼品、是否有报纸、是否有饮料、是否有午 餐、是否有电影、是否可以改签、是否可以退票、是否可以 打折、备注信息等。 ●客机信息，包括的数据项有：客机编号、客机型号、购买时 间、服役时间、经济舱座位数量、公务舱座位数量、头等舱 座位数量、备注信息等。
软件开发环境与工具 实验报告 实验二 实验题目: 用户管理及登陆程序设计 实验类型:验证性 指导老师：王琦 专业班级:计算机科学与技术系1001班
学号: 2010100152 姓名:陈振北 2012年 11月 17日 一、实验题目 用户管理及登录程序设计 二、实验目的 通过本次实验，进一步掌握https://www.doczj.com/doc/b019106714.html,五大对象及其功能，掌握利用https://www.doczj.com/doc/b019106714.html,对数据库进行存取的两种方法，并利用https://www.doczj.com/doc/b019106714.html,，采用分层架构，实现一个完整的用户管理及登录程序。两种连接方式。 三、实验功能要求 实验功能要求： 1、实现对用户的各种管理，包括新增、修改、删除、停用、启用、重置密码、查询等。 2、实现完整的用户登录系统。 3、对敏感数据进行加密处理。 4、用.NET分层架构设计。 四、实验步骤 1.把连库的基本参数放到APP.CONFIG中
vb用户界面设计实验报告(共9篇) VB第7章用户界面设计 一、选择题 1、下列控件中，没有Caption属性的是( )。 A. 框架 B. 列表框 C. 复选框 D. 单选按钮 2、复选框的Value属性为1时，表示( )。 A. 复选框未被选中 B. 复选框被选中 C. 复选框内有灰色的勾 D. 复选框操作有错误 3、用来设置粗体字的属性是( )。 A. FontItalic B. FontName C. FontBold D. FontSize E. FontUnderline 4、假定定时器的Interval属性为1000，Enabled属性为Ture，调用下面的事件过程，程序运行结束后变量x的值为( )。 Dim x As Integer Sub Timer1_Timer( ) For i = 1 To 10 x = x + 1 Next i End Sub A. 1000 B. 10000 C. 10 D. 以上都不对 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 属性返回
VB实验报告 《VB程序设计》实验单元一 实验报告 专业班级：姓名学号 2 指导教师：王云侠完成时间： 3月22日 实验一VB环境和可视化编程基础 一、实验目的 1 了解Visual Basic的安装 2 掌握启动与退出Visual Basic 3 掌握建立、编辑和运行一个简单应用程序的全过程 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磅”和“复制=>”。并且左面的Label改为如图 代码如图 点击运行即可五、实验结果
实验一问答题： 1、答： 常见的有visual Basic、C++、Java、SQL。 用途特点：（参考课本4-5页） 2、答： 代码是一行或几行命令。 程序是针对某个任务编写的有序代码的集合。 软件是程序和文档的集合。 它们的关系是：代码 < 程序 < 软件 3、答： 面向对象程序设计中的每一个对象都应该能够接受数据、处理数据并将数据传达给其它对象，因此它们都可以被看作一个小型的“机器”，即对象。它能够让人们更简单地设计并维护程序，使得程序更加便于分析、设计、理解。 4、答： 参考课本第9页 5、答： 类——是创建对象实例的模板, 包含了创建对象的属性描述和行为特征的定义。 对象——是类的一个实例，继承了类的属性、方法。 控件——是具有图形界面的对象，它同样具有属性、方法、事件，是用来设计用户界面的重要元素。
属性——是对象的性质，用来描述和反应对象特征的参数。 事件——响应对象的动作，它发生在用户与程序交互时。如单击控件、鼠标移动、键盘按下。 过程——指附在该对象上的程序代码，是事件的处理程序。 6、答： 参考课本12页到17页。 实验二问答题： 1、答 通用属性有：Caption标题、Enabled可用性、Visible可见性、ForeColor前景颜色、BackColor背景颜色等。 2、答 标签label是用来显示信息的，不具有输入功能。属性有Caption、BackStyle、Alignment、BorderStyle、AutoSize。 文本框用来输入、输出数据，编辑文本。属性有Text、 Maxlength、MultiLine、 ScrollBars、 Locked 、 PassWord 。 3、答 结果为：标签里显示一个“abc”，图片框里显示3行“欢迎您”。4、答 要保存2次，分别是工程文件.vbp和窗体文件.frm。
实验一：设计简单的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程序运行
Visual Basic 实验报告 班级： 姓名： 学号：
一、实验题目：实验7 二、实验目的：1）掌握过程、函数的概念和使用方法。 2）掌握形参和实参的概念，及在调用过程时两者的对应关系。 3）掌握变量、过程的作用域。 4）练习并掌握Function函数.。 三、实验内容：编写一个在数组中查找最大值的过程。要求给定或由机器产生一系列随机数构成一个一维数组，然后调用该过程，就可以找到并显示数组中的最大值。 1、界面： 2、代码：Private Function Imax() Dim i, j, t, max As Integer Dim a(1 To 10) As Integer For i = 1 To 10 a(i) = Int(Rnd * 100) Print a(i) Next i max = a(1) For i = 1 To 10 If a(i) > max Then max = a(i) End If
Next i Print Print "最大数是：" & max End Function Private Sub Form_Click() Dim m m = Imax Print m End Sub 四、实验结果： 1、调试和运行： 2、体会和心得：①VB的语言是一种让我觉得新奇和陌生的语言，在最初接触 他的时候会觉得很一般，没有什么特别的，但在慢慢的实验和学习中，渐渐觉得他和我们一般学习的语言有所区别，他的语言逻辑性和语法都需要区别于我们现在所学习的语言。 ②在对界面进行设计时，一定要好好理解题目的要求，并针对要求进行代码 的编写。在编写代码时还要注意每一个文本框编写的事件的应用。 ③在编写一份运行程序时要明确么一步的目的，明确过程，并可以适时的对 编写的过程进行检验，以确保其制作的准确性。 ④在整个程序编写完成后一定要记得进行调试，查看程序编辑的整体效果。 (5)在编写程序时一定要注意格式与函数的定义。
vb上机实验报告 VB上机实验报告 一、引言 Visual Basic（VB）是一种面向对象的编程语言，广泛应用于软件开发领域。本 次实验旨在通过VB的上机实践，掌握VB的基本语法和应用技巧，提升编程能力。 二、实验内容 1. VB环境搭建：安装VB开发环境，并熟悉VB的开发界面和功能； 2. VB基本语法：学习VB的变量、数据类型、条件语句、循环结构等基本语法； 3. VB应用实例：实现一个简单的学生信息管理系统，包括学生信息录入、查询 和删除功能。 三、VB环境搭建 VB的开发环境可以通过官方网站下载并安装。安装完成后，打开VB开发界面，可以看到菜单栏、工具栏和代码编辑区等组成部分。熟悉这些界面元素，是进 行VB编程的基础。 四、VB基本语法 1. 变量与数据类型 在VB中，可以使用Dim语句声明变量，并指定其数据类型。常见的数据类型 有整数型（Integer）、浮点型（Single）、字符串型（String）等。例如，使用以 下语句声明一个整数型变量： Dim num As Integer 2. 条件语句
条件语句用于根据条件的真假执行不同的代码块。在VB中，可以使用If语句和Select Case语句实现条件判断。例如，以下代码展示了使用If语句判断一个数的正负： If num > 0 Then MsgBox("该数为正数") ElseIf num < 0 Then MsgBox("该数为负数") Else MsgBox("该数为零") End If 3. 循环结构 循环结构用于重复执行一段代码。在VB中，可以使用For循环和Do While循环等实现循环功能。例如，以下代码展示了使用For循环输出1到10的数字：For i = 1 To 10 MsgBox(i) Next i 五、VB应用实例 本次实验要求实现一个学生信息管理系统，包括学生信息录入、查询和删除功能。以下是实现该功能的代码示例： 1. 学生信息录入 在VB的窗体中，添加文本框和按钮控件。当用户在文本框中输入学生信息，并点击“录入”按钮时，将学生信息保存到数据库中。以下是实现该功能的代码
北京电子科技学院（BESTI） 实验报告 课程：可视化程序设计班级：0921 姓名：马畅学号：20092109 成绩：指导教师：徐日实验日期：2011．4.20 实验密级：/ 预习程度：实验时间：15:30~18:00 仪器组次：A03 必修/选修：选修实验序号：(二) 实验名称：可视化基础编程 实验目的与要求： 1.熟悉https://www.doczj.com/doc/b019106714.html,基本窗体编程和基本控件应用； 2.培养运用https://www.doczj.com/doc/b019106714.html,编程解决问题的能力，提高计算机编程能力； 3.引导和培养具有严谨的实验态度和勇于实践的学习精神。 实验仪器：
一．实验内容 1.平均值生成器 从窗口输入若干个数（每次输入一个数），求出输入数据的个数及它们的平均值。 要求：不允许窗口最大化、不允许调整窗口大小。 用户单击【开始】后，可以通过单击【确定】按钮或敲【Enter】键完成每个数的 输入。 当用户单击【取消】按钮或按【Esc】键时停止输入，停止输入时要显示已输入的 数据，并计算显示出他们的平均值。 用户输入数据较多时，为能显示所有数据及计算平均值的结果，在必要时要开启滚动条以方便用户浏览。 2．字符分离器 从程序窗口输入任意字符，程序自动将字母、数字、汉字等分离开，并 口中显示分离结果。 要求：不允许窗口最大化、不允许调整窗口大小。 用户输入后，单击【确定】按钮或敲【Enter】键都能完成字符分离。 输入过程中窗体要随着键盘敲击而改变颜色。 3. 电子钟 编程实现一个电子钟，以显示当前日期、星期、时间。 要求：不允许窗口最大化、不允许调整窗口大小。 打开后电子钟能持续、实时的显示当前时间。 要求界面美观，鼠标单击电子钟界面时会更换显示颜色的前、背景色。 二．实验步骤 1.平均值生成器 各控件属性：
VB 程序设计实验报告 2020年05 月20 日 课程名称：VB程序设计实验名称：实验四循环结构 一、实验目的 1.掌握For语句的使用 2.掌握Do语句各种形式的使用 3.掌握如何控制循环条件，防止死循环或不循环 4.掌握滚动条、进度条和定时器控件的使用 二、实验内容 实验4-1 用单循环和Print 方法显示有规律的图形，可通过Form_Click 事件实现，如图2.4.1 所示。 实验4-2 用单循环实现如图2.4.2 所示的界面。 实验4-3 求s=1+(1+2)+(1+2+3)+(1+2+3+4)+ ? +(1+2+3+4+ ? +n) 实验4-4 筛选在Text1 文本框输入的字母字符，并反序在Text2 中存放，界面如图2.4.4 所示 实验4-5 计算s = 1 + 1/2 + 1/4 + 1/7 + 1/11 + 1/16 + ……当第i 项的值<10 -4 时结束 实验4-6 编一程序，显示出所有的水仙花数。所谓水仙花数，是指一个 3 位数，其各位数字立方和等于该数字本身。例如，153 是水仙花数，因为153 = 1^3 +5^3+3^3 实验4-7 计算π的近似值，π的计算公式为： π=2*2^2/1*3 ×4^2/3*5*……*(2*n)^2/((2n-1)*(2n+1)) 实验4-8 求Sn=a+aa+aaa+aaa+ ? aa? aaa(n 个a) ，其中a 是一个由随机数产生的1～9( 包括1，9) 中的一个正整数，n 是一个由滚动条产生的5～10( 包括5，10) 中的一个数。 实验4-9 任意改变文本的字号。要求利用滚动条和标签控件实现对标签字体大小的任意改变，如图2.4.8 所示。 实验4-10 将Image 图像装入图片，利用水平和垂直滚动条改变图像控件的大小来实现对图片进行任意大小的缩放，如图2.4.9 所示。 实验4-11 利用TextBox 、ProgressBar 、Timer 控件设计一个带有进度条的倒计时程序，
某某大学实验报告 课程名称办公软件高级应用 项目名称VBA编程基础 学院 专业 指导教师 报告人学号 实验时间2012年6月27日星期三 提交时间2012年6月28日星期四 教务处制
一、实验目的与要求 1．掌握对象、属性、事件、方法和过程的概念； 2．掌握运用VBA函数或者公式判断闰年的方法； 3．掌握利用身份证求性别、年龄、生日和地址； 4．学会自己提出问题，并得出解决问题的方法。 二、实验内容与方法 1、实验内容：利用身份证求性别、年龄、生日和地址；运用VBA函数或者公式判断闰年的方法 2、实验方法：excel函数，VBA 3、实验环境：Windows 7 Microsoft office 2010 三、实验步骤与过程 打开“教师信息表xls” 1、利用身份证求性别。 打开工作簿→“开发工具”→“Visual Basic”→“插入”→“新模块”→输入以下语句：
关闭VBA编辑器→选中C3单元格→输入函数“=sex(B3)”，得到“男”→复制单元格→选中C4：C7，黏贴，得到如图结果： 2、利用身份证求出生日期 打开VBA编辑器→插入新模块→输入如下语句： 关闭VBA编辑器→选中D3单元格→输入函数“=bd(B3)”，得到“1973-06-03”→复制单元格→选中D4：D7，黏贴，得到如图结果： 3、利用身份证号求年龄 打开VBA编辑器→插入新模块→输入如下语句：
关闭VBA编辑器→选中E3单元格→输入函数“=age(B3)”，得到“39”→复制单元格→选中E4：E7，黏贴，得到如图结果： 4、利用身份证号求户口所在地 打开VBA编辑器→插入新模块→输入如下语句： 关闭VBA编辑器→选中F3单元格→输入函数“=agddr(B3)”，得到“北京市市辖区东城区”→复制单元格→选中F4：F7，黏贴，得到如图结果：
实验一 一 DDBAB,CC(D)DDC,ADDCA 二 windows 中断 工具箱 代码 分类 form2.show 有语法错误 错误 事件 结构化 文件名和结构 工程 代码 双击任意控件或右健快捷菜单选“代码窗口”vb的安装文件夹 属性 方法 font load 对象 实验二 一 BCBCC,CBBDA,CCCBA,CBDCC 二 form_click() interval,5000 vbp,frm top,left,height,width,像素 picture load locked font,alignment gotfocus,lostfocus 属性窗口，代码 实验三 一
A(BC)(BC)AA,A(BCD)DBB,B 二 3，4，5，6，8，10，11，12，14，15，16 三 abs(x+y) (3+x*y)^2 (-b+sqr(b^2-4*a*c)/(2*a) sin(30*3.14/180)+exp(2) 四 int(rnd*71+20) x*y<0 x mod 3=0 or xmod 7=0 x>=10 and x<20 x>="A" and x<="Z" left(s,3) 或者,mid(s,1,3) 实验四 一 CDCDA,DBBAC 二 (1) 48.71E-01,-4.8712 (2) 关系，逻辑，数值 (3) 900，100，mid(a,2,1),c (4) m 1,2,3 print m & "月是第二季度" end select 三 (1) x=4 y=13 (2) 10 实验五 一 BCBAC 二 （1）for x=2 to 10 s*(1-1/x) (2) t<1E-6 (3) j
立体像对前方交会实验报告 一、实验目的 在掌握前方交会原理的基础上，自己编写前方交会程序，在计算机上调试，输出计算结果并对计算结果进行检验。通过上机调试程序加强动手能力的培养，通过对实验过程的掌握以及对实验结果的分析，增强学生综合运用所学知识解决实际问题的能力。 二、实验仪器 计算机，VB6.0 三、实验数据 1.模拟像片一对：左片号23，右片号24； 2.航摄机主距：f=150mm； 3.左片23号片外方位元素： φ=−0°25′00″ω=−1°00′00″k=−0°10′00″ Xs=103007.006117 Ys=139998.994849 Zs=4801.9989994 （m） 右片24号片外方为元素： φ=1°39′59″ω=−0°10′00″k=0°40′00″ Xs=106002.023762 Ys=140005.002780 Zs=4797.009648 （m） 待求像点坐标如下表： 四、实验内容 利用所给立体像对两张像片的内、外方位元素，编写空间前方交会程序，根据所给像对中若干同名像点在左右像片上的坐标，解求其对应的地面点的物方坐标，实现空间前方交会的过程。 五、实验成果 程序流程图：
程序设计界面：
程序运行界面：
运行结果： （注：表上显示地面点坐标依次是：7,9,4,6,5,8） 附：excel进行角度转换： 六、程序如下： Dim f#, x1#, y1#, x2#, y2#, i%, j%, u1#, u2#, v1#, v2#, w1#, w2#, fai1#, kab1#, omg1#, fai2#, kab2#, omg2# Dim a12#, a13#, b11#, b12#, b13#, c11#, c12#, c13#, a21#, a22#, a23#, b21#, b22#, b23#, c21#, c22#, c23# Dim n1#, n2#, bu#, bv#, bw# Dim xs1#, xs2#, ys1#, ys2#, zs1#, zs2#
实验日期_____________________ 实验名称：实验一常用标准控件一 【实验目的与要求】 1.掌握Visual Basic的启动与退出。 2.熟悉Visual Basic的集成开发环境。 3.掌握在窗体中放置控件的方法。 4.掌握在“属性窗口”中设置控件属性的方法。 5.掌握在“代码编辑器”窗口中输入程序代码的方法。 6.掌握工具栏上启动按钮、结束按钮的使用方法。 7.掌握标签、文本框、命令按钮、列表框等控件的使用方法。 【实验内容与步骤】 实验1.1.1 标签的使用(一) 1.题目与要求：在名称为Form1、标题为“标签”的窗体上画一个名称为Label1的标签，并设置适当属性以满足以下要求： 1)标签的内容为“计算机等级考试”； 2)标签可根据显示内容自动调整其大小； 3)标签带有边框，且标签内容显示为三号字。 2.实验步骤 1)界面设置：在名称为Form1的窗体上放置一个标签控件Label1； 2)属性设置（请将表格补充完整） 表1.1.1 对象属性 3)保存文件：存盘时必须存放在C:\VB\Sy01文件夹下，工程文件名为sjt1.vbp，窗体文件名为sjt1.frm。 实验1.1.2 标签的使用(二) 1.在名称为Form1的窗体上画一个名称为 Label1的标签，标签的宽和高分别为2000、300，有边框，并利用属性窗口设置适当的属性，使其居中显示“等级考试”，并使标签的外观如图所示。
2．属性设置（请将表格补充完整） 表1.1.2 对象属性 sjt2.frm。 实验1.1.3 文本框的使用 1.题目与要求：在名称为Form1的窗体上画两个文本框，名称分别为T1、T2，初始情况下都没有内容。请编写适当的事件过程，使得在运行时，在T1中输入的任何字符，立即显示在T2中。程序中不得使用任何变量。 2.实验步骤 1)界面设置：在名称为Form1的窗体上放置两个文本框； 2)属性设置 3)完善程序代码 Private Sub T1_Change() T2.Text=T1.Text (T2=T1) End Sub 3)保存文件：存盘时必须存放在C:\VB\Sy01文件夹下，工程文件名为sjt3.vbp，窗体文件名为sjt3.frm。 实验1.1.4 命令按钮的使用(一) 1.在名称为Form1的窗体上画一个名称为C1、标题为“变宽”的命令按钮，窗体标题为“改变按钮大小”。编写程序，使得单击命令按钮时，命令按钮水平方向的宽度增加100。要求：程序中不得使用变量，每个事件过程中只能写一条语句。