VB课程设计报告
南 京 理 工 大
学
能源与动力工程学院
VB课程设计报告
题目1： 贪吃蛇游戏
题目2： 列车时刻查询
指导老师： 张小兵
学生姓名： 学 号:
专 业：
班 级： 10083201
2011年3月20日 《VB程序设计》课程设计报告
- 1 -
《VB程序设计》课程设计任务书
题目：
用VB语句实现贪吃蛇游戏
任务与要求：
程序能够实现简单的贪吃蛇游戏，保证软件可正常运行。
时间：2011 年 2 月 22 日 至 2011 年 3 月 13日 共 3 周
学生姓名： 马帅 学 号： 1008320126
专业： 武器系统与发射工程
指导教师： 张小兵
2011年3月 20日
课程设计题目：
- 2 - 贪 吃 蛇 游 戏
第一章 课程设计目的
随着学习内容的不断增多，各专业知识也不断增长，为了有效地提高学习效率，更有效的掌握所学知识，利用所学知识设计贪吃蛇游戏，熟练运用专业知识。本课题主要锻炼了对于控件数组，绘图，键盘事件处理，文本文件的读写，多模块程序设计，定时器控件，菜单的使用等知识的运用能力。
第二章 课程设计的要求
题目介绍：
“贪吃蛇”是一款很流行的电子游戏。一条蛇在棋盘状的格子上爬行，由键盘控制其转弯；格子上随机地出现5个数字（1－5），当蛇的头部碰到数字时会将数字“吃掉”，蛇的身体会变长。当蛇的头撞到障碍物（深色部分）或碰到自己身体时，游戏结束。游戏结束时，蛇身越长得分越高。
课程设计功能要求：
（1）程序启动界面由20*20个方格构成。开始时，蛇静止不动，蛇身由一串共5个圆圈表示，身体黄色，代表头部的圆圈为红色，且有两只绿眼睛。
（2）按回车键开始游戏，蛇自动向前爬行，用户使用“←↑↓→”4个方向键使其拐弯不至于碰到障碍物或自己。蛇只能向前走或向左右转90度的弯，不能后退。吃掉一个数字后，蛇的身体的幅度与数字的大小相同。例如，吃掉“3”后，蛇身伸长3个圆圈。蛇身体的伸长不是一下子完成的，而是在吃掉数字后一边爬行一边伸长的，这样是为了避免蛇的“尾巴”突然伸长撞到障碍物或蛇自己。
（3）5个数字（1 -5）的位置是随机的，互不重叠的，且不能出现在障碍物和蛇的身上。当蛇吃掉一个数字时，同样的数字随机的出现在其他位置上，即格子上总保持有“1-5”5个数字。 《VB程序设计》课程设计报告
- 3 - （4）游戏进行时，窗口标题栏上显示出已使用的时间和得分，得分是当前蛇身体的长度。使用回车键可以暂停或继续游戏。
（5）蛇在爬行到边界时，如果未遇到障碍物，会从一侧爬出再从对面一侧爬入。如果运行过程中，其头部碰到障碍物或自己的身体，则被撞死，游戏结束。如果该用户的成绩超过了记录成绩，则显示对话框，提示输入用户名，以供记录成绩由“排行榜”功能显示。
（6）通过程序菜单的“开始/暂停（回车）”命令，也可以暂停或继续游戏（与回车键功能相同）。选择“新开局”菜单项可以从头开始游戏。
（7）选择“设置”菜单命令，打开设置对话框。在该对话框中可以选择不同的障碍物形状，也可以指定背景和障碍物的颜色。单击“设置”对话框底部的“背景颜色”和“障碍物颜色”后面的颜色区，弹出“颜色”公共对话框来指定颜色。设置完毕后，单击“确定”按钮关闭“设置”对话框，游戏将按所选形状从头开始游戏。下一次启动程序，自动使用上次的设置。
（8）选择“排行榜”菜单命令打开“排行榜”对话框，显示每种障碍物下的最好成绩。选择“清除所有记录”按钮可将记录清零。
第三章 课程设计报告内容
一．贪吃蛇游戏界面
主窗体界面：
课程设计题目：
- 4 -
“帮助”窗体界面：
“设置”窗体界面：
“排行榜”窗体界面： 《VB程序设计》课程设计报告
- 5 -
“关于”窗体界面：
二．贪吃蛇游戏部分代码
主窗体的部分代码：
'为所有随机出现的的数字定位：
Sub ShowNumberAll()
Dim i As Integer, j As Integer
Dim k As Integer, m As Integer, l As Integer
Dim f As Boolean
Randomize
For m = 1 To 5
Do
i = Int(Rnd * 20)
j = Int(Rnd * 20) 课程设计题目：
- 6 - '判断数字出现的位置是否合理
f = True
For k = 1 To intNum '判断是否出现在蛇身上
If i = Int(shp(k).Left / GRID) And j = Int(shp(k).Top / GRID) Then
f = False
Exit For
End If
Next
If f = True Then
For k = 1 To m - 1 '判断是否出现在已有的数字上
If i * GRID = lblNumber(k).Left And j * GRID = lblNumber(k).Top Then
f = False
Exit For
End If
Next
End If
If f = True Then
For k = 1 To 20 '判断是否出现在障碍物上
For l = 1 To 20
If Maze(j + 1, i + 1, curMaze) = 1 Then
f = False
Exit For
End If
Next
Next
End If
If f = True Then
Exit Do
End If
Loop
AppleX(m) = i
AppleY(m) = j
lblNumber(m).Left = AppleX(m) * GRID
lblNumber(m).Top = AppleY(m) * GRID
Next
End Sub
'为指定的数字定位：
Sub ShowNumber(m As Integer)
Dim i As Integer, j As Integer
Dim k As Integer, l As Integer
Dim f As Boolean
Randomize
Do
i = Int(Rnd * 20) 《VB程序设计》课程设计报告
- 7 - j = Int(Rnd * 20)
' 判断数字出现的位置是否合适
f = True
For k = 1 To intNum
If i = Int(shp(k).Left / GRID) And j = Int(shp(k).Top / GRID) Then
f = False
Exit For
End If
Next
If f = True Then
For k = 1 To 5
If i * GRID = lblNumber(k).Left And j * GRID = lblNumber(k).Top Then
f = False
Exit For
End If
Next
End If
If f = True Then
For k = 1 To 20 '判断是否出现在障碍物上
For l = 1 To 20
If Maze(j + 1, i + 1, curMaze) = 1 Then
f = False
Exit For
End If
Next
Next
End If
If f = True Then
Exit Do
End If
Loop
AppleX(m) = i
AppleY(m) = j
lblNumber(m).Left = AppleX(m) * GRID
lblNumber(m).Top = AppleY(m) * GRID
End Sub
'画蛇：
Private Sub DrawSnake()
Dim i As Integer
intNum = 5 '初始段数
ReDim intDirect(5)
intDirect(1) = MazeInfo(3, curMaze)
shp(1).Left = GRID * (MazeInfo(2, curMaze) - 1) '蛇头位置
shp(1).Top = GRID * (MazeInfo(1, curMaze) - 1) 课程设计题目：
- 8 - For i = 2 To intNum '加载新节点并确定其相对于头部的位置
Load shp(i)
shp(i).FillColor = vbYellow
shp(i).Left = shp(i - 1).Left
shp(i).Top = shp(i - 1).Top
计算机程序设计语言(VB)课程设计实验报告的撰写要求
计算机程序设计语言(VB)课程设计实验报告的撰写要求
总体要求：文字通顺，条理清楚，结构合理，格式规范。
☆一套完整的课程设计说明书主要包括：
A.封面；B.；C.目录；C.正文；D.参考文献；E.致谢；F.附录等。
课程设计说明书一律左侧装订，装订顺序为：
封面→课程设计任务书→目录→正文→参考文献→致谢→附录。
☆正文参考格式：
一、设计目的
二、系统分析
三、系统设计
四、系统实现
五、系统测试
六、总结
七、参考文献
八、致谢
九、附录
☆具体要求：
1.排版要求
页面设置：上下页边距为2.54，左右页边距为2.6；
字符间距：标准；
页面大小：A4；
页码：每页下端居中，全部采用阿拉伯数字排序，如1，2，„„，99，100，„„等，页码两边不加修饰符，页码编号从正文开始；
页眉、页码：页眉为“江苏科技大学南徐学院课程设计”，宋体，五号，居中排列；页码居页面底端居中。页眉页码均从目录后开始设置。附录中图纸、原文复印件等可不设置。
2.内容应有目录、中文摘要、关键词、正文、参考文献、致谢、附录；
3.“目录”两字用小二号宋体加粗且居中，字与字之间空两个汉字宽，空两行为目录内容，目录内容字体用小4号宋体，页码放在行末，目录内容和页码之间用虚线连接，采用两端对齐。目录根据正文内容自动生成。
4.中文摘要：主要说明本次课程设计（实习）的目的、内容、方法和主要结果，力求语言精炼准确，字数控制在200字以内。格式如下（□为一个汉字宽）：
□□【摘□要】：（小4号宋体加粗）××××（小4号宋体）
5.关键词：关键词是表述说明书（报告）中主要内容信息的单词或术语，关键词数量一般为3-6个，每个关键词之间用逗号隔开。格式如下：
□□【关键词】：（小4号宋体加粗）×××，××，×××（小4号宋体）
6.正文：
一级标题（1.1）：四号黑体、20磅行距、段前18磅、段后12磅、左对齐；
二级标题（1.1.1）：13磅黑体、20磅行距、段前后12磅、左对齐；
VB课程设计-学生成绩处理系统
--
-- 长 江 大 学
Ｙanｇtｚe unｉveｒsｉty
ＶB课程设计实习报告
专业班级﹕储运1１001
学生学号﹕20１007078
学生姓名﹕彭壮
班级序号﹕１6
指导老师﹕冯翠丽
完成时间﹕2011－１2—22
一.设计题目
学生成绩管理系统
二． 设计思路
从文本中读取文件数据,利用VB的顺序结构，选择结构，循环结构编写程序代码，最终将各代码写入界面设计中的各菜单下.
三． 程序实现的目标
本程序将实现从文本中读取数据，赋值数据，运算数据，实现对学生的加权平均值，名次，全班每门课的分数段，不及格同学名单，优等生名单--
-- 等运算，并写入文件。
四. 程序设计框图
五。运行结果
原始成绩 分数处理 成绩分布 打印 查询成绩
每位学生的加权分数 按加权分数排名 每门课程的班级平均分 加权平均分分布 每门课成绩分布 每位学生的成绩条 不及格学生名单 优等生名单 按姓名查找 按学号查找 按名次查找 从文本中读取数据
赋值运算并写入文件 --
--
课程学分
原始成绩和原始课程学分文件读取 --
--
原始课程文件 --
--
加权平均分
成绩排名 --
--
每门课程的班级平均分
加权平均分分布 --
--
每门课程及分布
成绩条 --
--
优等生名单
不及格学生名单 --
--
成绩查询系统
按姓名查找
示例﹕ --
--
按学号查找
示例﹕ --
--
按名次查找
示例﹕ --
--
六.源程序
模块代码：
Type xscｊb
xh As Ｓtring
xm Ａs Ｓｔｒiｎg
cj(1 Tｏ ５） Ａｓ Integｅr
ａvｅr As Ｓｉnglｅ
ｍｃ As Intｅger
Enｄ Tyｐe
Tｙｐe keｃhen
编号 Aｓ Intｅgeｒ
VB实验报告1-9
实验一：设计简单的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．掌握常量和变量、表达式的基本概念和正确书写格式。
vb课程设计
VB课程设计
1. 引言
VB（Visual Basic）是一种面向对象的编程语言，由微软公司开发。它结合了基本的编程概念和直观的图形用户界面，使得编写应用程序变得简单和直观。本文将介绍VB课程设计的相关内容，包括设计目标、设计过程和实施步骤等。
2. 设计目标
VB课程设计的主要目标是培养学生的编程能力和解决问题的能力。通过设计一个实际应用程序，学生可以学习如何使用VB语言进行程序设计，并了解软件开发过程中的各个环节。
3. 设计过程
VB课程设计的设计过程包括以下几个步骤：
3.1 确定需求
在开始设计之前，首先需要明确应用程序的需求。这包括确定应用程序的功能、用户界面和交互方式等。如果我们要设计一个学生成绩管理系统，需求可能包括添加学生信息、查询成绩和生成报表等功能。
3.2 设计界面
在确定需求后，接下来需要设计应用程序的用户界面。这包括确定窗体布局、控件位置和样式等。通过使用VB提供的可视化设计器，可以方便地创建用户界面，并进行调整和修改。
3.3 编写代码
界面设计完成后，就可以开始编写代码了。VB使用基于事件的编程模型，通过响应用户的操作来触发相应的事件处理程序。在编写代码时，需要考虑到各种可能的情况，并进行适当的错误处理。
3.4 测试和调试
在编写完代码后，需要对应用程序进行测试和调试。这包括对各个功能进行测试，检查是否存在错误和异常情况，并进行适当的修复和优化。
3.5 文档撰写
在完成测试和调试后，需要撰写相应的文档。文档内容包括应用程序的功能介绍、使用说明和技术实现等。这有助于其他人了解和使用该应用程序。 4. 实施步骤
VB课程设计的实施步骤如下：
4.1 学习VB语言基础
在开始设计之前，学生需要学习VB语言的基础知识。这包括语法、数据类型、控制结构、函数和对象等。通过学习这些知识，学生可以掌握VB语言的基本用法。
4.2 学习VB开发环境
除了学习VB语言外，学生还需要熟悉VB开发环境。这包括VB集成开发环境（IDE）的使用、项目管理和调试工具等。通过熟悉这些工具，学生可以更加高效地进行程序设计和开发。
VB实验报告求解一元二次方程
个人收集整理 勿做商业用途
实验报告3:VB程序设计
二、计算二元一次方程。
1、目的和要求
（1）熟练掌握控件的使用。
(2）复习巩固系统给用户提供算数函数的用法。
2、内容和步骤
(1）创建窗体
窗体form1由二个命令按钮command1、command2、四个标签label1、 label2、 label3、label4、三个文本框text1 、text2、 text3组成.
（2)设计窗体界面及属性
属性设置：
对象名 控件名 属性名 属性值 功能
command command1 Caption 计算 计算方程
Command2 Caption 清除 清除文本框内的内容
label label1 Caption 二次项系数a 提示
Label2 Caption 一次项系数b 提示
Label3 Caption 常数项c 提示
text1 text1 Text 空 显示a
Text2 Text 空 显示b
Text3 Text 空 显示c
Text4 Text 空 显示求解结果
（3）编写代码
Private Sub Command1_Click()
Dim a As Long， b As Long， c As Long
Dim d As Long, t As Single 个人收集整理 勿做商业用途
Dim x1 As Single， x2 As Single， x3 As Single， x4 As Single
a = Val(Text1。Text)
b = Val(Text2。Text)
c = Val（Text3。Text)
If a = 0 Then
If b = 0 Then
If c = 0 Then
Label4.Caption = ”方程有无穷多解”
vb用户界面设计实验报告（共9篇）
vb用户界面设计实验报告(共9篇)
VB第7章 用户界面设计 一、选择题
1、下列控件中，没有Caption属性的是( )。
A. 框架B. 列表框C. 复选框D. 单选按钮 2、复选框的Value属性为1时，表示( )。
A. 复选框未被选中 B. 复选框被选中 C. 复选框内有灰色的勾D. 复选框操作有错误
3、用来设置粗体字的属性是( )。
A. FontItalicB. FontNameC. FontBold D. FontSizeE. 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. 10000C. 10D. 以上都不对 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显示“字体”对话框
VB基于某SpeechSDK地语音信号识别
*大学
课 程 设 计
〔说明书〕
基于Speech SDK的语音信号识别
班级 / 学号 *
学 生 姓 名 *
指 导 教 师 *
*大学
课 程 设 计 任 务 书
课 程 名 称 综合课程设计
院〔系〕 电*院 专业 电*程
班级*学号*某某*
课程设计题目基于Speech SDK的语音信号识别
课程设计时间: 20*日
课程设计的内容与要求：
一、设计说明
语音识别研究在国内外已经有了很多年的开展历史，特别是在近些年，随着实验室条件下语音识别的飞速开展，语音识别的应用已经离我们越来越近。语音识别作为一种重要的信息识别方式在金融、人机交互、电信等领域有着极大的应用空间。
课程设计根本要求①学会 Speech SDK 的使用，掌握其语音识别工具包的设计方法。②掌握在 Windows 环境下语音信号采集的方法。③掌握语音信号识别的根本概念、根本理论和根本方法。④掌握语音信号识别经典算法。⑤学会用Speech SDK对信号进展识别。
三、实验要求
1．根据设计要求制定方案；
2．进展语音测试数据的分析。
四、推荐参考资料
[1] 李禹才, 左友东, X秀清等. 基于Speech SDK 的语音控制应用程序的设计与实现[J].计算机应用, 2004
[2]易克初，田斌，付强编著 .语音信号处理 .:国防工业,2000
[4]蔡莲红，黄德智，蔡锐．现代语音技术根底与应用[M]．清华大学，2003．
五、按照要求撰写课程设计报告
指导教师 2011 年 12 月 19 日
负责教师年月日
学生签字 2011 年 12 月 19 日
成绩评定表
评语、建议或需要说明的问题：
指导教师签字： 日期： 成 绩
vb课程设计汽车销售管理系统
vb课程设计汽车销售管理系统
一、教学目标
本课程旨在通过学习VB课程设计汽车销售管理系统，使学生掌握以下知识目标：
1. 理解VB编程语言的基本语法和编程思想。
2. 掌握汽车销售管理系统的业务流程和需求分析。
3. 学习VB中数据库的连接和操作方法，了解数据绑定和数据验证的技术。
4. 能够运用VB编程语言独立完成简单的程序设计。
5. 能够使用VB进行汽车销售管理系统的需求分析和设计。
6. 能够熟练运用VB中的数据库连接和操作技术，实现对汽车销售管理系统的数据管理。
情感态度价值观目标：
1. 培养学生的团队协作能力和自主学习能力。
2. 使学生理解信息技术的应用对提高工作效率和管理水平的重要性。
3. 培养学生对汽车销售管理行业的兴趣和热情。
二、教学内容
本课程的教学内容主要包括以下几个部分：
1. VB编程语言基础知识：VB的基本语法、数据类型、控制结构、函数等。
2. 汽车销售管理系统的需求分析：了解汽车销售管理系统的业务流程，学习如何进行需求分析。
3. VB数据库连接与操作：学习如何使用VB连接数据库，进行数据的增删改查等操作。
4. 汽车销售管理系统的实现：运用VB编程语言和数据库技术，实现汽车销售管理系统的各个功能模块。
三、教学方法
为了提高教学效果，我们将采用以下教学方法： 1. 讲授法：讲解VB编程语言的基础知识和数据库技术。
2. 案例分析法：分析实际案例，让学生更好地理解汽车销售管理系统的需求分析和设计。
3. 实验法：让学生动手实践，实际操作VB编程和数据库操作，巩固所学知识。
四、教学资源
为了支持教学，我们将准备以下教学资源：
1. 教材：《VB编程语言》和《汽车销售管理系统设计与实现》。
2. 参考书：提供相关的VB编程和数据库技术参考书籍。
3. 多媒体资料：制作相关的教学PPT和视频教程。
4. 实验设备：提供计算机实验室，让学生进行实际操作。
五、教学评估
课程设计方案vb和MapObjects的二次开发
课 程 设 计 报 告
课程名称： 地理信息系统
设计名称：MapObjects的二次开发
院
专业班级：*********
姓 名： ***************
学 号： ***********
指导教师：********
****年 * 月 *日
一、设计目的：
<1）、实习类型：课程设计；
<2）、了解VB的软硬件环境、MapObjects数据类型；
<3）、初步掌握该软件的基本操作技能；
<4）、能够熟练的操作VB6.0软件，并能应用该软件简单的与MO进行开发
<5）、掌握产品的输出设计。
<6）、培养利用GIS方法解决实际问题的能力。
二、设计主要仪器设备，器材，药品，软件等
<1）软件准备：VB6.0
<2）硬件准备：PC机 500M内存，128M显卡
<3）资料准备：MapObjects控件、USA等SHP文件
三、设计原理和内容：
<1）设计题目：MapObjects的二次开发
<2）具体要求：应用VB软件与MO控件进行结合，实现MO的二次开发。
<3）功能描述：
MapObjects是可以允许用户向应用程序中添加地图的制图软件控件集合。
MapObjects 可以在多种符合工业标准的开发环境下使用，比如 Visual
Basic，PowerBuilder，Visual C++等。 MapObjects 可以直接嵌入到这些开发环境中使用，允许用户快捷地创建应用程序。
MapObjects运行于Windows XP或Windows NT 4.0或更高版本。
MapObjects 包括一个ActiveX 控件 (OCX> 也就是Map控件，还包括45个
ActiveX 自动对象。可用于符合IT行业标准的Windows编程环境。
MapObjects主要功能：
显示一张包含多个图层的地图(道路，河流，边界>。
资料：vb图片浏览器报告书
模板资料 资源共享 河北工业大学计算机软件技术基础（VB）
课 程 设 计 报 告 书
学院 土木工程 班级 交通运输051 设计人 吴会博 学号 051318
一、 设计题目：图片浏览器程序
二、 设计思路：建立两个窗体，在窗体1选择图片，窗体2中显示图片。在窗体1上建立DirListBox、 DriveListBox、 FileListBox 、PictureBox、commandbutton 等控件。DriveListBox， DirListBox， FileListBox用于选择图片。若选择的路径下有适合的图片格式则在FileListBox中显示出来。若不合适则不显示。Commandbutton用于关闭浏览器。控件大小随窗体大小可变化。 PictureBox建在窗体2中用于显示图片。窗体大小随图片大小变化而变化。单击窗体1中的图片由Form2.Picture1.Picture = LoadPicture(Form1.File1.FileName)在PictureBox中显示出来。
三、 过程调用关系：
四、 程序清单：
Form1 (文件选择):
Option Explicit
Dim w As Single '记录原窗体宽度和高度的变量
Dim h As Single
Dim ww() As Single
Dim hh() As Single
Dim mleft() As Single '记录原窗体中个控件的宽度，高度，起始坐标点的数组
Dim mtop() As Single
Private Sub Command1_Click()
End '结束程序
End Sub
Private Sub Dir1_Change()
File1.Path = Dir1.Path '取得当前文件夹的文件
End Sub DirListBox FileListBox PictureBox DriveListBox