《简单计算器程序》由会员分享，可在线阅读，更多相关《简单计算器程序（4页珍藏版）》请在金锄头文库上搜索。
1、VB)加减乘除计算器设计报告学院机械工程班级机设054 学号050389 姓名王廷元_成绩一、设计思路1. 要达到的目的 主要是培养学生利用系统提供的基本控件进行创新性设计，理解 Visual Basic 语言中面向对象的程序设计。培养学生综合利用Visual Basic语言进行程序设计的能力。2. 关键问题的解决先使用 Command 命令按钮，命令按钮控件数组，文本框等基本控件设计窗体，再根据下面方法编制程序1连续输入新操作数的若干个数字时，采用txtDisplay.Text=txtDisplay.Text&Format$(Index)txtDisplay.Text= txtDisplay
2、.Text&cmdNumber(Index).CaptiontxtDisplay.Text =txtDisplay.Text&Index2对于正整数运算单击操作数的输入，需要设置一个逻辑变量，使其逻辑值为ture，准备新操作数的输入。3. 当一个对象(本题指文本框)具有焦点时，在键盘上按键操作出发下面事件过程Private Sub Form_KeyPress(KeyAscii As Integer)，在该过程中调用txtDisplay_KeyPressKeyAscii根据KeyAscii对应的字符，调用相应过程。二、模块之间的调用关系，或程序流程图VB)三、部分程序关键源代码及注释。Priva
3、te Sub Command10_Click()清空Textl,使操作数空Text1.Text=”num= ”End SubPrivate Sub Commandll_Click()If Textl.Text”ThenTextl.Text=-l*Textl.Text定义负号num=Textl.TextEnd IfEnd SubPrivate Sub Command2_Click(Index As Integer)numl=numTextl.Text=”num= ”C=IndexEnd SubPrivate Sub Command3_Click()EndEnd SubPrivate Sub Co
4、mmand4_Click()Tex tl.Tex t二Sqr(Val(Tex tl .Tex t)提示：当输入负，那么错，根号不可为负End SubPrivate Sub Command5_Click()Textl.Text=Val(Textl.Text)*Val(Textl.Text)End Sub 三、设计方案的完善及目前存在的问题1设计方案要完善的地方增加高级函数运算功能精炼程序2. 目前存在的问题无法运算高级函数问题退格键清除完数字报错四、本次设计的收获及心得体会通过几天辛苦的设计培养了我利用系统提供的基本控件进行创新性设计，理解Visual Basic语言中面向对 象的程序设计。培养了我综合利用Visual Basic语言进行程序设计的能力。我相信这对我以后的发展有很大的 益处。五、该题目和VB设计的意见和建议1. 对该题目的意见和建议 题目很切合实际问题，简单易懂，希望题目能更简练些，也希望以后能多提一些贴和我们生活实际需要的题目。2对本次设计的意见和建议 这次活动提高了我们动手实践的能力为我们以后的学习和工作打下了良好的基础。希望以后多组织这样的活动，提高我们的动手设计能力。
