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. 问题解决在项目开发过程中，我们遇到了一些问题，并采取了相应的解决策略。
例如，在员工信息模块中，由于员工照片的上传和显示涉及到文件操作和路径设置，我们遇到了一些路径错误和图片加载问题。
通过仔细检查代码和路径设置，最终解决了这些问题。
同样，在权限管理模块中，我们遇到了一些安全性和数据保护的问题。
通过加密算法和访问控制的设置，我们增强了系统的安全性，避免了未授权用户的非法访问。
- 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 页。