VB计算器设计实验报告
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
实验报告
课程名称：Visual Basic程序设计实验实验项目：计算器设计
学院：信息科学技术学院
专业班级：2014级电子信息工程
姓名：
学号：
一、实验目的和要求
1、了解Visual Basic系统对计算机软件、硬件的要求。
2、掌握启动与退出Visual Basic的方法。
3、熟悉Visual Basic的集成开发环境。
4、掌握在窗体上添加控件的各种方法。
5、掌握Visual Basic函数的用法
6、掌握建立、编辑、运行和保存一个简单的Visual Basic应用程序的全过程。
二、实验仪器和软件环境
1、实验仪器：计算机
2、软件环境：Microsoft Visual Basic 6.0 中文版
三、实验步骤及过程
1、界面创建
（1）、启动Microsoft Visual Basic 6.0 中文版，创建一个“标准EXE”类型的Visual Basic 应用程序，如图所示：
（2）、在Form1中添加一个Frame控件，把其Caption属性值设为“计算器”如图所示：
图所示
2、代码编写
（1）、双击控件数组1中的任意一个命令按钮，编写代码，如下：Private Sub Command1_Click(Index As Integer)
Text1.Text = Text1.Text + Command1(Index).Caption
End Sub
（2）、双击控件数组2中的任意一个命令按钮，编写代码，如下：Private Sub Command2_Click(Index As Integer)
j = 1
Pi = 4 * Atn(1#)
z = Val(Text1.Text)
y = z * Pi / 180
n = Index
Select Case n
Case 0
Text1.Text = z * z
Case 1
Text1.Text = Abs(z)
Case 2
If z < 0 Then
MsgBox "错误"
Else
Text1.Text = Sqr(z)
End If
Case 3
Text1.Text = Sin(y)
Case 4
Text1.Text = Cos(y)
Case 5
Text1.Text = Tan(y)
Case 6
Text1.Text = Exp(z)
Case 7
Text1.Text = Log(z)
Case 8
If z = 0 Then
MsgBox "错误"
Else
Text1.Text = 1 / z
End If
Case 9
For i = 1 To z
j = j * i
Next i
Text1.Text = j
End Select
End Sub
（2）、其他各控件代码如下：
Private Sub Command3_Click()
Text1.Text = ""
End Sub
Private Sub Command4_Click(Index As Integer)
Dim x As String
x = Text1.Text
m = Len(x)
n1 = InStr(1, x, "+")
n2 = InStr(1, x, "-")
n3 = InStr(1, x, "*")
n4 = InStr(1, x, "/")
If (n2 = 0 And n3 = 0) And n4 = 0 Then
a = Left(x, n1 - 1)
b = Right(x, m - n1)
Text1.Text = Val(a) + Val(b)
ElseIf (n1 = 0 And n3 = 0) And n4 = 0 Then
Text1.Text = (Atn(-Val(c) / Sqr(-Val(c) * Val(c) + 1)) + 2 * Atn(1#)) * 180 / Pi End Sub
Private Sub Command7_Click() a = Left(x, n2 - 1)
b = Right(x, m - n2)
Text1.Text = Val(a) - Val(b)
ElseIf (n1 = 0 And n2 = 0) And n4 = 0 Then
a = Left(x, n3 - 1)
b = Right(x, m - n3)
Text1.Text = Val(a) * Val(b)
ElseIf (n2 = 0 And n3 = 0) And n1 = 0 Then
a = Left(x, n4 - 1)
b = Right(x, m - n4)
If b = 0 Then
MsgBox "错误"
Else
Text1.Text = Val(a) / Val(b)
End If
Else
MsgBox "错误"
End If
End Sub
Private Sub Command5_Click()
c = Val(Text1.Text)
Pi = 4 * Atn(1#)
Text1.Text = (Atn(Val(c))) * 180 / Pi
End Sub
Private Sub Command6_Click()
c = Val(Text1.Text)
Pi = 4 * Atn(1#)
c = Val(Text1.Text)
Pi = 4 * Atn(1#)
Text1.Text = (Atn(Val(c) / Sqr(-Val(c) * Val(c) + 1))) * 180 / Pi End Sub
3、保存并调试运行
发现错误并改正错误，直到程序正常运行。
4、生成工程
工程界面如图所示：