资源描述：
《vb计算器课程设计报告》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。
1、VisualBasic课程设计报告题目计算器的设计与实现专业班级学号姓名指导教师2011年6月29日计算器的设计与实现摘要：通过学习VISUALBASIC语言应用VB开发工具,5利用响应鼠标事件即可制作简易计算器，响应鼠标事件即：当用户想要进行运算时,可以用鼠标直接点击界面的数字键、运算符以及各功能的按钮（清除,退出,鼠标位置）。具体操作如下：用鼠标按动界面上第一个数字,然后按动运算符,再按动界面上的第二个数字,最后按等于即可运算出结果。1.界面设计：应用VISUALBASIC开发工具，根据WINDOWS计算器界面模型，修改后制作计算器界面。新建一个
2、窗体，添加一个文本框用于显示运算数字和结果，添加若干按钮包括（数字0—9，+，-，*，/，=，CE,C,Back，%，1/x,sqrt）。当单击数字按钮时输入运算数时，单击运算符按钮，再单击“=”按钮，则再文本框中显示计算结果。具体如下图所示：图1计算器界面设计示意图2.程序设计：（1）新建框体和按键模型后定义变量：输入的操作数，DimOp1,Op2。小数点是否仍然存在，DimDecimalFlagAsInteger。操作数个数，DimNumOpsAsInteger。指示上一次按键事件的类型，DimLastInput。指示未完成的操作，DimOpFl
3、ag。定义文本框输出，DimTempReadout。窗体的初始化过程，设置所有变量为其初始值：DecimalFlag=FalseNumOps=0LastInput="NONE"OpFlag=""5Readout=Format(0,"0.")'Decimal.Caption=Format(0,".")。（2）输入数字键(0-9)的Click事件过程，向显示中的数追加新数：调用format函数强制定义始终在第一位添加一个”.”，并在显示数中追加新数，如果显示数小于零，则添加负号。IfLastInput<>"NUMS"ThenReadout=Format(
4、0,".")DecimalFlag=FalseEndIfIfDecimalFlagThenReadout=Readout+Number(Index).CaptionElseReadout=Left(Readout,InStr(Readout,Format(0,"."))-1)+Number(Index).Caption+Format(0,".")EndIfIfLastInput="NEG"ThenReadout="-"&ReadoutLastInput="NUMS"（3）运算符(+,-,x,/,=)的Click事件过程如果接下来的按键是数字键，增加N
5、umOps如果有一个操作数，则设置Op1如果有两个操作数，则将Op1设置为Op1与当前输入字符串的运算结果，并显示结果（以其中加法部分为例）：IfLastInput="NUMS"ThenNumOps=NumOps+1EndIfelectCaseNumOpsCase0IfOperator(Index).Caption="-"AndLastInput<>"NEG"ThenReadout="-"&ReadoutLastInput="NEG"EndIfCase1Op1=ReadoutIfOperator(Index).Caption="-"AndLastIn
6、put<>"NUMS"AndOpFlag<>"="ThenReadout="-"LastInput="NEG"EndIfelectCaseOpFlag5Case"+"Op1=CDbl(Op1)+CDbl(Op2)Readout=Op1NumOps=1EndSelect（4）%，sqrt，1/X,等的Click事件过程以1/X为例举出：以倒数1/Readout输出，在输出结果中调用format函数强制定义添加“0.”，并可进行连续运算Readout=1/ReadoutReadout.Text=Format(Readout.Text,"0.#######
7、#############")LastInput="Ops"OpFlag="1/x"NumOps=NumOps+1DecimalFlag=True（5）C,CE,Back，”.”等Click事件过程以C和”.”为例,C按钮的Click事件过程，重新设置显示并初始化变量：清零操作数，并在显示结果中定义一个“0.”Readout=Format(0,"0.")Op1=0Op2=0Form_Load（6）小数点(.)按钮的Click事件过程,如果上一次按键为运算符，初始化readout为"0."否则显示时追加一个小数点:PrivateSubDecimal_C
8、lick()IfLastInput="NEG"ThenReadout=Format(0,"-0.")Else
