VB6.0上机实验报告
VB6.0上机实验报告
试验报告院（系）：课程名称：日期：代码：Private sub command1_click() a=val(text1.text)b=val(text2.text)c=val(text3.text)Private sub command1_click() a=val(text1.text)5. 在程序中声明一个常量，然后改变其值，观察程序执行结果；分别定义全局变量、窗体级全局变量及私有变量，并区别其异同。
代码：全局变量public x as integer 作用于整个应用程序窗体模块变量dim x% private x% 作用于窗体模块Dim a(6) As DoublePublic Sub Command1_Click()Private Sub Command1_Click() Dim a(1 To 20) As Integerk = 1For i = 1000 To 3 Step -1出来。
\题2 程序运行界面代码：Private Sub Command1_Click()x As LongPrivate Sub Command1_Click() Picture1.Left = Picture1.Left + 100 End SubDim A(20) As IntegerDim max As Integer, min As IntegerPrivate Sub Command1_Click() Dim i As IntegerPrivate Sub Timer1_Timer()Vb程序设计实验报告Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)If Button = 2 Then '如果点的是右键第21 页共21 页。
VB实验报告01
实验报告01：熟悉Visual Basic 6.0编程环境一、实验目的1．熟悉Visual Basic 6.0编程界面。
2．掌握编写VB6.0程序的基本过程。
3．能够建立VB工程，制作应用程序界面，输入程序代码，并执行程序和生成EXE可执行程序。
二、实验内容1．熟悉VB编程界面2．编写程序。
（1）在使用VB系统设计应用程序时，一般包括两个阶段，分别是界面设计阶段和代码设计阶段。
（2）一个完整的VB工程包括一个工程文件（*.vbp）、至少一个窗体文件（*. frm ）。
（3）某个程序的界面设计如图所示：其中在窗体上显示文字的是标签控件。
需要将窗体的Caption 属性设置为“欢迎窗口”。
3．设计一个简单的VB程序，界面和各个对象属性初值如下：对象属性初值按钮1（Command1）Caption 确定按钮2（Command3）Caption 结束标签1（Label1）Caption 请输入你的姓名标签2（Label2）Caption 空文本框（Text1）Text 空要求：输入姓名后，单击“确定”按钮，将在下方Lable2标签中显示文本框中姓名&“，祝你学好VB程序设计！”（1）界面设计：向窗体中添加两个按纽（C ommand1、Command2）、二个标签（Lable1、Lable2）、一个文本框（Text1）。
（2）设置好各对象属性值。
（3）编写两个命令按钮的事件代码。
（4）调试运行程序。
（5）在桌面上建立文件夹，保存工程，工程文件命名为sy1_1.vbp，窗体文件命名为sy1_1.frm。
三、思考题1．VB采用了面向对象的程序设计思想。
2．窗体上有一个文本框Text1，为了在该文本框中显示“Hello！”，所使用的语句是Text1.Text=”Hello!”。
3．用户在输入程序代码时，是否需要区分大小写？词与词之间的空格是否可以删除？答：不需要区分大小写。
词与词之间的空格不可以删除。
4．简单说明VB应用程序的开发步骤答：（1）创建工程（2）建立用户界面（3）设置各个对象的属性（4）编写事件过程代码（5）运行调试程序（6）保存程序（7）生成可执行文件。
Visual Basic程序设计实验报告
Visual Basic程序设计实验(本科)教学大纲实验课程名称：Visual Basic程序设计实验课程性质：基础必修适用专业：理工科各专业实验总学时： 48 学分数：4（含理论）教材：《Visual Basic程序设计方法》李敬有主编北京航空航天大学出版社参考书：《Visual Basic程序设计》邓文新主编北京航空航天大学出版社一、实验教学目标与要求：目标：以Visual Basic 6.0中文版为语言背景，通过实验进一步理解程序设计的基本知识，掌握可视化程序设计的基本思想以及会用VB开发工具设计一些实用的应用程序。
重点培养学生的编程能力、理论联系实际的能力、程序的调试能力及创新能力。
要求：注意自始至终贯彻课程中所介绍的程序设计风格，养成良好的编程习惯。
事先预习设计好程序，上机过程中能顺利完成程序的调试，独立完成所布置的上机作业。
第一次实验报告课程名称：Visual Basic 程序设计实验实验项目：VB集成开发环境实验室：15J13室（504）机器编号：班级：数学072姓名：姓名(学号)实验日期：2008年3月8日目的:1.熟悉VB集成开发环境的组成及设置；2.掌握VB的启动、退出方法；3.掌握VB创建工程的基本步骤。
软硬件环境：硬件：cpu主频：2.4GHz,内存：256M，硬盘：80G软件：Windows 2000操作系统，Visual Basic 6.0内容:1.练习VB的启动、退出方法；2.利用“视图”菜单显示属性窗口、代码窗口、工程资源管理器窗口、工具箱等；3.建立一个简单的VB程序，运行并保存；4.通过“工具”菜单的“选项”命令设置VB环境。
实验数据记录第二次实验报告课程名称：Visual Basic 程序设计实验实验项目：基本控件实验室：15J13室（504）机器编号：班级：姓名：实验日期：2008年3月23日实验目的：掌握常用控件（标签、文本框、命令按钮）的属性、事件和方法。
VB上机实习报告
VB上机实习报告院系：化学与环境工程学院班级：应用化学11002班姓名：学号：序号：指导老师：许老师崔老师完成时间：2011年12月23日目录摘要 (3)一、实习目的 (3)二、实习内容 (3)系统设计 (4)一、程序设计思路 (4)二、程序流图 (4)三、程序说明 (5)四、窗体界面设计 (5)（1）窗体一的对象界面和菜单编辑 (5)2）窗体二的对象界面和菜单编辑 (6)3）窗体三的对象界面和菜单编辑 (6)五、代码编写 (7)六、调试程序并保存 (7)原始数据及运行结果 (7)1．原始数据 (7)2．数据文件夹 (7)3.运行的结果 (8)问题及解决方案 (11)程序缺陷 (12)实习心得 (12)附录 (12)Form1 (12)Form2: (17)Form3： (23)摘要一、实习目的这次上机实习的主要目的是使同学们将平日所学的理论知识用于实践，以便更牢固地掌握，同时让同学们熟悉VB 6.0的开发环境,掌握基本的编程方法,熟悉用VB语言完成一个应用程序的设计过程,掌握有关编辑和调试程序的方法和技巧。
二、实习内容（一）用记事本新建一个文本文件，将本班的M名学生在本学期的N门考试课的成绩（要求用假想分数，并要求将自己的每门课的分数定在96分以上，放在第一列；而将别人的大多数课程的分数都定在96分以下）输入到这个文件中,建议按如下形式存放(注：20≤M≤50、5≤N≤8，下文以M=4,N=3为例):学号姓名英语VB 数学1 我自已96 98 992 李某91 96 673 王某75 58 564 赵某58 67 77（二）将本学期的N门课程及其学分(16学时为1个学分)输入到另一个数据文件（文件类型同上题）中，建议如下列形式存放：编号课程名称课程学分1 英语 5.02 C程序设计 3.53 数学 4.5（三）请编写一个简单的学生成绩管理程序,要求完成以下功能:1)根据以上两文件内容分别计算每个学生N门课的加权平均分（保留2位小数，4舍5入）,按平均分排列名次，平均分相同则名次并列，如第1、2、2、4、5、5、7…名。
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程序设计实验项目试验报告(1)院(系): 课程名称: 日期: 班级学号实验室专业姓名计算机号实验成绩评定名称 VB环境的熟悉与应用所用教师签名软件 Visual Basic 6.0实验目 1(熟悉VB的系统环境，了解VB程序的编写、保存和编译的方法过程。
的 2(初步了解几个常用控件的使用方法。
或要求1、在vb中____C_____被称为对象。
实A.窗体B.控件C.窗体和控件D.窗体、控件和属性验2、设在名称为form1的窗体上只有1个名称为C1的命令按钮,下面叙述中正确的是( B ) 步A.窗体的Click事件过程的过程名是form1_Click 骤B.命令按钮的Click事件过程名是C1_Click、 C.命令按钮的Click事件过程的过程名是Command1_Click 心3、编译执行程序的快捷键是_Ctrl+F5_。
得 4、启动visual basic 后标题栏中显示的信息是(C)。
A.工程-Mmicrosoft Visual Basic[设计] 体B.工程-Mmicrosoft Visual Basic[中断]会C.工程1-Mmicrosoft Visual Basic[设计]第 1 页共 53 页1/53页Vb程序设计实验项目D.工程1-Mmicrosoft Visual Basic[中断]5、Visual Basic集成开发环境主要窗口包括__窗体设计窗口;代码设计窗口;_属性窗口;_工程资源管理器窗口_;_工具箱窗口。
6、属性显示方式分两种，即按__字母顺序和按_分类__顺序，分别通过单击相应的按钮来实现。
7、编一程序，程序运行的初始界面如图1-1所示，当用户在文本框中输入姓名，例如输入“张三”，单击“你输入的姓名是:”按钮(command1)，则程序的运行情况如图1-2所示，如果单击“结束”按钮(command2)，即结束程序运行。
注意:保存时必须存放在自己创建的文件夹下，窗体文件名为kt1.frm，工程文件名为kt1.vbp。
我的vb上机实验报告
计算机上机实习（vb）大致思路：1.首先建一个文本文件“学生成绩”放在一个新建文件夹中，然后在此文件夹中输入二十个人的成绩及相关信息，包括学号，姓名，五门课程的名称。
2.再建一个文件夹叫做“课程学分”，在里面输入每个课程的编号，学时和名称并保存。
3.编写程序调用刚才保存的两个文件算出每个学生n门课的加权平均分然后排名，再把这班级成绩表保存在新建的文本文件“班级成绩表”中。
4.分别统计全班每门课的平均分，并计算每门课在60分以下，60~69,70~79,80~89,90分以上的人数，用vb创建一个叫“各分数段人数”的文本文件装此数据。
5.编程找出每门课中不及格的人，并在窗体上显示名单。
6.编程找出符合优等条件的人并在窗体上显示名单。
具体的流程：1.先编写如下程序使学生的每个信息的到保存，在自定义数组stu中有学生的姓名，学号，各科成绩。
再命名两个数组name和xf，让文本文件里的每一个信息调用起来方便简单。
2.求加权平均分，让每个学生的各科成绩分别乘以各成绩的学分，在除以总学分即为加权平均分。
有两个循环分别是20 个学生的循环和五门课的循环。
3.排名次，由于当两个人的成绩相等时要求名次一样，所以用书上常用的冒泡法和选择排序法是有些麻烦的，从而我用了把分数和每一位同学的分数比较来累计排名。
此时要在stu类型中加一个rank的分量。
从而有了下面的代码：4．统计分数段时，要求是统计每科的分数段人数，所以我先写了一个课程的分段程序，再把它复制四遍做适当的调整就得到了五门课的分段的程序：Private Sub mnuyw_Click()Picture1.ClsPicture1.Picture = LoadPicture("D:\要用的图片\16.jpg")Picture1.FontSize = 20Picture1.ForeColor = RGB(156, 134, 2)Picture1.Print Tab(20); "语文"Picture1.PrintPicture1.Print Tab(15); "范围"; Tab(30); "人数"Dim i%, b(1 To 5)For i = 1 To 5b(i) = 0Next iFor i = 1 To 20If stu(i).cj(1) <= 60 Then b(1) = b(1) + 1If stu(i).cj(1) < 69 And stu(i).cj(1) > 60 Then b(2) = b(2) + 1If stu(i).cj(1) < 79 And stu(i).cj(1) >= 70 Then b(3) = b(3) + 1If stu(i).cj(1) < 89 And stu(i).cj(1) >= 80 Then b(4) = b(4) + 1If 90 <= stu(i).cj(1) Then b(5) = b(5) + 1Next iPicture1.Print Tab(15); "=<60"; Tab(30); b(1)Picture1.Print Tab(15); "60-69"; Tab(30); b(2)Picture1.Print Tab(15); "70-79"; Tab(30); b(3)Picture1.Print Tab(15); "80-89"; Tab(30); b(4)Picture1.Print Tab(15); ">90"; Tab(30); b(5)5.打印学生的成绩单相当于把之前刚存好的班级成绩表再打印一次，所以代码用只读打开文本文件。
vb实训报告
vb实训报告1. 引言在本次VB实训中，我们小组的任务是设计和开发一个员工管理系统。
该系统旨在帮助企业管理员工信息、薪资、考勤等日常管理事务。
本文将介绍我们在实训过程中的项目规划、功能实现、问题解决以及项目总结等方面的内容。
2. 项目规划在项目规划阶段，我们首先明确了系统的功能需求和主要模块划分。
根据实际情况，我们将系统划分为员工信息模块、薪资管理模块、考勤模块以及权限管理模块。
每个模块都有相应的功能要求和优先级。
3. 功能实现3.1 员工信息模块在员工信息模块中，我们实现了员工的基本信息录入、修改和查询功能。
通过设计合理的界面布局和表单格式，使用户能够方便快捷地操作相关功能。
我们还添加了员工照片上传和显示的功能，增强了系统的可视化和人性化。
3.2 薪资管理模块薪资管理模块是该员工管理系统的关键部分之一。
我们实现了薪资的计算、发放和统计功能。
通过与员工信息模块的数据交互，能够自动计算薪资、生成工资条等相关操作。
同时，我们提供了统计报表的功能，帮助管理人员迅速了解企业的薪资概况。
3.3 考勤模块在考勤模块中，我们实现了考勤打卡、请假申请和考勤统计等功能。
通过与系统日历的结合，员工能够方便地进行考勤操作，并及时查看自己的考勤记录。
考勤统计功能可以帮助企业管理人员掌握员工的出勤情况，及时进行奖惩和管理。
3.4 权限管理模块为了保证系统的安全性和数据的机密性，我们设计了权限管理模块。
该模块实现了用户角色的划分、账号权限的设置和登录验证等功能。
只有经过验证的用户才能够访问系统，并根据其角色的不同进行相应的操作。
4. 问题解决在项目开发过程中，我们遇到了一些问题，并采取了相应的解决策略。
例如，在员工信息模块中，由于员工照片的上传和显示涉及到文件操作和路径设置，我们遇到了一些路径错误和图片加载问题。
通过仔细检查代码和路径设置，最终解决了这些问题。
同样，在权限管理模块中，我们遇到了一些安全性和数据保护的问题。
通过加密算法和访问控制的设置，我们增强了系统的安全性，避免了未授权用户的非法访问。
vb上机实验报告
3．退出VB打开文件菜单，执行退出命令。
4．关于VB的各种属性的了解。（1）可以直接键入新属性值，有caption，text；
5.数据类型：1，基本数据类型，有字符串（string）。数值，货币currency，变体（variant），其他；2，用户定义的数据类型，格式如下Type数据类型名称
数据类型元素名As类型名
数据类型元素名As类型名
End Type
枚举类型，格式为[Public|Private]Enum类型名称
成员名称[=常数表达式]
成员名称[=常数表达式]
…….
END Enum
说明：Public在整个工程中可见
Private只在声明的模块中是可见的
6．常量分为：文字常量{1字符串常量（2）值常量}和符号常量
表达式中的对象名称可以使窗体,图片框或者打印机;
表达式是一个或多个表达式:数值表达式打印出表达式的值,字符串则照样输出.
当输出多个表达式和字符串时,各表达式用分隔符隔开,注意逗号有间隔,分号无间隔.
14．与print有关的函数
(1)Tab函数Print Tab(n);800将在第n个位置输出数值
(2)Spc函数在Print的输出中,用Spc函数可以跳过n个空格
3、每人独立完成，如实记录自己上机的过程，杜绝雷同；
4、实验报告将作为平时成绩计入总成绩。
5、上交电子版，考试结束一周内由班长收齐交给我。
12．表达式的执行顺序是:
(1)首先进行函数运算
(2)进行算术运算,顺序如上
(3)然后进行关系运算,包括:=,<,>
实验一VB 6.0程序设计初步_大学计算机基础实践教程（第2版）_[共2页]
![实验一VB 6.0程序设计初步_大学计算机基础实践教程（第2版）_[共2页]](https://img.taocdn.com/s3/m/4bb52aff915f804d2a16c14a.png)
第10章
程序设计基础
实验一 VB 6.0程序设计初步
一、实验学时：2学时
二、实验目的
◆学会使用VB 6.0的开发环境
◆掌握如何建立、编辑、运行一个简单的VB应用程序的全过程
◆掌握变量的概念及使用
◆掌握并理解各种控件的使用环境，并能够熟练设置控件的各种属性
◆通过程序实践结合课堂例子，理解类、对象的概念，掌握属性、事件、方法的应用
三、相关知识
Visual Basic采用的是事件驱动的编程机制，即对各个对象需要响应的事件分别编写出程序代码。
这些事件可以是用户鼠标和键盘的操作，也可以是系统内部通过时钟计时产生，甚至由程序
运行或窗口操作触发产生，因此，它们产生的次序是无法事先预测的。
所以在编写V sual Bas c
事件过程时，没有先后关系，不必像传统的面向过程的应用程序那样，要考虑对整个程序运行过
程的控制。
完成应用程序的设计后，在其中增加或减少一些对象不会对整个程序的结构造成影响。
例如，在一个窗体中增加或删除一个控件对象，对整个窗体的运行不会带来影响。
由于Vi sual Basi c应用程序的运行是事件驱动模式，是通过执行响应不同事件的程序代码进
行运行的，因此，就每个事件过程的程序代码来说，一般比较短小简单，调试维护也比较容易。
用VB 6.0进行开发应用程序的基本步骤如下。
（1）建立用户界面。
（2）设置属性。
（3）对象事件过程编写代码。
进入代码窗口方法：
①双击当前窗体（或某一控件）；
②单击工程窗口的“查看代码”按钮；
③选择“视图”菜单中的“代码窗口”命令。
117。
VB实验报告
软件技术实验指导实验一：名称：VB的感性认识实验要求：1）在屏幕上开辟一个窗口（文本框），窗口的上部放置一个标签，标签中显示：“欢迎使用Visual Basic6.0中文版”。
窗口的下部有三个按钮，左边按钮中标有“开始显示”，中间按钮中标有“清屏”，右边按钮中标有“结束”。
当鼠标单击左边按钮时，文本框中显示“欲穷千里目，更上一层楼！”如果单击中间按钮，则清除文本框中显示的内容，单击右边按钮则程序结束。
2）单击“清屏”后，让光标出现在文本框中，此时往文本框中输入若干文字，例如“您好”，然后单击窗体，使得在窗体的指定位置上显示在文本框中输入的文字。
3）如果将1）中单击左边按钮后文本框中显示的“欲穷千里目，更上一层楼！”改为“白日依山尽，黄河入海流，欲穷千里目，更上一层楼！”此时文本框在一行中将显示不下所有文本，请试调整该文本框的“Multiline”属性，并将文本框纵向距离调整到可容纳两行以上文字。
此时再次执行程序，观察执行结果所发生的变化。
实验设计知识点：文本框的双向作用（即输入与输出）；窗体的双重作用（容器与输出）；事件过程的编写；输入输出的简单实现；窗体、文本框、标签、命令按钮等基本控件的常用属性的动、静态设置等。
(只为工大人民准备的) 附加内容：建立我的工具箱：该程序用于对Windows中的常用工具例如记事本、画图板等等进行方便的管理。
程序使用者只需单击界面上的相应图标按钮，就可以启动相应的Windows程序。
实验步骤：1）在窗体中央放入四个命令按钮，并选中4个按钮控件令其全部处于激活状态，单击“格式”菜单，选择“统一尺寸”子菜单下的“两者都相同”选项，可使所有被选中的按钮的外观尺寸统一；2）分别修改4个按钮的Caption属性分别为：记事本，画图板、写字板和媒体播放，并且将四个按钮的Style属性值取为Graphical属性以便在按钮控件上可以添加小图标和设置背景颜色。
在图标库中给四个按钮选择放入合适的小图标。
实验报告-VB应用初步
西南石油大学实验报告一、实验目的：（1）了解VB的启动与退出方法（2）熟悉VB集成开发环（3）熟悉VB帮助系统的使用（4）理解VB种类、对象以及事件驱动的基本概念（5）熟悉VB编程的基本步骤（6）掌握常用控件的创建方法（7）掌握编辑程序代码的基本操作二、实验内容：1. 启动Visual Basic 6.0，创建一个"标准EXE"类型的应用程序，要求：单击窗体在屏幕上显示"欢迎您使用Visual Basic"，并"请输入您的姓名"；运行界面如图所示，以Sy1-1.frm 和Sy1-1.vbp文件名保存。
提示：(1) 程序中用到2个标签和1个文本框，标签显示所需的文字，文本框用于输入您的姓名，最多输入4个字符，对于2个标签内的字号大小可在标签的属性窗口中选择Font属性改变。
(2) "欢迎您使用Visual Basic"要在两行显示，只要将Label1控件的宽度缩小一些。
运行界面（3）设计界面要求：界面设计完成后请将窗体设计器上的内容以抓图的方式将结果粘贴到下方。
（4）编写代码要求：代码编辑完成后请将代码窗口内的代码语句复制粘贴到下方。
Private Sub Form_Click()Label1.Caption = "欢迎您使用Visual Basic"Label2.Caption = "请输入您的姓名"End Sub2.练习对窗体三个事件过程（Load、Click、DblClick）的编程，三个事件中分别装入不同的图片，可以是你自己喜欢的任何图片。
提示：如load事件：Private Sub Form_Load()Form1.Caption = "Load"Form1.Picture = LoadPicture("d:\window.jpg")Rem 字符串内容为图片文件的路径End Sub（1）编写代码要求：代码编辑完成后请将代码窗口内的代码语句复制粘贴到下方。
VB6.0程序设计上机实验指导(精)
VB6.0程序设计上机实验指导VB6.0程序设计上机实验指导实验一认识VB6.0[实验目的]1.掌握VB集成开发环境的启动和退出2.了解VB集成开发环境的基本组成3.学会在VB集成开发环境中建立应用程序[实验内容]一、VB集成开发环境的启动和退出1.启动VB集成开发环境想一想：可以通过哪些方法启动VB集成开发环境。
2.在“新建工程”对话框中选择“标准EXE”注意：在“新建工程”对话框中有几个选项卡？它们各有什么作用？在“新建”选项卡中有哪些选项？3.熟悉VB集成开发环境4.退出VB集成开发环境想一想：可以通过哪些方法退出VB集成开发环境。
二、VB集成开发环境的基本组成1.指出VB集成环境中各组成部分的名称。
2.找到并熟悉VB集成环境中的工具箱、工程管理器窗口、属性窗口、窗体设计器窗口、代码窗口；掌握打开和关闭这些窗口的方法。
想一想：可以通过哪些方法打开代码窗口。
3.掌握在窗体设计器窗口中添加控件。
4.学会设置窗体、命令按钮、文本框的最常用属性。
5.在代码窗口中找到窗体、命令按钮、文本框的主要事件，学会在对象事件过程中输入代码。
想一想：窗体、命令按钮、文本框的缺省事件是什么。
三、建立第一个VB应用程序程序功能：程序界面见下图，要求当按“显示内容”按钮时，文本框中出现红色的“Hello,Visual Basic！”的文字，按“清屏”按钮时，文本框中文字消失，按“结束”按钮后，程序结束。
实验一认识VB6.0Private Sub Command1_Click()Text1.Text = "Hello，Visual Basic！"End SubPrivate Sub Command2_Click()Text1.Text = ""End SubPrivate Sub Command3_Click()EndEnd Sub想一想：怎样在窗体中添加控件，怎样改变窗体和控件的大小，怎样改变控件的位置。
vb上机实习报告
专业班级：化工11001学生学号：201003069班内序号：6指导老师：张老师吴老师完成日期：2011/12/23目录一：设计题目二：设计思路三：设计目标四：设计思路五：数据处理六：程序代码七：小结一：设计题目学生成绩管理二：设计思路利用CommonDialog从文本中读取文件,再通过split函数分割数据并赋值给相应项目，再通过vb提供的各种变量、函数、过程及自定义变量、函数过程等等来完成所需的操作。
三：设计目标从文本中读取数据，赋值数据，运算数据来实现对学生加权平均分、平均分、每门课的平均分、每门课的分数段、不及格学生名单、优秀学生名单、成绩查询、每门课的成绩分布图的输出，并写入文件。
四：设计思路五：数据处理原始成绩课程学分学生成绩课程学分加权平均分每门课的平均分每门课的分数段不及格学生名单及成绩优秀学生成绩查询化工导论成绩分布图Vb成绩分布图线代成绩分布图概率成绩分布图物理成绩分布图六：程序代码模块：Type studentnumber As String * 3name As String * 3score(1 To 5) As Integeraver As Singleaverage As Singlerank As Integercount1 As Integercount2 As IntegerEnd TypeType classnum As Stringnam As String * 4scor As SingleEnd TypePublic stu() As student, stu1 As student, cla() As class Public Function deletespace(str As String) As StringDim i%i = InStr(str, " ")Do While i <> ostr = Replace(str, " ", " ")i = InStr(str, " ")LoopOption Base 1Dim n As Integer, str1 As String, str As String, a() As String, i%, j%, m%, k%, s%(5, 5) 读学生成绩Private Sub studentscore_Click()ClsCommonDialog1.Filter = "文本文件|*.txt"CommonDialog1.ShowOpenOpen CommonDialog1.FileName For Input As #1Line Input #1, str1Print str1Do While Not EOF(1)Line Input #1, strstr = deletespace(Trim(str))a = Split(str, " ")n = n + 1ReDim Preserve stu(n)stu(n).number = a(0)stu(n).name = a(1)For i = 1 To 5stu(n).score(i) = a(i + 1)Next iLoopFor i = 1 To nPrint stu(i).number; Tab(6); stu(i).name; Tab(15);For j = 1 To 5Print stu(i).score(j); Spc(5);Next jPrintNext iClose #1End Sub读课程学分Private Sub kechengxuefen_Click()jisuan.Enabled = Truegekechengjiguanli.Enabled = Truechengjichaxun.Enabled = Truechengjifenbutu.Enabled = TrueClsDim k%CommonDialog1.Filter = "文本文件|*.txt"CommonDialog1.ShowOpenOpen CommonDialog1.FileName For Input As #2Line Input #2, str1Do While Not EOF(2)Line Input #2, strstr = deletespace(Trim(str))a = Split(str, " ")m = m + 1ReDim Preserve cla(m)cla(m).num = a(0)cla(m).nam = a(1)cla(m).scor = a(2)LoopFor i = 1 To mPrint cla(i).num; Tab(12); cla(i).nam; Tab(30); cla(i).scorPrintNext iClose #2End Sub加权平均分Private Sub aver_Click()ClsPrintPrint "姓名"; Spc(4); "学号"; Spc(4); "化工导论"; Spc(5); "vb"; Spc(8); "线代"; Spc(7); "概率"; Spc(7); "物理"; Spc(6); "加权平均分"; Spc(5)count2 = 0count1 = 0For j = 1 To 20For i = 1 To 5count1 = cla(i).scor + count1count2 = stu(j).score(i) * cla(i).scor + count2Next istu(j).aver = count2 / count1 '加权平均分Next jFor i = 1 To 20Print stu(i).name; Tab(10); stu(i).number; Tab(18);For j = 1 To 5Print stu(i).score(j); Spc(7);Next jPrint Format(stu(i).aver, "00.00")Next iEnd Sub按加权平均分排名Private Sub anpingjunfenpaiming_Click()Dim k%ClsPrint "姓名"; Spc(4); "学号"; Tab(16); "化工导论"; Tab(31); "vb"; Tab(42); "线代"; Tab(54); "概率"; Tab(66); "物理"; Tab(77); "加权平均分"; Tab(89); "名次"For i = 1 To 20stu(i).rank = 1For j = 1 To 20If stu(i).aver < stu(j).aver Thenstu(i).rank = stu(i).rank + 1 '排名End IfNext jNext iFor i = 1 To 20Print stu(i).name; Tab(10); stu(i).number; Tab(18);For j = 1 To 5Print stu(i).score(j); Spc(8);Next jPrint Format(stu(i).aver, "00.00"); Spc(7); stu(i).rank '输出Next iEnd Sub每门课的平均分Private Sub meimenkedepingjunfen_Click() '每门课的平均分ClsForm1.FontSize = 18Print "每门课的平均分如下:"Print "化工导论"; Spc(6); "vb"; Spc(10); "线代"; Spc(7); "概率"; Spc(8); "物理"For i = 1 To 5Sum = 0For j = 1 To 20Sum = Sum + stu(j).score(i) '求每门课的总分Next jstu(i).average = Sum / 20 '求每门课的平均分Next iFor j = 1 To 5Print Spc(2); stu(j).average; Spc(3); '输出Next jEnd Sub每门课的分数段Private Sub fenshuduan_Click()ClsDim g%For i = 1 To 5For j = 1 To 20g = stu(j).score(i)Select Case gCase 0 To 59s(1, i) = s(1, i) + 1Case 60 To 69s(2, i) = s(2, i) + 1Case 70 To 79s(3, i) = s(3, i) + 1Case 80 To 89s(4, i) = s(4, i) + 1Case 90 To 99s(5, i) = s(5, i) + 1End SelectNext jNext iDim b$(5)b(1) = "0---59"b(2) = "60--69"b(3) = "70--79"b(4) = "80--89"b(5) = "90--99"Form1.FontSize = 18Print " 范围化工导论vb 线代概率物理" For i = 1 To 5Print b(i); Tab(13);For j = 1 To 5Print s(i, j); Spc(5);Next jPrintNext iEnd Sub不及格学生名单Private Sub bujigexuesheng_Click() '不及格学生ClsForm1.FontSize = 13Dim i%, j%Form1.ForeColor = vbRedForm1.FontSize = 20Print "不及格学生及其成绩如下;"; Chr(13) + Chr(10)Form1.ForeColor = vbBlackForm1.FontSize = 12Print "学号"; Spc(5); "姓名"For i = 1 To UBound(stu())For j = 1 To 5If stu(i).score(j) < 60 ThenPrint stu(i).number; Spc(4); stu(i).name;PrintPrint "不及格课程:"; cla(j).nam; Tab(25); "(该课程学分为："; cla(j).scor; ")"; _Tab(45); "该科分数："; stu(i).score(j);PrintEnd IfNext jNext iForm1.FontSize = 12End Sub优秀学生名单Private Sub youxiuxueshneg_Click() '优秀学生ClsDim flag As BooleanPrint "优秀学生名单如下："PrintPrint "姓名"; Tab(10); "学号"; Tab(18); "化工导论"; Tab(31); "vb"; Tab(40); _"线代"; Tab(50); "概率"; Tab(60); "物理"; Tab(70); "平均分"; Tab(79); _"名次"For i = 1 To 20flag = FalseFor j = 1 To 5If stu(i).score(j) >= 90 Thenn = n + 1End IfNext jIf stu(i).aver >= 95 Or stu(i).rank <= 3 Thenflag = TrueElseIf stu(i).aver >= 85 And n >= 2 Thenflag = TrueEnd IfIf flag = True ThenPrint stu(i).name; Tab(10); stu(i).number; _Tab(20); stu(i).score(1); Tab(30); stu(i).score(2); Tab(40); _stu(i).score(3); Tab(50); stu(i).score(4); Tab(60); stu(i).score(5); _Tab(70); Format(stu(i).aver, "00.00"); Tab(80); stu(i).rank;PrintEnd IfNext iEnd Sub成绩查询Private Sub chaxun_Click() '成绩查询ClsPrint "姓名学号化工导论vb 线代概率物理平均分排名"i = InputBox("请输入1~20以内的学号")If i >= 21 Thenn = MsgBox("您输入的学号有误，请重新输入", vbAbortRetryIgnore = 5) End IfIf i > 0 And i <= 20 ThenPrint stu(i).name; Tab(12); stu(i).number; Tab(20);For j = 1 To 5Print stu(i).score(j); Spc(6);Next jPrint Format(stu(i).aver, "00.00"); Tab(82); stu(i).rankElseIf i > 20 ThenExit SubElseIf i < 1 ThenExit SubEnd IfEnd Sub化工导论成绩分布图Private Sub huagongdaolun_Click() '化工导论成绩分布图ClsForm1.FontSize = 8Scale (-20, 100)-(100, -20) '建立坐标系Line (0, 0)-(99, 0) '画线Line (0, 0)-(0, 99)DrawWidth = 8PSet (0, 0)CurrentX = -2CurrentY = -1Print 0CurrentX = 98.6CurrentY = 1Print ">" '打x轴箭头CurrentX = -0.45CurrentY = 99.45Print "∧" '打y轴箭头DrawWidth = 2For n = 9 To 90 Step 9Line (0, n)-(1, n)CurrentX = -2CurrentY = n + 1Print n / 9Next nDim k$(81)k(9) = "0--59"k(27) = "60-69"k(45) = "70-79"k(63) = "80-89"k(81) = "90-99"For n = 9 To 81 Step 18CurrentX = n + 2CurrentY = -2Print k(n);Next nLine (9, 36)-(18, 0), vbGreen, BF '画矩形图Line (27, 18)-(36, 0), vbGreen, BFLine (45, 27)-(54, 0), vbGreen, BFLine (63, 36)-(72, 0), vbGreen, BFLine (81, 63)-(90, 0), vbGreen, BFCurrentX = 27CurrentY = 90Form1.FontSize = 25Form1.ForeColor = vbRedPrint "化工导论成绩分布图"Form1.FontSize = 8Form1.ForeColor = vbBlackCurrentX = 95CurrentY = -2Print "分数段"End SubVb成绩分布图Private Sub VB_Click() 'vb成绩分布图ClsForm1.FontSize = 8Scale (-20, 100)-(100, -20)Line (0, 0)-(99, 0) '画X轴CurrentX = 98.7CurrentY = 0.95Print ">"Line (0, 0)-(0, 99) '画Y轴CurrentX = -0.5CurrentY = 99.25Print "∧"Form1.ForeColor = vbBlack '打原点DrawWidth = 8PSet (0, 0)CurrentX = -1CurrentY = -1Print 0DrawWidth = 2 '打Y轴刻度For i = 9 To 90 Step 9Line (0, i)-(0.5, i)CurrentX = -2CurrentY = i + 1Print i / 9Next iDim k$(81)k(9) = "0--59"k(27) = "60-69"k(45) = "70-79"k(63) = "80-89"k(81) = "90-99"For i = 9 To 81 Step 18CurrentX = i + 2CurrentY = -2Print k(i);Next iLine (9, 27)-(18, 0), vbBlue, BFLine (27, 27)-(36, 0), vbBlue, BFLine (45, 9)-(54, 0), vbBlue, BFLine (63, 36)-(72, 0), vbBlue, BFLine (81, 81)-(90, 0), vbBlue, BFCurrentX = 40CurrentY = 90FontSize = 25ForeColor = vbRedPrint "vb成绩分布图"ForeColor = vbBlackFontSize = 8CurrentX = 95CurrentY = -2Print "分数段"End Sub概率成绩分布图ClsForm1.FontSize = 8Scale (-20, 100)-(100, -20) '建立坐标系Line (0, 0)-(99, 0) '画线Line (0, 0)-(0, 99)DrawWidth = 8PSet (0, 0)CurrentX = -2CurrentY = -1Print 0CurrentX = 98.6CurrentY = 1Print ">" '打x轴箭头CurrentX = -0.5CurrentY = 99.45Print "∧" '打y轴箭头DrawWidth = 2For i = 9 To 90 Step 9Line (0, i)-(0.8, i)CurrentX = -2CurrentY = i + 1Print i / 9Next iDim k$(81)k(9) = "0--59"k(27) = "60-69"k(45) = "70-79"k(63) = "80-89"k(81) = "90-99"For i = 9 To 81 Step 18CurrentX = i + 2CurrentY = -2Print k(i);Next iLine (9, 9)-(18, 0), vbGreen, BFLine (27, 27)-(36, 0), vbGreen, BFLine (45, 18)-(54, 0), vbGreen, BFLine (63, 63)-(72, 0), vbGreen, BFLine (81, 63)-(90, 0), vbGreen, BFCurrentX = 40CurrentY = 90Form1.FontSize = 25Form1.ForeColor = vbRedPrint "概率成绩分布图"Form1.FontSize = 8Form1.ForeColor = vbBlackCurrentX = 95CurrentY = -2Print "分数段"End Sub线代成绩分布图Private Sub xiandai_Click() '线代成绩分布图ClsFontSize = 8ForeColor = vbBlackScale (-20, 100)-(100, -20) '建系Line (0, 0)-(99, 0)CurrentX = 98.75CurrentY = 0.95Print ">" '画X轴Line (0, 0)-(0, 99)CurrentX = -0.525CurrentY = 99.25Print "∧" ' 画Y轴CurrentX = -1CurrentY = -0.5Print 0DrawWidth = 6PSet (0, 0)DrawWidth = 2 '打原点For i = 9 To 90 Step 9 '打Y轴刻度Line (0, i)-(1, i)CurrentX = -2CurrentY = i + 1Print i / 9Next iDim k$(81)k(9) = "0--59"k(27) = "60-69"k(45) = "70-79"k(63) = "80-89"k(81) = "90-99"For i = 9 To 81 Step 18CurrentX = i + 2CurrentY = -2Print k(i);Next iLine (9, 27)-(18, 0), vbYellow, BFLine (27, 18)-(36, 0), vbYellow, BFLine (45, 18)-(54, 0), vbYellow, BFLine (63, 63)-(72, 0), vbYellow, BFLine (81, 54)-(90, 0), vbYellow, BF CurrentX = 40CurrentY = 80ForeColor = vbRedFontSize = 25Print "线代成绩分布图"FontSize = 8ForeColor = vbBlackCurrentX = 95CurrentY = -2Print "分数段"End Sub物理成绩分布图Private Sub wuli_Click() '物理成绩分布图ClsForm1.FontSize = 8Scale (-20, 100)-(100, -20) '建立坐标系Line (0, 0)-(99, 0) '画线Line (0, 0)-(0, 99)DrawWidth = 8PSet (0, 0)CurrentX = -2CurrentY = -1Print 0CurrentX = 98.6CurrentY = 1#Print ">" '打x轴箭头CurrentX = -0.45CurrentY = 99.45Print "∧" '打y轴箭头DrawWidth = 2For i = 9 To 90 Step 9Line (0, i)-(1, i)CurrentX = -2CurrentY = i + 1Print i / 9Next iDim k$(81)k(9) = "0--59"k(27) = "60-69"k(45) = "70-79"k(63) = "80-89"k(81) = "90-99"For i = 9 To 81 Step 18CurrentX = i + 2CurrentY = -2Print k(i);Next iLine (9, 9)-(18, 0), vbYellow, BFLine (27, 9)-(36, 0), vbYellow, BFLine (45, 27)-(54, 0), vbYellow, BFLine (63, 36)-(72, 0), vbYellow, BFLine (81, 90)-(90, 0), vbYellow, BFFontSize = 25ForeColor = vbRedCurrentX = 40CurrentY = 90Print "物理成绩分布图"FontSize = 8ForeColor = vbBlackCurrentX = 95CurrentY = -2Print "分数段"End Sub七．小结第一天去，完全什么也不知道，坐在那儿，翻书，对着电脑翻书，很是失望；下课后回去看翻书，再看别人的代码，经过老师指导才慢慢入门，后来发现还是很有趣的！通过两个星期的实习我逐渐了解程序在VB 6.0中调试并运行的方法，在其过程中，遇到了很多问题和困难，发现在之前的学习中很多知识似懂非懂，所学的东西不能完全掌握，很多甚至只是抄的笔记。
VB实验报告运行microsoft visual basic 6
一、实验目的及要求
a)理解VB中对象的概念及事件驱动的基本概念。
b)熟悉VB编程的基本步骤：界面设计、属性设置、编写代码、运行、调试、保存文件。
c)掌握常用控件的创建方法以及如何用控件建立用户界面。
d)掌握在属性窗口中设置对象属性的基本操作。
二、实验平台
安装了Visual Basic 6.0的PC机。
操作系统：WINDOWS98/2000/2003/XP 编程工具：Visual Basic 6.0
1.运行microsoft visual basic 6.0，选择新建标准EXE,单击打开
2.在右侧控件栏，右键，点“部件”，弹出如下对话框：选择相应的部件，如’ microsoft common
dialog 6.0’,依次选中，点击应用。
3.单击窗体form1，在菜单栏-——工具——菜单编辑器，如下图所示：
4.编辑菜单‘文件’、’视图’以及’帮助’,并在‘文件’下编辑二级菜单’显示图层’、’退出’,
等项目.,如下图所示:
5.在窗体form1上添加控件.,并在属性页中加载图片,按索引连接对应的图标
6.在编码窗口对各菜单及控件编码.;。
VB上机实验报告 详细易懂
实验五数组的应用一、实验目的1．掌握一维数组的概念、定义、数组元素的引用和初始化。
2．学会用数组和程序基本控制结构实现数据的求和、求平均、求极值和排序等算法程序的设计3．加深对循环控制结构的理解和使用二、实验环境1．计算机2．Visual Basic 6.0开发环境三、实验说明1．熟练运用Visual Basic 6.0开发环境2．熟悉建立VB应用程序的步骤3．学会使用一维数组实现简单的应用程序四、实验内容和步骤1.实验内容随机产生10个两位整数，找出其中的最大值、最小值和平均值。
2.实验步骤（1）打开计算机，在Visual Basic 6.0系统环境下，选择“文件”菜单中的“新建工程”菜单选项，打开“新建工程”窗口；（2）在“新建工程”窗口按下“确定”按钮打开“工程设计”窗口；（3）在“工程设计”窗口，首先设计窗口的属性，然后打开“工具箱”窗口添加所需控件，设计该实验的界面；（4）选择“视图”菜单中的“代码窗口”菜单选项，打开“代码窗口”窗口，设计命令按钮控件的事件代码；考虑到要在不同的过程中使用数组，所以首先在模块的通用段中声明数组：Dim a(1 To 10) As Integer随机整数的生成由窗体的Load事件代码完成：Private Sub Form_Load( )Dim p As StringRandomizep = ""For i = 1 To 10a(i) = Int(Rnd * 90) + 10p = p & Str(a(i)) & ","NextLabel1.Caption = L Trim(Left(p, Len(p) – 1))End Sub求最大、最小以及平均值由“确定”按钮Command2的Click事件代码完成：Private Sub Command2_Click( )Dim n As Integer, m As Integer, s As Singlemin = 100: max = 10: s = 0For i = 1 To 10If a(i) > n Then max = a(i)If a(i) < m Then min = a(i)s = s + a(i)NextText1.Text = maxText2.Text = minText3.Text = s / 10End Sub“重置”按钮Command1的Click事件代码：Private Sub Command1_Click( )Form_LoadText1.Text = ""Text2.Text = ""Text3.Text = ""End Sub最后是“关闭”按钮Command3的Click事件代码：Private Sub Command3_Click( )Unload MeEnd Sub（5）运行程序，观察结果；（6）保存窗体，保存工程。
VB实验报告
西南石油大学专业技术实习报告数据采集与接口技术专业年级: 08测控技术与仪器姓名: 李林学号: 0807010325指导老师: 石明江张禾实习时间:2011-12-26至2012-01-06基于VB的数据采集程序设计一、引言随着Windows98的推出，越来越多的微机用户已习惯于Windows 操作系统。
不过Windows应用软件的开发对于一般工程技术领域的技术人员来说并非易事，然而使用微软的VisualBasic6.0（简称VB6）来开发这些方面的Windows应用软件就十分方便，编程工作量相对较小，只需进行主要应用功能的编程和少量界面控制的编程。
VB6提供了许多供用户选择的控件（Customcontrol），这些控件以.OCX为文件后缀名，其中MSCOMM.OCX即是用于串行通信的控件。
如果需要使用该控件，可将该控件添加到工具箱（toolbox）内，这样就可以利用该控件进行串行通信程序的设计。
二、设计内容：1.设计背景：Visual Basic（简称VB）是Windows环境下简单、易学、高效的编程语言开发系统，以其所见即所得的可视化界面设计风格和32位面向对象的程序设计等特点，已广泛地应用于各个领域，是很多计算机软件开发人员采用的开发工具。
VB不但提供了良好的界面设计能力，而且在微机串口通信方面也有很强的功能。
实时数据采集系统过去在DOS操作系统下一般是采用汇编语言开发制作。
Windows操作系统的普及应用，尤其是可视化软件开发平台的出现，为软件开发提供了强大的图形界面功能，使得开发出来的应用程序具有良好的人机交互功能。
汇编语言的特点是难调试，而高级语言具有良好的可读性及方便的调试手段。
采用VB开发Winodws下的数据采集和工业控制应用软件十分方便，尤其软件界面设计非常便捷，编程工作量较小，开发周期短，特别适合非计算机专业的工程技术人员掌握和使用。
2.设计项目:a.(VB编程) WINXP下数字量输出实验(PCI总线)b.(VB编程)WINXP下程控循环灯实验(PCI总线)3.设计思想：在WINDOWS环境下利用VB6.0实现开关量输出实验、程控循环灯试验，并给出程序代码，对其稍加改动便可以改变循环的快慢和背景色以及其它视图效果。
实验一：Visual Basic6.0 集成开发环境及简单应用程序设计
注意： （1） “名称” 就是 Name 属性， 与 Caption 是不同的属性。 Name 是对象的内在名字， Caption 是对象的外在“标题” 。 （2） “名称”属性是只读属性，在属性窗口中标的是“名称” ，在程序中则用 Name。 （3）控件的 Font 属性和 ForeColor 属性用户可以根据需要设置。 第 4 步：编写事件驱动程序代码 1) 进入“程序代码窗口” （有 4 种办法） 双击要编写驱动程序的对象； 执行[视图]/[代码窗口]； 按 F7 键； 单击“工程资源管理器”的“查看代码” 程序代码窗口： 对象框 过程/事件 框
实验步骤 ：
第 1 步：创建一个工程 单击“文件”－“新建工程” ，选“标准 EXE” ，按确定。 第 2 步：建立用户界面 在窗体上按照题目要求画出控件： 1) 画三个“文本框” ，框内自动标出“Text1、Text2、Text3” ； 2) 画三个标签, 标签内自动标出“Label1、Label3、Label3” 3) 画四个“命令按钮” ，按钮内自动标出“Command1、Command2、 Command3、Command4” 。 画完所有控件后，适当调整其位置和大小。 思考：一般情况下，同类按钮应该一样大，应怎样实现？ 第 3 步：设置控件的属性 对象 窗体 标签 1 标签 2 标签 3 文本框 1 文本框 2 文本框 3 按钮 1 按钮 2 按钮 3 按钮 4 名称(Name) Form1 Label1 Label2 Label3 txtData1 txtData2 txtRel cmdAdd cmdSub cmdCls cmdEnd Caption VB 程序设计示例 数据 1 数据 2 计算结果 加法 减法 清屏 退出 Text 空 空 空 -
《VB过程实验报告》
《VB程序设计》实验单元一实验报告专业班级：经济学类1202 班姓名刘金学号201218910204 指导教师：王云侠完成时间：2013.6.02一：实验题目过程二：实验环境Windows win7系统；VB 6.0三：实验目的1.掌握自定义函数过程和子过程的定义和调用方法。
2.掌握形参和值参之间的对应关系。
3.掌握值传递和地址传递的传递方式。
4.掌握变量，函数和过程的作用方法。
5.掌握递归的概念和使用方法。
6.熟悉程序设计中的常用算法。
四：实验内容1.编一子过程Proc Min（a(),amin），求一维数组a中的最小值amin。
4编写一个函数过程，Is H(n)，对于已知正整数n，判断该数是否是回文数，函数的返回值类型为布尔型。
主调程序每输入一个数，调用Is H函数过程，然后在列表框中显示输入的数，对于是回文数显示一个“★”。
五：实验步骤第1题：（1）打开VB6.0(2) 建立新工程任务form1(3) 双击工程窗界面，输入以下代码：Private Sub Form_Click()Dim a(1 To 10), amin, i%For i = 1 To 10a(i) = -Int(R n d * 101 + 300)Print a(i);Next iCall s(a(), amin)PrintPrint "min="; aminEnd SubSub s(b(), min)Dim i%min = b(L Bound(b))For i = L Bound(b) + 1 To U Bound(b)If b(i) < min Then min = b(i)Next iEnd Sub（4）单击运行即可第4题（1）打开ＶＢ新工程，双击页面直接创建选择以下窗口字字（2）操作过程分别建立command 1 , text1 , label 1, 和picture box 1 并相应输入：“数据显示”，清除text 1,“数据输入”字样。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
试验报告院（系）：课程名称：日期：
代码：
Private sub command1_click() a=val(text1.text)
b=val(text2.text)
c=val(text3.text)
Private sub command1_click() a=val(text1.text)
5. 在程序中声明一个常量，然后改变其值，观察程序执行结果；分别定义全局变量、窗体级全局变量及私有变量，并区别其异同。
代码：
全局变量public x as integer 作用于整个应用程序
窗体模块变量dim x% private x% 作用于窗体模块
Dim a(6) As Double
Public Sub Command1_Click()
Private Sub Command1_Click() Dim a(1 To 20) As Integer
k = 1
For i = 1000 To 3 Step -1
出来。
\
题2 程序运行界面
代码：
Private Sub Command1_Click()
x As Long
Private Sub Command1_Click() Picture1.Left = Picture1.Left + 100 End Sub
Dim A(20) As Integer
Dim max As Integer, min As Integer
Private Sub Command1_Click() Dim i As Integer
Private Sub Timer1_Timer()
Vb程序设计实验报告
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 2 Then '如果点的是右键
第21 页共21 页。