计算器程序设计

计算器程序设计
学院名称：
学生姓名：
专业名称：
班级：
一、选题的意义
随着现代科学技术日新月异，高速发展，因此计算器进入课堂是历史的必然。

计
算器的一个基本特点是计算迅速准确，使用计算器，可以把学生从烦琐的数字计算
中解脱出来，这样既减轻了中年级学生的课业负担，又能使学生有更多的时间进行
思考、动手操作和实践活动，有利于开发学生的数学灵感，提高数学学习的兴趣，
促进学生智力和能力的发展。

由于大部分学生已经接触过计算器，因此教材只通过
一幅计算器的外型结构图，逐渐让学生了解计算器的键盘结构，同时通过一些简单
的练习题，使学生学会这些按键的使用方法。

然后进一步用计算器探索规律，培养
学生探索意识。

本课程是一门当前流行的程序设计语言课程。

通过VB程序设计语言及其程序设
计方法的学习，不仅使学生得到计算机的应用能力和操作技能的训练，更主要的是
使学生提高高级语言程序设计的能力，以及掌握最新的面向对象的程序设计方法，
并能运用所学的知识开发图形界面（Windows）下的应用软件，为培养学生结合专业
进行软件开发打好基础。

二、系统功能需求分析
2.1系统概述：
本科学计算器是一种能实现加,减,乘,除，乘方,开方等运算功能,基本实现了Windows自带计算器的功能。

要实现计算器的这些功能就用到我们所学的VB知识编写程序来实现运算功能并解决问题，也是我们实训要达到的目的.
2.2系统的构成；
Command按钮（控件数组），文本框，Option，Check，菜单栏。

构成科学计算
器界面。

2.3系统的运行环境： Microsoft Visual Basic中文版。

代码
Option Explicit
Dim FirstNumber, NumberBuffer As Double
Dim chr As String
Dim ScaleCodeState As Boolean
Dim ScaleCode As Integer
Dim ScaleSymbol(0 To 7) As String
Private Sub Init()
Label1.Caption = "0"
FirstNumber = 0
ScaleCode = 0
ScaleCodeState = False
Label2.Caption = ""
End Sub
Private Sub ClearAll_Click()
Call Init
End Sub
Private Sub Form_Load()
Call Init
ScaleSymbol(0) = "+"
ScaleSymbol(1) = "-"
ScaleSymbol(2) = "*"
ScaleSymbol(3) = "/"
End Sub
Private Sub NumberKey_Click(Index As Integer)
chr = Val(Index)
If Left(Label1.Caption, 1) = "0" And Mid(Label1.Caption, 2, 1) <> ". " Then Label1.Caption = Right(Label1.Caption, Len(Label1.Caption) - 1)
If Len(Label1.Caption) < 20 Then
If ScaleCodeState = True Then
ScaleCodeState = False
Label1.Caption = ""
End If
Label1.Caption = Label1.Caption + chr
NumberBuffer = Val(Label1.Caption)
End If
End Sub
Private Sub ScaleKey_Click(Index As Integer) ScaleCode = Index
FirstNumber = NumberBuffer
ScaleCodeState = True
Label2.Caption = ScaleSymbol(Index)
Label1.Caption = "0"
End Sub
Private Sub Equal_Click()
Select Case ScaleCode
Case 0
NumberBuffer = FirstNumber + NumberBuffer Case 1
NumberBuffer = FirstNumber - NumberBuffer Case 2
NumberBuffer = FirstNumber * NumberBuffer Case 3
NumberBuffer = FirstNumber / NumberBuffer End Select
Label1.Caption = NumberBuffer
FirstNumber = NumberBuffer
ScaleCodeState = True
Label2.Caption = ""
End Sub
四、设计体会
在设计程序的过程中我感受到，既要学会分析BASIC程序的执行流程，又要熟悉和掌握VB的操作界面、面向对象程序设计的特点，要特别重视数据类型的定义、表达式、函数及常用控件的属性、功能和使用。

还了解了VB过程中的设计理念，集成开发坏境，工程管理，窗体和常用控件，运算符，内部函数，基本语句的了解，循环结构，数组概念基本操作，过程的分类。

通过近一个月的课程设计培训，我不禁熟悉了程序设计的基本流程和相应的vb知识，也在与同学一同学习、设计的过程中培养了合作精神，最后，感谢老师这段时间对我们的悉心辅导，感谢学校能够给我们这次学习、提高的机会！。