VB课程设计报告书山科大

更新时间：2023-05-20 22:04:01 阅读量：实用文档文档下载

说明：文章内容仅供预览，部分内容可能不全。下载后的文档，内容与下面显示的完全一致。下载之前请确认下面内容是否您想要的，是否完整无缺。

java课程设计报告书推荐度：
相关推荐

一、基本设计：设计四则运算窗体文件。二、可选设计：1、编写一个倒计时的程序,当点击开始时开始倒计时。2、编写一个程序,使得输入一个数字,当点击按钮后转换为中文大写的货币表示。

课程设计报告书

课程设计名称：Visual Basic课程设计

系（部）：

专业班级：学生姓名：学号：

指导教师：完成日期：

山东科技大学泰山科技学院

一、基本设计：设计四则运算窗体文件。二、可选设计：1、

设计课题设计课题

编写一个倒计时的程序，当点击开始时开始倒计时。2、编写一个程序，使得输入一个数字，当点击按钮后转换为中文大写的货币表示。

设计人姓名设计人姓名设计日期设计日期设计成绩设计成绩

同组人员2011 年 1 月 4 日至 2011 年 1 月 6 日

指导教师评语

指导教师签名：指导教师签名：______________ ______年 ____ 月____日年日

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 0

da3 = Da1 + da2 Case 1

da3 = Da1 - da2 Case 2

da3 = Da1 * da2 Case 3

da3 = Da1 / da2 End Select

Text3.Text = da3 '显示计算结果 End Sub

Private Sub Command2_Click() '重置相关控件

Text1.Text = "" Text2.Text = "" Text3.Text = "" Text1.SetFocus End Sub

Private Sub Command3_Click() End

End Sub

Private Sub Form_Load() '初始化符号选择下拉列表 Combo1.List(0) = "+" Combo1.List(1) = "-" Combo1.List(2) = "*" Combo1.List(3) = "/" End Sub

4.3.2倒计时程序的源程序代码

Dim H As Integer Dim M As Integer Dim S As Integer

Private 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) <= 60 Then '数据校验

M = Val(Text2.Text) Else

MsgBox "分钟在0-60之间" Text2.SetFocus Exit Sub End If

If Val(Text3.Text) >= 0 And Val(Text3.Text) <= 60 Then '数据校验

S = Val(Text3.Text) Else

MsgBox "秒数在0-60之间" Text3.SetFocus Exit Sub End If End If

Label7.Caption = H Label8.Caption = M Label9.Caption = S Timer1.Enabled = True Command1.Enabled = False Command2.Enabled = True Command3.Enabled = False End Sub

Private Sub Command2_Click() '暂停 Timer1.Enabled = False Command1.Enabled = True Command2.Enabled = False Command3.Enabled = True End Sub

Private Sub Command3_Click() '重新开始 H = Val(Text1.Text) M = Val(Text2.Text) S = Val(Text3.Text) Timer1.Enabled = True Command1.Enabled = False Command2.Enabled = True Command3.Enabled = False End Sub

Private Sub Command4_Click() End

End Sub

Private Sub Form_Load()

End Sub

Private Sub Timer1_Timer() '计时器逻辑 S = S - 1

Label9.Caption = S

If S <= 0 And (M > 0 Or H > 0) Then '倒计时逻辑的实现

S = 60

Label9.Caption = S M = M - 1

Label8.Caption = M

If M < 0 And H >= 0 Then M = 59

Label8.Caption = M H = H - 1

Label7.Caption = H Exit Sub End If End If

If H = 0 And M = 0 And S = 0 Then MsgBox "时间到"

Timer1.Enabled = False Command1.Enabled = True Command2.Enabled = False Command3.Enabled = False End If

End Sub

4.3.3货币大小写转换的源程序代码

Function daxie(money As String) As String Dim x As String, y As String

Const zimu = ".sbqwsbqysbqwsbq" '定义位置代码

Const letter = "0123456789sbqwy.jzf" '定义数字及汉字缩写

Const upcase = "零壹贰叁肆伍陆柒捌玖拾佰仟万亿圆角整分" '定义大写汉字

Dim temp As String temp = money

If InStr(temp, ".") > 0 Then temp = Left(temp, InStr(temp, ".") - 1)

If Len(temp) > 9 Then MsgBox "数目太大，无法换算！请输入一亿以下的数字", 64, "错误提示": Exit Function

x = Format(money, "0.00") '格式化货币 y = ""

For i = 1 To Len(x) - 3

y = y & Mid(x, i, 1) & Mid(zimu, Len(x) - 2 - i, 1)

If Right(x, 3) = ".00" Then y = y & "z" Else

y = y & Left(Right(x, 2), 1) & "j" & Right(x, 1) & "f" '*元*角*分

End If

y = 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壹仟零零肆) Loop

y = 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 19

y = Replace(y, Mid(letter, i, 1), Mid(upcase, i, 1)) '大写汉字 Next

daxie = y End Function

Private Sub Command1_Click()

MsgBox (daxie(Val(Text1.Text))) '将转换好的大写金额用对话框输出 End Sub

Private Sub Form_Load()

End Sub

4.4调试过程中出现的问题及相应解决办法

4.4.1 调试过程中出现的问题

在程序设计的过程中，不可避免的出现了很多错误：

1、语法错误。违反了vb程序设计中的语言有关句型句式的使用规则，而产生错误。

2、运行错误，由于执行一个不可操作的程序引起的错误。

3、逻辑错误，不能实现预定的功能而产生的错误。比如，在“倒计时钟程序”中，起初时间为0时，不弹出提示对话框，而是继续显示负值。

4.4.2解决方法

1、对于语法错误，可以设置自动语言检测功能，这样就可以及时发现并改正错误。

2、对于运行错误，无法自动检测，只能通过测试来验证结果的正确性。使用调试工具可以便捷有效的检查逻辑错误产生的地点和原因。Vb提供了调试菜单和一个专用于程序调试的工具栏。有三种用于调试的窗口：本地窗口，立即窗口，监视窗口。在程序进入中断状态后首先调出调试工具栏，在调试工具栏中单击相应按钮即可打开任意一个调试窗口进行调试，以保障程序正确的运行。

3、对于逻辑错误，可通过查阅资料，对程序做进一步优化和改进，从而实现预定功能。

5课程设计总结

通过本次课程设计我对VB程序设计有了更深入的了解，通过对其的增、

删、改以及查询，掌握了VB程序设计的主要功能，能够熟练的运用一些基本空间及程序语言。虽然有些控件的操作还未能完全的掌握，但通过本次课程设计大大提高对其它控件的了解，在以后的编程中起到了积极的作用。此次课程设计中，由于对有些控件不熟悉，进行了大量资料查阅，使自己学到了很多知识，同时对VB程序设计产生了浓厚的兴趣。感谢学校开设这门课程设计，它让我明白：知识重要，如何运用所学知识解决实际实际问题也同样重要，将知识用于实践，才是学习知识的意义所在。

附录

参考文献

《面向对象程序设计系列教材》龚沛曾高等教育出版社《Visual Basic6.0程序设计教程》杜春玲西北工业大学出版社《Visual Basic6.0 数据库程序设计高手》温贤发科学教育出版社

课程设计流程图

课程设计报告书

开始

查找资料

图书馆查阅

网上搜索

师生交流

资料汇总

上机操作编写程序