VB课程设计报告书

课程设计报告书课程设计名称：Visual Basic课程设计 系 （部）：经济管理系 专业班级：电子商务09-1 学生姓名： 学 号： 指导教师： 完成日期：2011年1月 4日 山东科技大学泰山科技学院设计课题一、基本设计：设计四则运算窗体文件。二、可选设计：1、编写一个倒计时的程序，当点击开始时开始倒计时。2、编写一个程序，使得输入一个数字，当点击按钮后转换为中文大写的货币表示。设计人姓名郭小凡同组人员设计日期2011年1月4日 至 2011年1月6日设计成绩指导教师评语指导教师签名：_年 _ 月_日19课程设计报告书1 前 言VB程序设计课程设计旨在巩固和加深对VB程序设计理论知识的理解，进一步掌握编程技巧和方法，树立结构化程序设计的思想，提高程序设计的应用层面。加强VB程序设计中更高功能的理解与掌握，使VB程序设计能力更进一步。1.1对VB课程设计的认识1.1.1 VB概述Visual Basic是一种可视化的、面向对象和采用事件驱动方式的结构化高级程序设计语言，可用于开发 Windows 环境下的各类应用程序。它简单易学、效率高，且功能强大可以与 Windows 专业开发工具SDK相媲美。在Visual Basic环境下，利用事件驱动的编程机制、新颖易用的可视化设计工具，使用Windows内部的广泛应用程序接口（API）函数，动态链接库（DLL）、对象的链接与嵌入（OLE）、开放式数据连接（ODBC）等技术，可以高效、快速地开发Windows环境下功能强大、图形界面丰富的应用软件系统。1.1.2 VB课程设计的性质和目的通过接触客观实际，了解和认识所学的专业知识，掌握所学知识在客观实际中的应用，并能亲自动手完成相关题目设计。把所学的理论知识与实际能力紧密的结合在一起。1.2 VB课程设计的基本内容和要求1.2.2 VB课程设计的基本内容本次课程设计要求学生熟练掌握VB程序设计课程的基础知识，独立完成设计任务,并完成课程设计报告，主要要求学生掌握以下内容：理解系统开发的必要步骤，绘制流程图、根据流程图编写程序、并自主进行必要的测试与维护。最后形成规范的设计报告。1.2.2 VB课程设计的基本要求1. 对系统要实现的功能进行确切的描述。2. 根据功能分析，建立系统的体系结构，即将整个系统分解成若干子模块，用框图表示各功能模块之间的接口关系。3. 详细说明各功能模块的实现过程，所用到的算法、技巧等（附上代码）。4. 说明系统的运行效果（附上界面图形）、存在哪些不足以及预期的解决办法。5. 课程设计过程中的心得体会。2课程设计必要性2.1必要性综述VB是一种可视化，面向对象和采用事件驱动方式的结构化高级程序设计语言，可用于开发windows环境下的各类应用程序，是目前较为流行的应用软件开发平台。VB的编程功能十分强大，应用范围非常广泛，有许多应用软件都可用它作为开发工具。利用Visual Basic我们可以在windows环境下，轻松自如的设计出复杂的图形用户界面，高效率的开发出各种各样的应用软件。VB不仅是一种计算机语言，更确切的说，它是一个集软件开发，测试和差错等功能于一体的集成式开发环境。VB课程设计是培养学生综合运用所学知识，发现、提出、分析和解决实际问题，锻炼实践能力的重要环节。是对学生实际工作能力的具体训练和考察过程.随着科学技术发展的日新日异，计算机已经成为当今计算机应用中空前活跃的领域， 在生活中可以说得是无处不在。因此作为二十一世纪的大学来说掌握计算机的开发技术是十分重要的。2.1 VB的特点1.面向对象2.事件驱动3.软件Software集成式开发4.结构化设计语言5.强大数据库访问功能6.支持对象链接和嵌入技术7.网络功能8.多个应用向导9.支持动态交换、动态链接技术。10.联机帮助功能3总体设计本次实习包括一个基本设计和两个可选设计。基本设计为设计四则运算窗体文件，相对比较容易。可选设计共20个，我选择了可选设计编写倒计时程序（16题）和编写货币大小写转换程序（19题）。通过操作，我深刻的了解了VB6.0的操作环境，掌握了VB常用控件的使用方法，基本程序语言的运用，以及编程的主要思路。3.1设计的功能与目标3.1.1 四则运算窗体文件设计的功能与目标1、功能：实现计算机的基本加减乘除四则运算。2、目标：按下列运行界面，设计（四则运算）窗体文件。3.1.12倒计时程序设计的功能与目标1、功能：实现自定义时间段内的倒计时，可以显示剩余时间，而且中途能够暂停、继续，时间剩余为0时，自动弹出对话框提示“时间到”。2、目标：编写一个倒计时的程序，当点击开始时开始倒计时界面如图。3.1.3 货币大小写转换程序设计的功能与目标1、功能：实现阿拉伯数字转换为大写货币表示。2、目标：编写一个程序，使得输入一个数字，当点击按钮后转换为中文大写的货币表示。4详细设计4.1软件界面设计及运行说明4.1.1 四则运算窗体文件界面设计及运行说明1、界面设计（图4-1）2、运行说明（图4-2）（图4-3）如图4-2所示，分别输入“第一个数”、“第二个数”，并选择运算符号。然后点击“=”按钮，“计算结果”文本框中显示结果。点击下“下一式”按钮，文本框清空（图4-3）。重新输入数字并选择运算符，可继续运行。点击“结束”按钮，程序结束运行。4.1.2倒计时程序界面设计及运行说明1、界面设计（图4-4）2、运行说明（图4-5）（图4-6）如图4-4所示，在文本框中输入时间，点击“开始”按钮，倒计时开始。点击“暂停”按钮，程序停止运行（如图4-5），点击“开始”或“重新开始”按钮，程序继续运行。当剩余时间为0时，系统自动弹出对话框，提示“时间到”。（如图4-6）点击“退出”按钮，程序结束运行。4.1.3货币大小写写转换界面设计及运行说明1、界面设计（图4-7）2、运行说明（图4-8）如图4-8所示，在文本框中输入阿拉伯数字，点击“转换”按钮，弹出对话框，显示该阿拉伯数字的货币大写表示。点击“”，程序运行结束。4.2主要的程序设计思想4.2.1 四则运算窗体文件的程序设计思想运用label、text、command和combol控件，以实现数字的输入、对运算符的选择以及对程序的控制。4.2.2 倒计时程序的程序设计思想运用label、text、command和timer控件，以实现时间的输入、对程序的控制以及对系统时间的获取。4.2.3 倒计时程序的程序设计思想运用text和command控件，以实现数字的输入及对程序的控制。4.3主要的源程序代码4.3.1四则运算窗体文件的源程序代码Private Sub Command1_Click()Da1 = Val(Text1.Text)da2 = Val(Text2.Text)Select Case Combo1.ListIndex 判断计算方式并计算Case 0da3 = Da1 + da2Case 1da3 = Da1 - da2Case 2da3 = Da1 * da2Case 3da3 = Da1 / da2End SelectText3.Text = da3 显示计算结果End SubPrivate Sub Command2_Click() 重置相关控件Text1.Text = Text2.Text = Text3.Text = Text1.SetFocusEnd SubPrivate Sub Command3_Click()EndEnd SubPrivate Sub Form_Load() 初始化符号选择下拉列表Combo1.List(0) = +Combo1.List(1) = -Combo1.List(2) = *Combo1.List(3) = /End Sub4.3.2倒计时程序的源程序代码Dim H As IntegerDim M As IntegerDim S As IntegerPrivate Sub Command1_Click() 开始倒计时If H = 0 And M = 0 And S = 0 Then 用以判断开始还是继续 If Val(Text1.Text) = 0 Then 数据校验 H = Val(Text1.Text) Else MsgBox 小时不能为负 Text1.SetFocus Exit Sub End If If Val(Text2.Text) = 0 And Val(Text2.Text) = 0 And Val(Text3.Text) = 60 Then 数据校验 S = Val(Text3.Text) Else MsgBox 秒数在0-60之间 Text3.SetFocus Exit Sub End IfEnd IfLabel7.Caption = HLabel8.Caption = MLabel9.Caption = STimer1.Enabled = TrueCommand1.Enabled = FalseCommand2.Enabled = TrueCommand3.Enabled = FalseEnd SubPrivate Sub Command2_Click() 暂停Timer1.Enabled = FalseCommand1.Enabled = TrueCommand2.Enabled = FalseCommand3.Enabled = TrueEnd SubPrivate Sub Command3_Click() 重新开始H = Val(Text1.Text)M = Val(Text2.Text)S = Val(Text3.Text)Timer1.Enabled = TrueCommand1.Enabled = FalseCommand2.Enabled = TrueCommand3.Enabled = FalseEnd SubPrivate Sub Command4_Click()EndEnd SubPrivate Sub Form_Load()End SubPrivate Sub Timer1_Timer() 计时器逻辑S = S - 1Label9.Caption = SIf S 0 Or H 0) Then 倒计时逻辑的实现 S = 60 Label9.Caption = S M = M - 1 Label8.Caption = M If M = 0 Then M = 59 Label8.Caption = M H = H - 1 Label7.Caption = H Exit Sub End IfEnd If If H = 0 And M = 0 And S = 0 Then MsgBox 时间到 Timer1.Enabled = False Command1.Enabled = True Command2.Enabled = False Command3.Enabled = FalseEnd IfEnd Sub4.3.3货币大小写转换的源程序代码Function daxie(money As String) As StringDim x As String, y As StringConst zimu = .sbqwsbqysbqwsbq 定义位置代码Const letter = 0123456789sbqwy.jzf 定义数字及汉字缩写Const upcase = 零壹贰叁肆伍陆柒捌玖拾佰仟万亿圆角整分 定义大写汉字Dim temp As Stringtemp = moneyIf InStr(temp, .) 0 Then temp = Left(temp, InStr(temp, .) - 1)If Len(temp) 9 Then MsgBox 数目太大，无法换算！请输入一亿以下的数字, 64, 错误提示: Exit Functionx = Format(money, 0.00) 格式化货币y = For i = 1 To Len(x) - 3y = y & Mid(x, i, 1) & Mid(zimu, Len(x) - 2 - i, 1)NextIf Right(x, 3) = .00 Theny = y & zElsey = y & Left(Right(x, 2), 1) & j & Right(x, 1) & f *元*角*分 End Ify = Replace(y, 0q, 0) 避免零千(如：40200肆万零千零贰佰)y = Replace(y, 0b, 0) 避免零百(如：41000肆万壹千零佰)y = Replace(y, 0s, 0) 避免零十(如：204贰佰零拾零肆)y = Replace(y, 0j, 0) 避免零角y = Replace(y, 0f, 整)Do While y Replace(y, 00, 0)y = Replace(y, 00, 0) 避免双零(如：1004壹仟零零肆)Loopy = Replace(y, 0y, y) 避免零亿(如：210亿 贰佰壹十零亿)y = Replace(y, 0w, w) 避免零万(如：210万 贰佰壹十零万)y = IIf(Len(x) = 5 And Left(y, 1) = 1, Right(y, Len(y) - 1), y) 避免壹十(如：14壹拾肆；10壹拾)y = IIf(Len(x) = 4, Replace(y, 0., ), Replace(y, 0., .) 避免零元(如：20.00贰拾零圆；0.12零圆壹角贰分)For i = 1 To 19y = Replace(y, Mid(letter, i, 1), Mid(upcase, i, 1) 大写汉字Nextdaxie = yEnd FunctionPrivate Sub Command1_Click() MsgBox (daxie(Val(Text1.Text) 将转换好的大写金额用对话框输出End SubPrivate Sub Form_Load()End Sub4.4调试过程中出现的问题及相应解决办法4.4.1 调试过程中出现的问题在程序设计的过程中，不可避免的出现了很多错误：1、语法错误。违反了vb程序设计中的语言有关句型句式的使用规则，而产生错误。2、运行错误，由于执行一个不可操作的程序引起的错误。3、逻辑错误，不能实现预定的功能而产生的错误。比如，在“倒计时钟程序”中，起初时间为0时，不弹出提示对话框，而是继续显示负值。