课程设计(论文)任务书土木学院土木专业2012-5 班一、课程设计(论文)题目二、课程设计(论文)工作自2013 年 6 月 17 日起至 2013 年 6 月 21 日止。
三、课程设计(论文) 地点: 计算中心四、课程设计(论文)内容要求：1．本课程设计的目的（1）使学生掌握Visual Basic编程的基本工作原理；（2）培养学生基本掌握Visual Basic应用编程的基本思路和方法；（3）使学生掌握Visual Basic应用调试的基本技能；（4）培养学生分析、解决问题的能力；（5）提高学生的科技论文写作能力。
2．课程设计的任务及要求1）基本要求：（1）分析系统的功能构成；（2）分析所用控件对象、数据对象及其关联；（3）实现系统的设计；（4）对所设计应用进行调试。
2）创新要求：在基本要求达到后，可进行创新设计，增加功能、改进界面和性能。
3）课程设计论文编写要求（1）课程设计报告书一律使用由学校统一印制的封面，用A4纸张打印或采用黑色墨水工整书写，并装订成册。
（2）课程设计装订顺序为：封面、设计任务书（含评语）、设计内容、设计小结4）答辩与评分标准：（1）系统功能分析：25分；（2）完成设计过程：25分；（3）完成调试：25分；（4）回答问题：25分。
5）参考文献：(1)吴昊.Visual Basic程序设计教程,中国铁道出版社，2006.12(2) 杨仓杰出.Visual Basic经典范例,清华大学出版社，2001.10(3) /6）课程设计进度安排内容天数地点构思及收集资料1实验室设计与调试3实验室撰写论文1实验室学生签名：2013 年6 月17 日课程设计(论文)评审意见（1）完成原理分析（25分）：优（）、良（）、中（）、一般（）、差（）；（2）设计分析（25分）：优（）、良（）、中（）、一般（）、差（）；（3）完成调试（25分）：优（）、良（）、中（）、一般（）、差（）；（4）回答问题（25分）：优（）、良（）、中（）、一般（）、差（）；（5）格式规范性及考勤是否降等级：是（）、否（）评阅人：职称：2013 年6 月26 日目录《程序设计语言（VB）》课程设计 3 摘要 (3)一、设计目的 (4)二、环境配置要求 (5)三、设计题目记事本程序 .............................. 错误!未定义书签。
（一）系统的主要功能 .................................................. 错误!未定义书签。
（二）算法流程图 .......................................................... 错误!未定义书签。
（三）界面设计和属性窗口 .......................................... 错误!未定义书签。
（四）详细源代码 .......................................................... 错误!未定义书签。
（五）运行结果及分析 .................................................. 错误!未定义书签。
四、设计体会 .................................................... 错误!未定义书签。
五、参考文件 .................................................... 错误!未定义书签。
六、总结.................................................................................. 错误!未定义书签。
《程序设计语言（VB）》课程设计摘要随着软件技术的不断更新发展,利用计算机查找自己需要的信息,在生活生产中扮演着极为重要的角色, Windows 环境下的 Visual Basic 提供了丰富的查询功能.本文主要通过对选题的功能描述, 概要设计, 详细设计, 效果及存在问题，代码，编写及调试以及软件使用说明等的介绍,关键词: Visual Basic 程序设计程序设计基础课程设一、设计目的1、进一步掌握程序的三大基本结构；2、进一步掌握读文本文件，以及列表框等控件的使用；3、进一步掌握算法设计；4、进一步理解程序调试；5、综合利用上述知识，学习设计并编写简单应用程序；6、培养学生团结协作的能力。
7、提高学生的动手能力，让我们理论充分结合实际二、环境配置要求硬件配置：586以上PC兼容机或品牌机，配有彩色显示器、鼠标、键盘，内存不小于64MB，硬盘自由空间不少于200MB。
推荐配置为内存128MB或256MB（或以上），硬盘自由空间500MB以上。
操作系统：Windows2000/NT/Xp、VB集成开发环境。
三、设计题目记事本程序（一）系统的主要功能预定功能新建：新建立一个记事本文档。
保存：重命名一个名字，保存文档。
打开：将打开一个已经存储在计算机中的文件（*.txt或*.rtf文件）。
关闭：清楚记事本中的内容退出：指退出这个记事本程序。
另存为：保存在另一个文件夹中编辑：能对文本进行复制、剪切、粘贴，也可以改变文本字体、颜色、大小。
退出:退出记事本查找：类似Wo r d文档的查找功能，通过输入关键字，词进行查找。
查找下一个：在原查找的基础上通过输入关键字，词进行查找。
剪切：类似Word文档的剪切功能通过选中后放到剪切板中复制：类似Word文档的复制功能通过选中后放到剪切板中粘贴：把剪切或复制的的内容放到指定的地方删除：清除选中的文本框中的内容全选：把文本框中的内容全部选中日期时间：返回系统的时间字体：通过弹出通用对话框把文本框中的字体随对话框中的要求改变而改变背景色：文本框的填充颜色程序功能：对文本进行编辑、处理（二）算法流程图（三）界面设计和属性窗口（1）（1）设计类似于如图所示的程序界面。
程序启动后文本框随窗体大小而改变。
建立三个主菜单：文件、编辑、格式。
各子菜单如下：使用剪贴板对象实现“剪切”、“复制”、“粘贴”的编辑功能。
在没有选定文本时，剪切、复制、删除等菜单命令为不可用状态；剪贴板中没有数据时，“粘贴”菜单项为无效。
各控件属性代码如下（四）详细源代码Dim a As String ‘定义变量Dim c As String ‘定义变量Private Sub BC_Click() ‘保存按钮代码Dim b As StringCmD1.Filter = "文本文件(*.txt)|*.txt|所有文件(*.*)|*.*"CmD1.ShowSave ‘弹出保存对话框b = CmD1.FileNameOpen b For Output As #1Write #1, Text1.TextClose #1End SubPrivate Sub BJS_Click() ‘背景色代码CmD1.Flags = 1CmD1.ShowColorText1.BackColor = CmD1.ColorEnd SubPrivate Sub CZ_Click() ‘查找按钮代码a = InputBox("请输入要查找的子、词：", "查找内容", a)b = InStr(Text1.Text, a) ‘运用内部函数Text1.SelStart = b - 1Text1.SelLength = Len(a)End SubPrivate Sub CZXYG_Click() ‘查找下一个按钮代码c = InputBox("请输入要查找的子、词：", "查找内容", c)d = InStr(b - 1 + Len(a), Text1.Text, c)Text1.SelStart = d - 1Text1.SelLength = Len(c)End SubPrivate Sub DK_Click() ‘打开按钮代码Dim b As StringDim c As StringCmD1.Filter = "文本文件(*.txt)|*.txt|所有文件(*.*)|*.*"CmD1.ShowOpenb = CmD1.FileNameOpen b For Input As #1Do While EOF(1) = FalseLine Input #1, cText1.Text = Text1.Text + c + vbCrLfLoopClose #1End SubPrivate Sub DY_Click() ‘打印按钮代码CmD1.ShowPrinterEnd SubPrivate Sub Form_Resize() ‘特殊代码Text1.Width = 记事本程序.WidthText1.Height = 记事本程序.HeightEnd SubPrivate Sub FZ_Click() ‘复制按钮代码Clipboard.Clear ‘把剪切板先清空Clipboard.SetText Text1.SelText ‘剪切板的选中东西为文本框中的选择内容End SubPrivate Sub GB_Click() ‘关闭按钮Text1.Text = ""End SubPrivate Sub JQ_Click() ‘剪切按钮代码Clipboard.ClearClipboard.SetText Text1.SelTextText1.SelText = ""End SubPrivate Sub LCW_Click() ‘另存为按钮代码CmD1.ShowSavePrivate Sub QX_Click() ‘全选按钮代码Text1.SelStart = 0Text1.SelLength = Len(Text1.Text)End SubPrivate Sub RQSJ_Click() ‘日期时间代码Text1.Text = Now ‘返回系统时间End SubPrivate Sub SC_Click() ‘删除代码按钮Text1.SelText = ""End SubPrivate Sub TC_Click() ‘退出代码按钮EndEnd SubPrivate Sub Timer1_Timer()If Text1.SelLength = 0 Then FZ.Enabled = FalseIf Text1.SelLength <> 0 Then FZ.Enabled = TrueIf Text1.SelLength = 0 Then JQ.Enabled = FalseIf Text1.SelLength <> 0 Then JQ.Enabled = TrueIf Text1.SelLength = 0 Then SC.Enabled = FalseIf Text1.SelLength <> 0 Then SC.Enabled = TrueIf Text1.SelLength = 0 Then CZXYG.Enabled = FalseIf Text1.SelLength <> 0 Then CZXYG.Enabled = True ‘设置按钮的可用性End SubPrivate Sub XJ_Click() ‘新建代码按钮Text1.Text = ""FileName = "未命名"Me.Caption = FileNameEnd SubPrivate Sub ZITI_Click() ‘字体通用对话框CmD1.Flags = 1 ‘使用系统带的字体CmD1.ShowFont ‘弹出字体对话框Text1.FontName = CmD1.FontNameText1.FontSize = CmD1.FontSizeText1.FontBold = CmD1.FontBoldText1.FontItalic = CmD1.FontItalicText1.FontUnderline = CmD1.FontUnderline ‘文本框中的格式设置与对话框中的一致Private Sub ZT_Click(Index As Integer) ‘粘贴按钮代码Text1.SelText = Clipboard.GetText ‘文本框中的内容等于剪切板中的内容End Sub（五）运行结果及分析运行程序”打开”菜单弹出打开对话框如图：运行“保存”菜单弹出如下保存对话框运行“打印”菜单弹出如下”运行“时间，日期”后如下运行“查找或查找下一个”后弹出如下对话框例如：运行“字体菜单按钮”后弹出字体对话框如图该对话框使用系统自带的字体可设置字形、字体、字的大小及效果。