简单科学计算器的设计及实现

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。