计算器设计报告

《计算器设计报告》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、陕西师范大学远程教育学院题目：基于vb语言的简单计算器设计学习中心：陕西省咸阳教育科技培训学院学号：层次：高中起点专科姓名：田园一、设计思路1.要达到的目的主要是培养学生利用系统提供的基本控件进行创新性设计，理解VisualBasic语言中面向对象的程序设计。培养学生综合利用VisualBasic语言进行程序设计的能力。2.关键问题的解决先使用Command命令按钮，命令按钮控件数组，文本框等基本控件设计窗体，再根据下面方法编制程序：1．连续输入新操作数的若干个数字时，采用PrivateSubCom

2、mand1_Click(CAsInteger)Text1.SetFocusnum=num+Command1(C).CaptionText1.Text=numEndSub单击数字键0~9和点“.”时，光标落实到焦点上并把数字键的值递给text1.text2对于判断正负数时,如果想要得到负数可以用通过if·····then····结构分情况解决正负数问题IfText1.Text<>""ThenText1.Text=-1*Text1.Textnum=Text1.TextEndIf3.通过selectcas

3、e结构选择事件来判断实现相加，相减，相乘，相除SelectCaseACase0num=Str(Val(num1)+Val(num))Case1num=Str(Val(num1)-Val(num))Case2num=Str(Val(num1)*Val(num))Case3IfVal(num)=0ThenMsgBox"除数不能为零!!!"Text1.Text="0."num=""Elsenum=Str(Val(num1)/Val(num))EndIfEndSelect4.通过用if····then···

4、·elseif结构来解决输出零和负数，并且把计算机默认隐藏的小数点之前的零用trim函数把字符前后空格消掉，并且按情况把“0.”数值显示出来Ifnum=0ThenText1.Text="0."ElseIfnum<=-1Ornum>=1ThenText1.Text=numElseIfnum>0Andnum<1ThenText1.Text="0"&Trim(num)ElseText1.Text="-0"&Trim(-num)EndIf5.单击command8时,把text1.text的值转换为百分化形式

5、PrivateSubCommand8_Click()Text1.Text="0"&Text1.Text/100EndSub二、模块之间的调用关系，或程序流程图打开计算器选择运算符号输入第一个数字显示结果输入第二个数字三、部分程序关键源代码及注释PrivateSubCommand2_Click(CAsInteger)num1=numText1.Text=""num=""EndSub当单击“+，-，×,÷”command2数组事件时，text.1.Text显示空字符PrivateSubCommand4_

6、Click()SelectCaseACase0num=Str(Val(num1)+Val(num))Case1num=Str(Val(num1)-Val(num))Case2num=Str(Val(num1)*Val(num))Case3IfVal(num)=0ThenMsgBox"除数不能为零!!!"Text1.Text="0."num=""Elsenum=Str(Val(num1)/Val(num))EndIfEndSelectIfnum=0ThenText1.Text="0."ElseIfnu

7、m<=-1Ornum>=1ThenText1.Text=numElseIfnum>0Andnum<1ThenText1.Text="0"&Trim(num)ElseText1.Text="-0"&Trim(-num)EndIfnum=""EndSub‘num的值等于val函数转化字符的数值并通过selectcase结构选择事件来判断实现相加，相减，相乘，相除，当转化后的字符值为零时，弹出信息窗口提醒，之后用if····then····elseif结构来解决输出零和负数，并且把计算机默认隐藏的小数点之

8、前的零用trim函数把字符前后空格消掉，并且按情况把“0.”数值显示出来rivateSubCommand5_Click()IfText1.Text<>""ThenText1.Text=-1*Text1.Textnum=Text1.TextEndIfEndSub当单击command5时，计算机判断text1.text的值大小，通过if·····then····结构分情况解决正负数问题四、设计方案的完善及目前存在的问题1．设计方案要完善的地方1.增加高级函数运算功能2.能