台州学院
《VB程序设计》实验报告
实验九：文 件
一、实验目的和要求
1．熟练掌握顺序文件的基本操作；
2．熟练掌握驱动器列表框、目录列表框和文件列表框等三个文件操作控件的功能和建立。
二、实验主要仪器和设备
计算机一台，Windows XP操作系统，Visual Basic环境。
三、实验内容
实验9.1 编程，设计如图9-1所示的图片欣赏程序，其中窗体上放置驱动列表框、目录
列表框和文件列表框三个控件，设置属性使得三个控件能够联运；设置文件列表框只显示*.bmp和*.jpg类型的图片文件；当单击文件列表框上的某图片文件名时，图片显示在图片框中。
图9-1 图片欣赏运行界面
实验9.2 某文本文件以下列格式存储若干学生的学号和两门课成绩，编写单击窗体的事件过程：
（1）用通用对话框控件Commondialog1选择该文件；
（2）在Label1(0)～Label1(1)显示总分最高的学生之学号、总分。
文本文件格式
“05010101”,78,89
“05010102”,83,79
……
四、实验原始纪录
实验9.1
程序的界面设计。
程序代码。
Private Sub Form_Load()
Drive1.Drive = "e:"
File1.Pattern = "*.bmp;*jpg"
End Sub
Private Sub Drive1_Change()
Dir1.Path = Drive1.Drive
End Sub
Private Sub Dir1_Change()
File1.Path = Dir1.Path
End Sub
Private Sub File1_Click()
Image1.Picture = LoadPicture(File1.Path + "\" + File1.FileName)
End Sub
实验9.2
程序的界面设计。
程序代码。
Private Sub Form_Click()
Dim xh As String, cj1 As Integer, cj2 As Integer
Dim topxh As String, topcj As Integer
CommonDialog1.ShowOpen
Open CommonDialog1.FileName For Input As #1
Do While Not EOF(1)
Input #1, xh, cj1, cj2
If cj1 + cj2 > topcj Then
topcj = cj1 + cj2
topxh = xh
End If
Loop
Close #1
Label1(0).Caption = topxh
Label1(1).Caption = topcj
End Sub
五、实验结果及分析
实验9.1运行结果。
实验9.2运行结果。
六、实验总结与思考（主要写一些在实验过程中，遇到的问题、所犯的错误，以及是如何发现纠正的。大约100至200字左右。）
学到这里，vb已经告一段落了。不过还好，还是收获了不少。这是我感到很欣慰。虽然也遇到了不少问题，不过还都能及实际解决。接下来就是复习迎考了。
第二篇：vb实验报告9
台州学院
《VB程序设计》实验报告
实验九：文 件
班级：12化学2
学号：12320xx045
姓名：屈王波
实验日期：20xx-5-23
一、实验目的和要求
1．熟练掌握顺序文件的基本操作；
2．熟练掌握驱动器列表框、目录列表框和文件列表框等三个文件操作控件的功能和建立。
二、实验主要仪器和设备
计算机一台，Windows XP操作系统，Visual Basic环境。
三、实验内容
实验9.1 编程，设计如图9-1所示的图片欣赏程序，其中窗体上放置驱动列表框、目录列表框和文件列表框三个控件，设置属性使得三个控件能够联运；设置文件列表框只显示*.bmp和*.jpg类型的图片文件；当单击文件列表框上的某图片文件名时，图片显示在图片框中。
图9-1 图片欣赏运行界面
实验9.2 某文本文件以下列格式存储若干学生的学号和两门课成绩，编写单击窗体的事件过程：
（1）用通用对话框控件Commondialog1选择该文件；
（2）在Label1(0)～Label1(1)显示总分最高的学生之学号、总分。
文本文件格式
“05010101”,78,89
“05010102”,83,79
……
四、实验原始纪录0
实验9.1
程序的界面设计。
程序代码。
Private Sub Form_Load()
Drive1.Drive = "e"
File1.Pattern = "*.BMP;*.jpg"
End Sub
Private Sub Drive1_Change()
Dir1.Path = Drive1.Drive
End Sub
Private Sub Dir1_Change()
File1.Path = Dir1.Path
End Sub
Private Sub File1_Click()
Image1.Picture = LoadPicture(File1.Path + "\" + File1.FileName)
End Sub
实验9.2
程序的界面设计。
程序代码。
Private Sub Form_Click()
Dim xh As String, cj1 As Integer, cj2 As Integer
Dim topxh As String, topcj As Integer
CommonDialog1.ShowOpen
Open CommonDialog1.FileName For Input As #1
Do While Not EOF(1)
Input #1, xh, cj1, cj2
If cj1 + cj2 > topcj Then
topcj = cj1 + cj2
topxh = xh
End If
Loop
Close #1
Label1(0).Caption = topxh
Label1(1).Caption = topcj
End Sub
五、实验结果及分析
实验9.1运行结果。
实验9.2运行结果。
六、实验总结与思考（主要写一些在实验过程中，遇到的问题、所犯的错误，以及是如何发现纠正的。大约100至200字左右。）
第三篇：实验实训总结报告
商品流通学综合实训总结报告
此次实训的目的是实践已经学到的专业技能，培养做事时的心态以及对超市做市场营销相关分析。让我们获得实践经验，以此来创造一个又一个通往成功的阶梯。我们选择的是人人乐超市做为我们的目标企业。通过在网上的资料收集，并去人人乐超市实地调研，我们对人人乐超市的各方面都进行了实地调查与总结。主要任务是对人人乐超市店铺的选址、商品价格、商品的陈列情况、自有品牌、经营模式、物流情况、库存管理等进行市场调查。
人乐连锁商业集团股份有限公司前身为深圳市人人乐连锁商业有限公司，成立于19xx年x月。公司主营业务为大卖场、综合超市和百货的连锁经营。截止20xx年x月x日，人人乐已在全国开设门店108家，网点遍布数十个大中城市，总营业面积超过150万平方米， 20xx年销售收入超过100亿元，位居中国连锁百强企业第39位和中国快速消费品连锁百强企业第17位。20xx年开始入驻重庆，它首选石桥铺扎寨，是因为当地有规模、上档次的商家不多，而位于高新区中心的区位优势又决定了它的消费力较强，有资料显示，先期进入的新世纪已经尝到了甜头，提前进入例如盈利期，因此人人乐对安家石桥铺的信心十足。
本次实训共历时5天，每天都有不同的内容和任务。我们自己自由分组，我们组有3命成员：黄晓担任组长，组员张庄、张纯圆。实训第一天实训任务：收集人人乐超市渝州店的相关资料，了解起背景，为到人人乐超市实地调研做准备。第二天的任务：继续收集资料，但做出调研报告，列出一个简单的调查的内容，针对性进行调查，我们小组打算对它的7个方面进行调查：1）超市的选址 2）商品价格 3）经营模式 4）商品的陈列情况 5）自主品牌 6）商品种类。第三天：我们来到了人人乐超市渝州店，进行实地调研。在经理的带领下，我们参观了收货部、仓库、卖场等地。我们了解到收货到进入卖场需要经历的流程（收货进入，商品验收，周转，备货，进入卖场，退货）。人人乐超市实行封闭式管理取货流程，封闭式管理存货流程。在商品价格方面与其他超市无多大差异，超市有它的自主品牌，经理给我们介绍了一种食品品牌----好唯乐豆干，经过这半天的实地考察我们收获了很多，心中的疑问也解决了不少。第四天的实训内容：将我们了解到的关于人人乐超市渝州店的相关信息做成PPT，我们小组的PPT内容大致分为了7个方面：1）超市简介 2）超市的选址 3）经营规模商品陈列情况：畅销的商品都放在最显眼的地方 4）仓库管理 5）商品种类 6）自有品牌 7）实训小结。
我们结合着自身的购物体验，以及在人人乐超市实地调研的基础上，我们这一小组针对人人乐超市提出了相应的建议和意见。
一、比如购物的时候，特别是节假日人流较多时，超市会显得很拥挤，而一些老年人或者残疾人购物就会很不方便。我们就建议在超市内增添老弱病残等特殊人群的专用通路，并安排人员对着这一特殊人群进行商品介绍、导购等服务。给他们一种温馨的购物环境。
二、在超市内完善服务实施，导购牌，安全、厕所指向牌等等。
三、人人乐超市里面没有设置商品价格查询机，有时价标太多挤在一块，上面的价格等信息又有些 模糊，旁边又没有销售人员，就不能确定其具体价格是多少，就会导致流失购买此商品的顾客或 在结帐时产生争议。 所以我们建议在商品种类繁多的地方配置商品查询机。以满足顾客需求。
四、在客流量高峰期，选购物品繁多与少件的顾客都在一起排队结帐，导致选购少件物品的顾客等待很久才能结帐，会导致购买少件商品的顾客因要排很久的队从而放弃所购买的商品，既流失了部分顾客，也加大了工作人员的工作力度。而我们根据这一弊端，建议开设少件物品结帐专用通道，提高购买少件商品的顾客的结帐效率。
转眼，一周的实训就结束了，我很感谢学校安排实训这样的实训，以及老师的细心指导。实训把我们这一学期学习的内容集中的进行训练，提高了我们的专业水平，积累了实践经验。老师耐心指导，我们不会的问题，即使是讲过几次，老师还是会再次更详细地解说，提示我们一些重要的方法及技巧。对我们做的调研内容进行评析，指出不足，也让我们了解到学习的重点内容。通过这次实训，我感受到了做任何事都应该提前做好准备工作。我们了解到实践得真知，一切学习的知识是要建立在实践的基础上。实训还让我学到了书本上学不到的东西，感受到了团队合作，增加我们的阅历，累积了实践经验提高了我们的实际操作能力和应变能力。在以后的学习中我们更知道我们应该学习和掌握的知识，并对以后工作有一定的知道作用。