VB加减乘除计算器设计报告

加减乘除计算器设计报告

加减乘除计算器设计报告

学院 班级 学号 姓名 成绩

一、设计思路

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&Index

2.对于正整数运算单击操作数的输入，需要设置一个逻辑变量，使其逻辑值为ture，准备新操作数的输入。 3. 当一个对象（本题指文本框）具有焦点时，在键盘上按键操作出发下面事件过程 Private Sub Form_KeyPress(KeyAscii As Integer)， 在该过程中调用 txtDisplay_KeyPressKeyAscii 根据KeyAscii对应的字符，调用相应过程。

二、模块之间的调用关系，或程序流程图

显示结果

输入第二个数字 打开计算器 输入第一个数字 选择运算符号 加减乘除计算器设计报告

三、部分程序关键源代码及注释

。。。。。。。。

Private Sub Command10_Click() ‘清空Text1，使操作数空 Text1.Text=”” num=”” End Sub

Private Sub Command11_Click() If Text1.Text<>””Then

Text1.Text=-1*Text1.Text num=Text1.Text End If End Sub

Private Sub Command2_Click(Index As Integer) num1=num Text1.Text=”” num=”” C=Index End Sub

Private Sub Command3_Click() End End Sub

Private Sub Command4_Click()

定义负号 加减乘除计算器设计报告

Text1.Text=Sqr(Val(Text1.Text)) ‘提示：当输入负，那么错，根号不可为负 End Sub

Private Sub Command5_Click()

Text1.Text=Val(Text1.Text)*Val(Text1.Text) End Sub

三、设计方案的完善及目前存在的问题

1．设计方案要完善的地方 ①增加高级函数运算功能 ②精炼程序

2. 目前存在的问题

①无法运算高级函数问题 ②退格键清除完数字报错

四、本次设计的收获及心得体会

通过几天辛苦的设计培养了我利用系统提供的基本控件进行创新性设计，理解Visual Basic语言中面向对象的程序设计。培养了我综合利用Visual Basic语言进行程序设计的能力。我相信这对我以后的发展有很大的益处。

五、该题目和VB设计的意见和建议

1. 对该题目的意见和建议

题目很切合实际问题，简单易懂，希望题目能更简练些，也希望以后能多提一些贴和我们生活实际需要

的题目。

2．对本次设计的意见和建议

这次活动提高了我们动手实践的能力为我们以后的学习和工作打下了良好的基础。希望以后多组织这样的活动，提高我们的动手设计能力。

本文来源：https://www.bwwdw.com/article/thu5.html