VB课程设加减乘除计算器设计报告.doc

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