vb计算器设计报告
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
一．设计思路 (1)
二．关键问题的解决 (1)
三．概要设计说明 (1)
四．源代码 (1)
五．心得体会 (8)
一．设计思路
1.要达到的目的要达到的目的主要是培养学生利用系统提供的基本控件进行创新性设计，理解Visual Basic 语言中面向对象的程序设计。培养学生综合利用Visual Basic 语言进行程序设计的能力。
二．关键问题的解决
先使用Command 命令按钮，命令按钮控件数组，文本框等基本控件设计窗体，再根据下面方法编制程序：
三．概要设计说明
本组设计的科学计算器具有科学型和标准型两种类型, 适合不同需要.科学型中包含弧度与角度的计算,同时兼具2,8,10,16 进制的运算.
四．源代码
Dim num1 As Double
Dim num2 As Double
Dim num3 As Double
Dim flag As Double
Dim operator As Integer
Dim q As Integer
Private Sub Command1_Click(Index As Integer)
Select Case Index
Case Is <= 9
If Index = 0 And Val(Text1.Text) = 0 Then
Text1.Text = 0
Else
If Val(Text1.Text) = 0 Then
Text1.Text = Index
Else
Text1.Text = Text1.Text & Index
End If
End If
Case Is >= 20
If (Val(Text1.Text) = 0) Then
Text1.Text = Command1(Index).Caption
Else
Text1.Text = Text1.Text + Command1(Index).Caption End If
Case 10
Text1.Text = Text1.Text + "."
Case 11
Text1.Text = -Val(Text1.Text)
Case 12
If Not flag Then
num1 = Val(Text1.Text)
Text1.Text = 0
flag = True
operator = 1
End If
Case 13
If Not flag Then
num1 = Val(Text1.Text)
Text1.Text = 0
flag = True
operator = 2
End If
Case 14
If Not flag Then
num1 = Val(Text1.Text)
Text1.Text = 0
flag = True
operator = 3
End If
Case 15
If Not flag Then
num1 = Val(Text1.Text)
Text1.Text = 0
flag = True
operator = 4
End If
Case 16
If Not flag Then
num1 = Val(Text1.Text)
Text1.Text = 0
flag = True
operator = 5
End If
Case 17
num1 = Val(Text1.Text)
Text1.Text = Sqr(num1)
Case 19
Text1.Text = 0
Case 18
If flag Then
If q = 2 Then
num1 = Val("&O" & Val(num1))
num2 = Val("&O" & Val(Text1.Text)) Select Case operator
Case 1
num3 = num1 + num2
Case 2
num3 = num1 - num2
Case 3
num3 = num1 * num2
Case 4
num3 = num1 / num2
Case 5
num3 = num1 Mod num2
End Select
num3 = Oct(Val(num3))
Text1.Text = num3
flag = False
ElseIf q = 4 Then
num1 = Val("&H" & num1)
num2 = Val("&H" & Text1.Text) Select Case operator
Case 1
num3 = num1 + num2
Case 2
num3 = num1 - num2
Case 3
num3 = num1 * num2
Case 4
num3 = num1 / num2
Case 5