用vb实现计算机功能

报告书

名称

实验10-1 实现计算器的功能

姓名

 

指导教师

 

学号

 

日期

 

任务清单

在本练习中，你将使绘制的计算器完成简单的四则运算。

1)        启动Visual Studio 2005。

2)        新建一个VB Windows应用程序，在名称处输入“Calculator”,在位置处选择程序存放地址，点击确定。

3)        拖拽相应的TextBox控件和Button控件到窗体设计器中，绘制出一个计算器的界面

4)        转到代码设计器，在Button的Click事件中添加如下代码，以实现简单的四则运算功能

5)        运行程序：[调试]—>[启动调试]，进入界面

6)        点击按钮来测试你的计算器

7)        关闭程序

8)        程序的运行截图如下所示：

9） 参考代码：

Public Class Calculator

 

    Dim a, b As Double

    Dim strCalKind As String

 

 

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        TextBox1.Text += Button1.Text

    End Sub

 

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

        TextBox1.Text += Button2.Text

    End Sub

 

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

        TextBox1.Text += Button3.Text

    End Sub

 

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click

        TextBox1.Text += Button4.Text

    End Sub

 

    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click

        TextBox1.Text += Button5.Text

    End Sub

 

    Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click

        TextBox1.Text += Button6.Text

    End Sub

 

    Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click

        TextBox1.Text += Button7.Text

    End Sub

 

    Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click

        TextBox1.Text += Button8.Text

    End Sub

 

    Private Sub Button9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button9.Click

        TextBox1.Text += Button9.Text

    End Sub

 

    Private Sub Button10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button10.Click

        If Not (TextBox1.Text = "0") Then

            TextBox1.Text += Button10.Text

 

        End If

    End Sub

 

 

    Private Sub Button17_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button17.Click

        If Not (TextBox1.Text.Contains(".")) Then

            TextBox1.Text += Button17.Text

        End If

    End Sub

 

    Private Sub Button12_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button12.Click

        a = Convert.ToDouble(TextBox1.Text)

        TextBox1.Text = ""

        strCalKind = "+"

    End Sub

 

    Private Sub Button13_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button13.Click

        a = Convert.ToDouble(TextBox1.Text)

        TextBox1.Text = ""

        strCalKind = "-"

    End Sub

 

    Private Sub Button14_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button14.Click

        a = Convert.ToDouble(TextBox1.Text)

        TextBox1.Text = ""

        strCalKind = "*"

    End Sub

 

    Private Sub Button15_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button15.Click

        a = Convert.ToDouble(TextBox1.Text)

        TextBox1.Text = ""

        strCalKind = "/"

    End Sub

 

    Private Sub Button16_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button16.Click

        b = Convert.ToDouble(TextBox1.Text)

        Try

            If (strCalKind = "+") Then

                TextBox1.Text = (a + b).ToString()

            ElseIf (strCalKind = "-") Then

                TextBox1.Text = (a - b).ToString()

            ElseIf (strCalKind = "*") Then

                TextBox1.Text = (a * b).ToString()

            ElseIf (strCalKind = "/") Then

                TextBox1.Text = (a / b).ToString()

            End If

        Catch ex As Exception

            MessageBox.Show(ex.ToString())

        End Try

 

        strCalKind = ""

    End Sub

 

    Private Sub Button18_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button18.Click

        Dim length As Integer

        length = TextBox1.Text.Length

        TextBox1.Text = TextBox1.Text.Remove(length - 1, 1)

    End Sub

End Class