vb计算机设计报告怎么写,VB课程设计报告--简易计算器.doc

VB课程设计报告

设计题目：简易计算器

所在院系：高职院

所在专业：

学生学号：

学生姓名：

指导老师：

完成时间：2010-6-3

一、实验目的:

1.培养运用VB6.0界面和代码的能力；

2.活用所学的VB知识制作简单的计算器；

3.发挥各人的想象能力和分析能力，拓展思维空间；

4.掌握应用程序设计的基本方法。

二、需求分析

设计一个简易计算器，能够实现＋－×÷求倒数等基本运算功能，类似于Windows中的计算器。

1、设计思路

先模拟地设计出计算器面板，含各类按钮及结果输出框，其次写出各事件，如数字事件、符号事件、等好事件；再次写出各类运算函数，如加法、减法、乘法、除法；最后于主函数中调用各功能及运算。

这样的设计，主要灵感是来源于生活中的计算器，用程序模拟、抽象地描述出计算器的功能，大有人性化的思维模式：科技以人为本！

2、界面设计

因为VB是一种可视化的编程工具，其整个用户界面的设计都是基于“可视化操作”的。界面设计在VB程序设计中占有重要地位，一个好的界面，不但要令人感觉良好，还要使程序方便易用。熟练掌握VB界面的设计是进行VB程序设计的前提。VB界面的设计主要包括控件的绘制及各控件属性的设置两种工作。

界面截图如下：

三、概要设计:

四、详细设计:

Dim A, B As Single

Dim Op As String

Private Sub Command1_Click()

Text1.Text = Text1.Text + Command1.Caption

End Sub

Private Sub Command10_Click()

If A = 0 Then

A = Text1.Text

Else

B = Text1.Text

End If

Text1.Text = ""

Op = "-"

End Sub

Private Sub Command11_Click()

Text1.Text = Text1.Text + Command11.Caption

End Sub

Private Sub Command12_Click()

Text1.Text = Text1.Text + Command12.Caption

End Sub

Private Sub Command13_Click()

Text1.Text = Text1.Text + Command13.Caption

End Sub

Private Sub Command14_Click()

If A = 0 Then

A = Text1.Text

Else

B = Text1.Text

End If

Text1.Text = ""

Op = "+"

End Sub

Private Sub Command15_Click()

Text1.Text = Text1.Text + Command15.Caption

End Sub

Private Sub Command16_Click()

Text1.Text = Text1.Text + Command16.Caption

End Sub

Private Sub Command17_Click()

Text1.Text = ""

A = 0: B = 0

End Sub

Private Sub Command18_Click()

End

End Sub

Private Sub Command2_Click()

If A = 0 Then

A = Text1.Text

Else

B = Text1.Text

End If

Text1.Text = ""

Op = "/"

End Sub

Private Sub Command3_Click()

B = Text1.Text

Select Case Op

Case "+"

A = A + B

Case "-"

A = A - B

Case "*"

A = A * B

Case "/"

A = A / B

Case "1/x"

A = 1 / A

End Select

Text1.Text = A

End Sub

Private Sub Command4_Click()

Text1.Text = Text1.Text + Command4.Caption

End Sub

Private Sub Command5_Click()

Text1.Text