课 程 设 计 任 务 书本题难度级别：D 样例程序(实现基本要求)代码: 49行主要涉及:列表框、命令按钮、图片框和文本框控件的使用一、 设计题目：停车场 本题主要考察对列表框、图片框等控件的应用能力。适合文科类学生。二、目的与要求：1.目的： 培养学生综合利用VB语言进行程序设计的能力，通过使用列表框、图片框和文本框及标签完成一个简单的应用程序，培养学生综合使用控件的能力。2.基本要求：参照者铁道出版社：《VB程序设计基础》185页6.6.1的列表框控件，编写一个程序，要求具有如下的功能（界面及基本要求的功能详见所附样例程序）：n 随机产生100个车牌号，放入左侧列表框中，车牌号以“京津冀晋鲁豫陕甘宁辽吉黑”中的一个汉字开始，然后是一个“•”，再往后是26个大写字母中的一个，然后是一个英文空格和一个5位的数字，不足5位要以0补足。n 中间是不少于6个的停车位(样例程序提供了6个)，分为两种状态：有车和无车。n 点击左侧列表中的车牌号，则对应的车从列表中消失，进入中间的停车场，并记录在出入记录中，同时更新停车场状态。如果没空闲车位，要给出提示消息。n 点击某个有车的停车位，该位置变成空闲状态，同时在右侧文本框中记录。如果点击的车位中无车，给出相应的错误信息。n 有车时，对应图片框下部显示车牌号，无车时，显示“车位#空闲”。3.提高要求：在完成基本要求达到后，可进一步完善程序。提高要求方向提示如下：★ 增加更多的停车位。比如20个以上，用滚动条翻页。★ 增加车辆进入和驶出停车场的动画功能。★ 增加停车计时功能。车进入车位后开始计时，实时显示泊车时长（时分秒格式，最多计24小时），车驶出后停止计时并记录车号和用时，为计算停车费做准备。★ 根据停车时间(为了加快速度，可以将1秒按1分或者更长时间计算)，计算出相应的停车费用，从而对停车场的收入情况进行统计。★ 对每个车位的使用情况进行统计。★ 支持不同的车型。例如大货车，大客车，小汽车等，对不同的车型使用不同的收费标准（前提：实现了停车计费功能）。三、设计方法和基本原理：1. 界面上的主要控件描述：需要在界面上的左侧放置一个列表框，用于显示待泊车辆。中间位置放一个框架(Frame)，里面放若干个图片框，用于显示停车状态。图片框的下方放一个标签，显示停车场的状态。右侧放一个文本框，用于显示出入记录。另外再放置一个按钮，实现退出功能。2. 相关问题的提示：列表框中的数据可以用Additem方法添加，用RemoveItem方法删除其中一项。TextWidth()可以计算出字符占用的宽度，TextHeight()可以确定显示字符所占用的高度（行高）。这两个函数都属于Form，为了产生正确结果，要将Form和各图片框设置为同样的字体属性。显示车牌号时，文字要居中显示，图片框的宽度可以从其Width属性中得到。算出文字的起始位置(左上角)后，先设置对应图片框的CurrentX和CurrentY属性，然后用Print方法将文本输出到正确位置。样例中的输出文字顶部位置距图片框底部为1.5倍行高。如果不使用素材中提供的图片，此数值可以进行适当的调整。Rnd()可以得到一个[0,1)间的随机数，如果要生成0到25间的数(产生字母用)，可以使用INT(Rnd*26)。其它情况类似处理即可。LoadPicture函数可以将一个图片文件加载到图片框中，例如：Picture1.Picture = LoadPicture(“有车” & 1+Rnd*6 & ”.JPG”)程序中使用的过程如下：Private Sub cmdExit_Click() 退出程序Sub DispStatus(pos As Integer, Car As String) 显示车位状态Private Sub Form_Load() 填充车牌列表框Private Sub List1_Click()　　点击某车，进入停车场Private Sub P_Click(Index As Integer) 点击某车位，驶出停车场