【VB开源代码栏目提醒】：以下是网学会员为您推荐的VB开源代码-VB程序课程设计 - 毕业设计，希望本篇文章对您学习有所帮助。

    

重庆机电职业技术学院课程设计说明书设计名称： VB 程序课程设计题 目：学生 计算机应用软件工程班 级： 1班学 号： XXXXXXXXXXXXX指导教师： X X X日 期： 2012 年 6 月 21 日 重庆机电职业技术学院 课程设计任务书 经济管理系 专 业 计算机 年级 2011 级 班 1班一、设计题目 课题一:记事本程序设计 课题二:画图板程序设计 课题三：模拟交通灯程序设计二、主要内容 利用所学和自学 VB 知识完成以下课题程序设计（课题一、二、三为必做课 题，课题四、五为选做课题） 课题一:记事本程序设计 课题二:画图板程序设计 课题三：模拟交通灯程序设计 注意： 1、课程设计内容含源程序代码电子档和课程设计说明书电子档及打印档， 缺少任何一样均视作总分不及格处理。

     2、所交设计中，缺少任意一道必做课题均视作总分不及格处理，选作课题 可根据个人情况选作。

    三、具体要求课题一:记事本程序设计（共 25 分） 1.1 程序功能 要求用 VB 设计类似 Windows 记事本的程序至少应包含如下功能: 菜单功能 （1）文件新建、打开、保存、打印，退出 （2）编辑（剪切、复制、粘贴、删除、全选、日期/时间） （3）格式（字体） （4）帮助（关于） 工具栏功能：同菜单功能 1.2 程序界面（10 分） 要求设计界面美观大方，控件布局合理、属性设置正确 1.3 程序代码（10 分） 要求代码编写规范，逻辑清晰，代码描述准确，添加适当注释 1.4 程序设计体会（5 分） 要求从：在该设计中遇到了哪些问题？如何解决的问题？通过该设计学 习到了什么？三个方面出发，写出自己在设计过程中的心得体会。

     课题二:画图板程序设计（25 分） 2.1 程序功能 要求用 VB 设计类似 Windows 画图板的程序至少应包含如下功能: 菜单功能：文件新建、打开、保存、打印，退出、帮助（关于） 工具栏功能：画任意曲线、画直线、画圆、擦除功能，设置画线颜色。

     2.2 程序界面（10 分） 要求设计界面美观大方，控件布局合理、属性设置正确 2.3 程序代码（10 分） 要求代码编写规范，逻辑清晰，代码描述准确，添加适当注释 2.4 程序设计体会（5 分） 要求从：在该设计中遇到了哪些问题？如何解决的问题？通过该设计学 习到了什么？三个方面出发，写出自己在设计过程中的心得体会。

     课题三: 模拟交通灯程序设计（共 25 分） 1.1 程序功能 功能设计说明：可以在四种方案建议中任选一种或可自行设计一种方案， 在此基础上完善其功能。

     1、车道： 初级模式：可先考虑解决单车道问题 高级模式：再考虑解决多车道问题 2、场景： 初级模式：可先考虑无汽车移动场景 高级模式：再考虑有汽车移动场景。

    （也可考虑实景布局） 3、计时： 初级模式：可先考虑固定倒计时时间模式 中级模式：再考虑自由配置倒计时时间模式 高级模式：以及根据某条车道某时间段车流量统计智能调整倒计时时 间模式（某条车道某时间段车流量，可考虑由随即函数产生） 1.2 程序界面（10 分） 要求设计界面美观大方，控件布局合理、属性设置正确 1.3 程序代码（10 分） 要求代码编写规范，逻辑清晰，代码描述准确，添加适当注释 1.4 程序设计体会（5 分） 要求从：在该设计中遇到了哪些问题？如何解决的问题？通过该设计学 习到了什么？三个方面出发，写出自己在设计过程中的心得体会。

    四、进度安排 进度 课时 内容17 周二 第 3、4、5、6 节 4 课时 1、安排课程设计任务 2、进行记事本程序设计17 周三 第 1、2 节 2 课时 3、进行画图板程序设计 4、进行模拟交通灯程序设计 5、撰写课程设计说明书17 周四 第 1、2、3、4 节 4 课时注意：需提交作业含:1、课程设计说明书电子档及打印档各一份2、程序源代码文件电子档一份（请将课程设计说明书电子档及程序源代码文件电子档压缩后命名为学号姓名，并发送至 546707831qq.com）3、课程设计说明书打印档一份，由班长收齐后统一交指导老师处。

    五、成绩评定 指导教师 签名 日期 年 月 日 系主任 审核 日期 年 月 日 目 录课题一:红绿灯程序设计……………………………………………………………06 1.1 程序功能说明………………………………………………………………06 1.2 程序界面说明………………………………………………………………06 1.3 程序代码说明………………………………………………………………06 1.4 程序设计体会………………………………………………………………08课题二:记事本程序设计……………………………………………………………08 2.1 程序功能说明………………………………………………………………08 2.2 程序界面说明………………………………………………………………08 2.3 程序代码说明………………………………………………………………09 2.4 程序设计体会………………………………………………………………10课题三:画图板程序设计……………………………………………………………10 3.1 程序功能说明………………………………………………………………10 3.2 程序界面说明………………………………………………………………10 3.3 程序代码说明………………………………………………………………11 3.4 程序设计体会………………………………………………………………14一、设计任务分析 一级标题：四号宋体加粗左对齐 本课题主要的目的是为了。

     内容部分：小四号宋体，左 对齐，首行缩进 2 个字，1.5 倍行距二、总体方案的设计 2．1设计 二级及以下标题：小四号宋 体加粗，缩进 2 个字 课题一:红绿灯程序设计 1.1 程序功能说明 红绿灯程序是按照单行道交通规则设计而成，能清楚的反应红灯停绿灯行和靠右行的原则。

    程序启动后自动运行，不能最大化和最小化。

     1.2 程序界面说明 程序由一个主窗体组成，程序启动后自动运行。

    不能最大化和最小化。

    退出程序直接按右上角的 。

    1.3 程序代码说明 Private Sub Timer1_Timer Label1.Caption Label1.Caption - 1 If Label1.Caption -1 And Label1.ForeColor HFF00 Then Label1.ForeColor HFF Label1.Caption 15 Image1.Visible True Image2.Visible False Image3.Visible True Image4.Visible False Image5.Visible True Image6.Visible False Image7.Visible True Image8.Visible False End If If Label1.Caption -1 And Label1.ForeColor HFF Then Label1.ForeColor HFF00 Label1.Caption 15 Image1.Visible False Image2.Visible True Image3.Visible False Image4.Visible True Image5.Visible False Image6.Visible True Image7.Visible False Image8.Visible True End If If Label1.ForeColor HFF00 Then Image9.Top Image9.Top 500 End If If Label1.ForeColor HFF Then Image9.Top 240 End If If Label1.ForeColor HFF Then Image10.Left Image10.Left - 580 Image11.Left Image11.Left 580 End If If Label1.ForeColor HFF00 Then Image10.Left 12120 Image11.Left 2520 End If If Label1.ForeColor HFF Then Image12.Visible False End If If Label1.ForeColor HFF00 Then Image12.Visible True End If If Label1.ForeColor HFF00 Then Image12.Top Image12.Top - 500 End If If Label1.ForeColor HFF Then Image12.Top 8520 End IfEnd SubPrivate Sub Timer2_TimerDim a As Integer For a 0 To 9 Text1a.BackColor QBColora Rnd16 Text1a.ForeColor QBColora Rnd16 Next a End Sub1.4 程序设计体会 在程序设计中，遇到了很多的问题，如何让红绿灯切换？如何让人行车停和车行人停？都是一个个的问题。

    然而当掌握了书上相关的知识点的时候，这个一个个的问题变迎刃而解。

     红绿灯程序是实训中最简单的一个程序，但要是想要做得很好也不是很容易。

    这个程序也是我们实训中的第一个程序，这个程序让我明白，很多知识都是来源于书本。

    当我们对某个技能不明白的时候，可以从书本中获得答案。

    这也体现了当代大学生自主学习的习惯和能力。

     课题二:记事本程序设计2.1 程序功能说明 简单记事本程序是按 Windows 记事本编写而来，有新建、打开、保存、退出、复制、剪切和粘贴功能。

    2.2 程序界面说明 程序由一个主窗体组成，里面包含菜单栏和内容框， 菜单栏由文件和编辑组成，文件下有新建、打开、保存和退出，编辑下有复制、剪切和粘贴。

    2.3 程序代码说明 Private Sub editcop_Click Clipboard.SetText Text1.SelText texttmp Text1.SelText End Sub Private Sub editcut_Click Clipboard.Clear Clipboard.SetText Text1.SelText Text1.SelText End Sub Private Sub editpaste_Click Text1.SelText Clipboard.GetText End Sub Private Sub filenew_Click Text1.Text End Sub Private Sub fileopen_Click On Error GoTo abc CommonDialog1.Filter 文本文件.txt .txt CommonDialog1.CancelError True CommonDialog1.ShowOpen Text1.Text Open CommonDialog1.FileName For Input As 1 Do While Not EOF1 Line Input 1 inputdata Text1.Text Text1.Text inputdata vbCrLf Loop Close 1 Exit Sub abc: If Err.Number 32755 Then Exit Sub End Sub Private Sub filesave_Click CommonDialog1.CancelError True CommonDialog1.Filter 文本文件.txt.txt CommonDialog1.ShowSave Open CommonDialog1.FileName For Output As 1 Print 1 Text1.Text Close 1 End Sub Private Sub fileexit_Click End End Sub Private Sub Form_Load Text1.Height Form1.Height Text1.Width Form1.Width End Sub Private Sub Form_Resize Text1.Height Form1.Height Text1.Width Form1.Width End Sub2.4 程序设计体会 记事本程序是实训中的第二个程序，有了前面红绿灯程序的经验，做起来比较得心应手，并且让我明白知识点都来源于书本，只要能将书本中的知识掌握就能运用自如。

     在程序设计中，如何打开、保存文件？如何复制？为什么复制和剪切都一样了？如何粘贴到指定的位置？摆在了面前这么多的问题，不得不让人头疼，然而，这些问题都反应了一个问题，对课本知识不够熟悉，课本上的技能没有掌握牢固，于是我开始铺天盖地的查阅书本和资料，开始向老师和同学求助，这一个个的问题便慢慢的解决。

    我相信，有问题存在，就有解决问题的办法存在。

    这也体现了当代大学生如何寻求帮助，解决问题的能力。

     课题三:画图板程序设计3.1 程序功能说明 画图板程序是按照 Windows 画图板仿制而来，有画笔功能，能随意画线条、直线、空心圆、实心圆、空心矩形和实心矩形，并且能更改线条的粗细。

    而且能更改画图板背景颜色和图形颜色。

    3.2 程序界面说明 画图板程序由工具栏、调色板和画图框组成。

    工具栏里有画笔、直线、空心矩形、实心矩形、空心圆和实心圆按键，而且有线条的粗细按钮；3.3 程序代码说明 Option Explicit Dim x0 y0 drawflag Dim a As Integer Dim b As Integer Private Sub Form_Load picMain.Width Form1.ScaleWidth - pictools.Width For a 0 To 15 Label1a.BackColor QBColora Next a For b 0 To 15 Label2b.BackColor QBColorb Next b End Sub Private Sub Form_Resize picMain.Width Form1.ScaleWidth - pictools.Width End Sub Private Sub Image1_ClickIndex As Integer drawflag Index 1 If Index 0 Then picLineWidth.Visible True ElseIf Index 1 Then picLineWidth.Visible True ElseIf Index 3 Then picLineWidth.Visible True ElseIf Index 4 Then picLineWidth.Visible True Else picLineWidth.Visible False End If End Sub Private Sub Image2_ClickIndex As Integer picMain.DrawWidth Index 1 End Sub Private Sub label1_ClickIndex As Integer picMain.ForeColor Label1Index.BackColor Label3.BackColor Label1Index.BackColor End Sub Private Sub Label2_ClickIndex As Integer picMain.BackColor Label2Index.BackColor Label4.BackColor Label2Index.BackColor End Sub Private Sub mnxImport_Click Dim picfile cd1.ShowOpen picfile cd1.FileName picsrc.Picture LoadPicturepicfile End Sub Private Sub mnxLeftToRight_Click Dim dw i dw picsrc.Width / picMain.ScaleWidth For i 1 To picMain.ScaleWidth picMain.PaintPicture picsrc.Picture 0 0 i picMain.ScaleHeightpicsrc.Width - i dw 0 i dw picsrc.Height vbSrcCopy DoEvents Next i End Sub Private Sub mnxSave_Click cd1.ShowSave SavePicture picMain.Image cd1.FileName End Sub Private Sub picMain_MouseDownButton As Integer Shift As Integer X As SingleY As Single If Button 1 Then x0 X y0 Y End If End Sub Private Sub picMain_MouseMoveButton As Integer Shift As Integer X As SingleY As Single If Button 1 Then picMain.AutoRedraw False picMain.Cls Select Case drawflag Case 1 picMain.Line x0 y0-X Y Case 2 picMain.Line x0 y0-X Y B Case 3 picMain.Line x0 y0-X Y BF Case 4 picMain.AutoRedraw True picMain.Line x0 y0-X Y x0 X y0 Y Case 5 picMain.FillStyle 1 picMain.Circle x0 y0 SqrX - x0 2 Y - y0 2 Case 6 picMain.FillStyle 0 picMain.FillColor picMain.ForeColor picMain.Circle x0 y0 SqrX - x0 2 Y - y0 2 End Select End If End Sub Private Sub picMain_MouseUpButton As Integer Shift As Integer X As SingleY As Single If Button 1 Then picMain.AutoRedraw True Select Case drawflag Case 1 picMain.Line x0 y0-X Y Case 2 picMain.Line x0 y0-X Y B Case 3 picMain.Line x0 y0-X Y BF Case 5 picMain.FillStyle 1 picMain.Circle x0 y0 SqrX - x0 2 Y - y0 2 Case 6 picMain.FillStyle 0 picMain.FillColor picMain.ForeColor picMain.Circle x0 y0 SqrX - x0 2 Y - y0 2 End Select End If End Sub3.4 程序设计体会 画图板程序是实训必做三个程序中较难的一个，做这个程序要有严谨的思维。

    不光将课本上的知识记住，而且要能加以运用。

    这个程序让我体会到只有基础牢固了，才能更好的去最求和学习更高的技术。

     在画图板程序中，如何用鼠标控制线条？如何让线条的粗细按钮需要时出现？如何设置调色板并且应用到前景色和背景色中？如何画空心和实心图案？ 这些都是上课时老师讲过的知识，也是课本上的知识，只有将基础的知识掌握了，才能设计出更加完美的程序。