vb计算器实习报告

2-摘要VisualBasic是近年来在国内外得到迅速推广应用的可视化程序设计语言具有简单易学,功能强效率高等特点.它提供了开发Windows应用程序最迅速，最简捷的方法，不但专业人员得心应手的开发工具，而且易于被非专业人员掌握使用。本课程主要讲述VisualBasic的基本概念，语法规则和利用VisualBasic进行程序设计方法。同时掌握窗体设计，函数和控件的使用方法。VB程序设计是工科专业开设的一门基础编程课程。通过这门课程的学习，一方面是培养一个人的逻辑编程能力，提高其使用计算机能力，为今后从事本专业领域的软件开发打下基础；另一方面通过VB中体现出的面向对象思想，以培养学生认识问题，分析问题解决问题的思路和能力。目录TOC\o"1-3"\h\u28173一.题目：简单的科学计算器 -4-14745二.选题的意义 -4-22897三.系统设计 -5-212171总体结构设计： -5-313222各功能的实现 -5-113961数值输入、小数点、正负号 -5-124002.计算功能 -6-227503.“=”号输出结果 -7-308974.正弦、余弦、正切运算的实现： -7-27862四.测试 -9-309061.用例阐述系统 -9-129332.代码如下： -10-26991五.结论 -16-25028六、参考文献 -17-一.题目：简单的科学计算器二.选题的意义随着现代科学技术日新月异，高速发展，因此计算器进入课堂是历史的必然。计算器的一个基本特点是计算迅速准确，使用计算器，可以把学生从烦琐的数字计算中解脱出来，这样既减轻了中年级学生的课业负担，又能使学生有更多的时间进行思考、动手操作和实践活动，有利于开发学生的数学灵感，提高数学学习的兴趣，促进学生智力和能力的发展。由于大部分学生已经接触过计算器，因此教材只通过一幅计算器的外型结构图，逐渐让学生了解计算器的键盘结构，同时通过一些简单的练习题，使学生学会这些按键的使用方法。然后进一步用计算器探索规律，培养学生探索意识。本课程是一门当前流行的程序设计语言课程。通过VB程序设计语言及其程序设计方法的学习，不仅使学生得到计算机的应用能力和操作技能的训练，更主要的是使学生提高高级语言程序设计的能力，以及掌握最新的面向对象的程序设计方法，并能运用所学的知识开发图形界面（Windows）下的应用软件，为培养学生结合专业进行软件开发打好基础。三.系统设计系统概述：本科学计算器是一种能实现加,减,乘,除,乘方,sin、cos、tan、平方。基本实现了Windows自带计算器的所有功能。要实现计算器的这些功能就用到我们所学的VB知识编写程序来实现运算功能并解决问题，也是我们实训要达到的目的1总体结构设计：2各功能的实现1数值输入、小数点、正负号'点数字操作相关代码PrivateSubCommand30_Click()CallNClearText1.Text=Text1.Text&"."EndSub'点+，-，操作相关代码PrivateSubCommand18_Click()Ifflag=TrueThenText1.Text=Replace(Text1.Text,"+","")Text1.Text="-"&Text1.Textflag=FalseElseText1.Text=Replace(Text1.Text,"-","")Text1.Text="+"&Text1.TextEndIfflag=TrueEndSub2.计算功能FunctionCalc#()SelectCaseopCase"+"Calc=num1+num2Case"-"Calc=num1-num2Case"*"Calc=num1*num2Case"/"Calc=num1/num2CaseElseIfpowerTrue=TrueThenCalc=num1^num2powerTrue=FalseElseIfmodTrue=TrueThenCalc=num1Modnum2modTrue=FalseElseExitFunctionEndIfEndSelectEndFunction3.“=”号输出结果PrivateSubCommand31_Click()IfText1.Text=""Theni=MsgBox("您没有输入运算数据!")CallCommand33_ClickExitSubEndIfnum2=Val(Trim(Text1.Text))Ifnum2=0Andop="/"Theni=MsgBox("除数不能为0!")CallCommand33_ClickExitSubEndIfText1.Text=Calc()num1=0num2=0op=""flag=TruenotClear=TrueEndSub4.正弦、余弦、正切运算的实现：PrivateSubCommand2_Click()IfCheck=TrueThenExitSubnum1=num1*(3.14159265358979/180)Text1.Text=Cos(num1)num1=0EndSubPrivateSubCommand1_Click()IfCheck=TrueThenExitSubnum1=num1*(3.14159265358979/180)Text1.Text=Sin(num1)num1=0EndSubPrivateSubCommand3_Click()IfCheck=TrueThenExitSubnum1=num1*(3.14159265358979/180)Text1.Text=Fix(Tan(num1)+0.0000000001)num1=0EndSub四.测试1.用例阐述系统简单的数学3+2=5运算5的平方同样可得加，减，乘，除，sin，cos，tan。2.代码如下：DimHexNumAsBoolean,DecadeNumAsBoolean,OctalNumAsBoolean,BinaryNumAsBooleanDimpowerTrueAsBooleanDimmodTrueAsBooleanDimflagAsBooleanDimnotClearAsBooleanDimopAsStringDimnum1#,num2#PrivateFunctionCheck()AsBooleanflag=TruenotClear=TrueIfText1.Text=""Theni=MsgBox("您没有输入运算数据!",1+48,"警告")CallCommand33_ClickCheck=TrueElsenum1=Val(Trim(Text1.Text))Text1.Text=""Check=FalseEndIfEndFunctionPrivateSubCommand1_Click()IfCheck=TrueThenExitSubnum1=num1*(3.14159265358979/180)Text1.Text=Sin(num1)num1=0EndSubPrivateSubCommand18_Click()Ifflag=TrueThenText1.Text=Replace(Text1.Text,"+","")Text1.Text="-"&Text1.Textflag=FalseElseText1.Text=Replace(Text1.Text,"-","")Text1.Text="+"&Text1.TextEndIfflag=TrueEndSubPrivateSubCommand2_Click()IfCheck=TrueThenExitSubnum1=num1*(3.14159265358979/180)Text1.Text=Cos(num1)num1=0EndSubPrivateSubCommand20_Click()IfText1.Text=""Theni=MsgBox("您没有输入运算数据!",1+48,"警告")CallCommand33_ClickExitSubEndIfnum1=Val(Trim(Text1.Text))op="+"Text1.Text=""flag=TrueEndSubPrivateSubNClear()IfnotClear=TrueThenText1.Text=""notClear=FalseEndIfEndSubPrivateSubCommand21_Click()CallNClearText1.Text=Text1.Text&7EndSubPrivateSubCommand22_Click()CallNClearText1.Text=Text1.Text&8EndSubPrivateSubCommand23_Click()CallNClearText1.Text=Text1.Text&9EndSubPrivateSubCommand24_Click()IfText1.Text=""Theni=MsgBox("您没有输入运算数据!",1+48,"警告")CallCommand33_ClickExitSubEndIfnum1=Val(Trim(Text1.Text))op="-"Text1.Text=""flag=TrueEndSubPrivateSubCommand25_Click()CallNClearText1.Text=Text1.Text&4EndSubPrivateSubCommand26_Click()CallNClearText1.Text=Text1.Text&5EndSubPrivateSubCommand27_Click()CallNClearText1.Text=Text1.Text&6EndSubPrivateSubCommand28_Click()IfText1.Text=""Theni=MsgBox("您没有输入运算数据!",1+48,"警告")CallCommand33_ClickExitSubEndIfnum1=Val(Trim(Text1.Text))op="*"Text1.Text=""flag=TrueEndSubPrivateSubCommand29_Click()CallNClearText1.Text=Text1.Text&0EndSubPrivateSubCommand3_Click()IfCheck=TrueThenExitSubnum1=num1*(3.14159265358979/180)Text1.Text=Fix(Tan(num1)+0.0000000001)num1=0EndSubPrivateSubCommand30_Click()CallNClearText1.Text=Text1.Text&"."EndSubFunctionCalc#()SelectCaseopCase"+"Calc=num1+num2Case"-"Calc=num1-num2Case"*"Calc=num1*num2Case"/"Calc=num1/num2CaseElseIfpowerTrue=TrueThenCalc=num1^num2powerTrue=FalseElseIfmodTrue=TrueThenCalc=num1Modnum2modTrue=FalseElseExitFunctionEndIfEndSelectEndFunctionPrivateSubCommand31_Click()IfText1.Text=""Theni=MsgBox("您没有输入运算数据!",1+48,"警告")CallCommand33_ClickExitSubEndIfnum2=Val(Trim(Text1.Text))Ifnum2=0Andop="/"Theni=MsgBox("除数不能为0!",0+48,"警告")CallCommand33_ClickExitSubEndIfText1.Text=Calc()num1=0num2=0op=""flag=TruenotClear=TrueEndSubPrivateSubCommand32_Click()IfText1.Text=""Theni=MsgBox("您没有输入运算数据!",1+48,"警告")CallCommand33_ClickExitSubEndIfnum1=Val(Trim(Text1.Text))op="/"Text1.Text=""flag=TrueEndSubPrivateSubCommand33_Click()flag=TruepowerTrue=FalsemodTrue=FalseTimer1.Enabled=FalseText1.Text=""num1=0num2=0op=""EndSubPrivateSubCommand34_Click()CallNClearText1.Text=Text1.Text&1EndSubPrivateSubCommand35_Click()CallNClearText1.Text=Text1.Text&2EndSu