四则运算 货币数字中文转换visual basic课程设计 .doc

1、课程设计报告书课程设计名称： visual basic课程设计 系 （部）： 专业班级： 学生姓名： 学 号： 指导教师： 完成日期： 山东科技大学泰山科技学院设计课题四则运算 货币数字中文转换设计人姓名同组人员设计日期2011年1月2日至2011年1月6日设计成绩指导教师评语指导教师签名：_年 _ 月_日课程设计报告书1前言为了加强对visual basic程序设计的理解与应用学校组织了为期一周vb课程设计实训。在这一周的时间，通过阅读VB程序设计课程设计指导书，了解课程设计的要求与目的以及实验的内容，在选定自己的课程设计内容之后，通过对题目的分析接下来便进入到课程设计的进程中。在此期间通过

2、初始化的流程图编写，根据流程图进行程序设计、运行、检测、修改终于按照课程设计的要求完成了自己选择的四则运算和货币数字转换成汉字的程序设计内容。在设计的过程中遇到了很多问题，通过图书馆查阅资料，老师的细心讲解，同组同学的共同探讨问题的得到了解决。最后通过对课题的整理细化，通过报告书的形式展现出来。2课程设计必要性计算机的应用几乎是无所不在。很难想象，如果缺少了计算机，当今的社会将会陷入怎样的一种境地。然而，计算机的应用都是通过执行程序来完成的。用来编写这些计算机程序的语言，经历了从低级语言到高级语言的发展过程，Visual Basic（简称VB）语言就是一种计算机高级编程语言。随着计算机应用的日

3、益普及，越来越多的非计算机专业人员开始进入了计算机编程的领域，他们不仅仅是计算机应用软件的使用者，而且成为了一般计算机应用软件的编写者。Visual Basic语言是建立在Basic语言基础之上的高级可视化编程语言，与其他著名的编程语言相比（如C语言和Pascal语言），Visual Basic语言具有易学易用、通用性好、功能强大等特点，是非计算机专业人员进行计算机程序设计的首选编程语言。我们学习的visual basic程序设计是针对初学者而精心安排的，通过对课本知识的学习我们建立计算机编程的基本思想，并能够编写一般的应用程序，为将来深入学习Visual Basic和其他高级编程语言打下了良

4、好的基础。为了能够接触客观实际，了解和认识所学的专业知识，掌握所学知识在客观实际中的应用，并能亲自动手完成相关题目设计。把所学的理论知识与实际能力紧密的结合在一起。特地进行了一次为期一周的vb程序设计实训。3.1课程设计（四则运算）设计（四则运算）窗体文件3.1.1基本步骤1.新建工程2.在窗体窗口建立：4个label、3个text、1个组合框、3个command3.在代码窗口编写程序代码。4.运行调试程序5保存工程3.1.2程序源代码及介绍Private Sub Command1_Click()Select Case Combo1.ListIndexCase 0Text3.Text = Va

5、l(Text1.Text) + Val(Text2.Text) /加法运算式/Case 1Text3.Text = Val(Text1.Text) - Val(Text2.Text) /减法运算式/Case 2Text3.Text = Val(Text1.Text) * Val(Text2.Text) /乘法运算式Case 3Text3.Text = Val(Text1.Text) / Val(Text2.Text) /除法运算式/End SelectEnd SubPrivate Sub Command2_Click() Text1.Text = 第二个commond按钮及下一式按钮文本框清零

6、可进行 Text2.Text = 下一组的运算 Text3.Text = End SubPrivate Sub Command3_Click() 点击第三个commond控件即结束按钮便可退出程序EndEnd SubPrivate Sub Form_Load() Combo1.AddItem + Combo1.AddItem - Combo1.AddItem * Combo1.AddItem / Combo1.ListIndex = 0End Sub3.1.2程序的调试及运行过程编辑好程序之后，点击运行，便可得到四则运算的程序软件。在第一、第二个文本框中输入一定的数值再点击等于号便可得到相应的

7、计算结果。点击下一式便可清除文本框中的数值进行下一次运算。程序的调试过程中出现没有运算符的运算软件，查找原因在于没有正确的运用commbol定义运算符。经调试之后程序得以运营成功。3.2程序设计，使得输入一个数字，当点击按钮后转换为中文大写的货币表示编写一个程序，使得输入一个数字，当点击按钮后转换为中文大写的货币表示。3.2.1基本步骤1.新建工程2.在窗体窗口建立：1个text、1个command3.在代码窗口编写程序代码。4.运行调试程序5保存工程3.2.2程序源代码及介绍Private Sub Command1_Click()MsgBox GetChinaMoney(Text1.Text

8、)End SubPrivate Sub Form_Load()Text1.MaxLength = 16Text1.Text = Text1.Text = 987654321End SubPublic Function GetChinaMoney(ByVal strNumber) As StringDim a() As StringDim s1 As String, s2 As StringDim l1 As StringDim s3 As StringDim strEng As StringstrEng2Ch = 零壹贰叁肆伍陆柒捌玖If Not IsNumeric(strNumber) Th

