简单科学计算器的设计及实现
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
XXXXXX大学
VB程序设计实验报告
题目：简单科学计算器的设计及实现
班级：XXXXXXXXXXXXXX
学号： XXXXXXXXXX
姓名：XXXX
简单型科学计算器的设计与实现
一·实验目的
1．通过本实验，进一步理解Visual Basic的编程方法。
2．提高运用Visual Basic编程的能力。
3．培养对所学知识的综合运用能力。
4．运用控件数组，选择结构，IF，CASE语句等所学知识编程一个简单型科学计算器二·实验类型
综合型实验。
三·实验内容与步骤
1．实验内容：
编写一个简单计算器程序，实现基本运算，程序的运行结果如图所示
2.实验步骤
(1). 在窗体上建立一个命令按钮控件数组，有18个数组元素，其caption属性值如上图所示。
(2). 创建commond1（）控件数组，将命令按钮0~9的index值分别设为0~9，±命令按钮
的index值为10，创建commond2（）控件数组命令按钮加减乘除的index值为0,1,2,3，commond3按钮为小数点，commond4按钮为=，commond5为清除。
(3).建立文本框txet1来显示输入数据及运算结果。
(4) 熟练运用if，case语句编写程序。
（5）运行程序及调试。
四·程序代码如下：
Dim n As Double,t As Double,k As String
Private Sub Command1_Click(Index As Integer)
Text1.Text = Text1.Text + Command1(Index).Caption
Select Case Index
Case 10
If Left(Text1.Text, 1) <> "-" Then
Text1.Text = "-" & Text1.Text
Else
Text1.Text = Right(Text1.Text, Len(Text1.Text) - 1)
End If
End select
End Sub
Private Sub Command2_Click(Index As Integer)
n = V al(Text1.Text)
k = Command2(Index).Caption
Text1.Text = ""
End Sub
Private Sub Command3_Click()
n = 0
t = 0
str (n) = ""
str(t) = ""
firstnum = True
Text1.Text = "0."
End Sub
Private Sub Command4_Click()
t = V al(Text1.Text)
Select Case k
Case "+"
Text1.Text = n + t
Case "-"
Text1.Text = n -t
Case "×"
Text1.Text =n * t
Case "÷"
If t<> 0 Then
Text1.Text =n /t
Else
MsgBox "分母不能为零!", 1 + 32 + 0, "错误"
Text1.texe=””
End If
End Select
End Sub
Private Sub Command5_Click()
Text1.Text = Text1.Text + "."
If (InStr(Text1.Text, ".") = 1) Then '第一位不能为小数Text1.Text = ""
End If
If InStr(Text1.Text, ".") < Len(Text1.Text) Then
'防止出现两个小数点
Text1.Text = Left(Text1.Text, Len(Text1.Text) - 1) End If
End Sub