9、enIf Trim(strNumber) Then MsgBox 无效的数字GetChinaMoney = Exit FunctionEnd Ifl1 = InStr(strNumber, .)If l1 0 Thens1 = Left(strNumber, l1 - 1)s2 = Mid(strNumber, l1 + 1)Elses1 = strNumbers2 = 0End Ifs1 = Dig2Chinese_pb(s1)s3 = If s2 0 ThenFor i = 1 To Len(s2)If i = 1 Then s3 = s3 & Mid(strEng2Ch, Val(Mid

10、(s2, i, 1) + 1, 1) & 角 定义小数点后几If i = 2 Then s3 = s3 & Mid(strEng2Ch, Val(Mid(s2, i, 1) + 1, 1) & 分 位的名称。角分If i = 3 Then s3 = s3 & Mid(strEng2Ch, Val(Mid(s2, i, 1) + 1, 1) & 厘 厘毫If i = 4 Then s3 = s3 & Mid(strEng2Ch, Val(Mid(s2, i, 1) + 1, 1) & 毫NextEnd IfGetChinaMoney = s1 & 元 & s3End FunctionPublic

11、 Function Dig2Chinese_pb(strEng As String) As StringDim intLen As Integer, intCounter As IntegerDim strCh As String, strtempCh As StringDim strSeqCh1 As String, strSeqCh2 As StringDim strEng2Ch As StringDim sTemp As StringDim i As Integer /定义变量/Dim iWanBit As IntegerDim iYiBit As IntegerDim iWanYiBi

12、t As IntegerDim sFoward As StringiWanBit = 0: iYiBit = 0: iWanYiBit = 0sFoward = StrReverse(strEng)For i = 1 To Len(sFoward)Dim val1 As Longval1 = Val(Mid(sFoward, i, 1) If i = 5 And i = 8 ThenIf iWanBit = 0 ThenIf val1 0 Then iWanBit = iEnd IfEnd IfIf i = 9 And i = 12 ThenIf iYiBit = 0 ThenIf val1

13、0 Then iYiBit = iEnd IfEnd IfIf i = 13 And i = 16 ThenIf iWanYiBit = 0 ThenIf val1 0 Then iWanYiBit = iEnd IfEnd IfNextIf Not IsNumeric(strEng) ThenIf Trim(strEng) Then MsgBox 无效的数字Dig2Chinese_pb = Exit FunctionEnd IfIf Len(strEng) 15 ThenMsgBox 数字位数太长Dig2Chinese_pb = Exit FunctionEnd IfstrEng2Ch =

14、零壹贰叁肆伍陆柒捌玖strSeqCh1 = 拾佰仟 拾佰仟 拾佰仟 拾佰仟strSeqCh2 = 万亿兆strEng = CStr(CDec(strEng)len /转换为表示数值的字符串/intLen = Len(strEng)change to chinese /组成汉字/For intCounter = 1 To intLen strtempCh = Mid(strEng2Ch, Val(Mid(strEng, intCounter, 1) + 1, 1)If strtempCh = 零 And intLen 1 Then If Mid(strEng, intCounter + 1, 1

15、) = 0 Or (intLen - intCounter + 1) Mod 4 = 1 ThenIf Mid(strEng, intCounter + 1, 1) = 0 Or intCounter = intLen ThenstrtempCh = End IfElse /添加位拾佰仟/If strtempCh 零 Then strtempCh = strtempCh & Trim(Mid(strSeqCh1, intLen - intCounter + 1, 1)End If添加位 万(5-8),亿(9-12),万亿(13-16) iWanBit = 0: iYiBit = 0: iWan

16、YiBit = 0If intCounter = Len(strEng) + 1 - iWanBit Then strtempCh = strtempCh & 万If intCounter = Len(strEng) + 1 - iYiBit Then strtempCh = strtempCh & 亿If intCounter = Len(strEng) + 1 - iWanYiBit Then strtempCh = strtempCh & 万亿strCh = strCh & Trim(strtempCh)NextDig2Chinese_pb = strChEnd Function3.2.

17、3程序的调试及运行过程程序的调试过程中出现了vb程序中不可读的数值， 导致程序没法运行，通过查阅资料修改代码完成了程序的调试运行成功。点击运行按钮之后，在文本框中输入货币的数字型数值然后点击commond1按钮便可得到与之相对应的中文大写数值。程序的运行过程中发现有很多编码错误导致成语无法正确运行，数字转换成汉字的编码过于繁杂常常出现许多想不到的细节中的麻烦，通过自己的查找老师的指导资料的查询，小数位的命名过程得到解决，程序得以成功运行。4总结在短短时间的实习中，我了解到实践是学习程序设计课程十分重要的教学环节，通过上机调试程序过程的实训，可以加深我们对编程环境、语法和实现算法的理解与掌握。本

18、次实习要求我们具有团队精神，共同完成实习。在掌握课堂知识的基础上拓展思维，深入了解和掌握Visual Basic的相关知识。在将近一周的实习中，我对以前的知识进行了总结和归纳，这期间我学到了很多在课堂上学不到的东西，也获得了在课堂上没有听好和听懂的知识。在此发现自己还有很多的不足之处。在Visual Basic的程序设计上不太纯熟，对Visual Basic中的语句的掌握不熟悉，在运行的时候出现错误不能及时的想到错误的原因，要看书或者通过同学的提示才能找到原因，而且还有好多的命令自己不是很明白。短暂的实习转眼而过，回顾实习生活，无论在技术方面还是思维方面，我在实习过程中学到的东西都是终生受用的。感谢学校和老师给我们提供实习的机会。参考文献1 Visual Basic 6.0程序设计（第二版）作者：丁爱萍出版社：西安电子科技大学出版社2 Visual Basic 6.0 使用指南 作者：Bob Reselman , Richard Peasley , Wayne Pruchniak.出版社：电子工业出版社3 Visual Basic 6.0 中文版控件大全作者：Microsoft出版社；电子工业出版社本文来自网络，版权归原作者所有，请下载后，尽快删除。