Bài 3: Tính tổng, tích, hiệu , thương

Ø  Phần Design:

                

Ø  Phần kết quả:

v Tính tổng :

v Tính hiệu :

v Tính Tích :

v Tính thương :

Ø  Code chương trình

Public Class Form1

    Dim a, b, tong, hieu, tich, thuong As Double

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

        MsgBox("Mời bạn nhập số cần tính tổng vào khung bên dưới")

        a = InputBox("Nhap a= ")

        b = InputBox("Nhap b= ")

        tong = a + b

        MsgBox("Kết quả là : " & tong)

        MsgBox("Cảm ơn bạn đã sử dụng chương trình của chúng tôi")

    End Sub

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

        MsgBox("Mời bạn nhập số cần tính hiệu vào khung bên dưới")

        a = InputBox("Nhap a= ")

        b = InputBox("Nhap b= ")

        hieu = a - b

        MsgBox("Kết quả là : " & hieu)

        MsgBox("Cảm ơn bạn đã sử dụng chương trình của chúng tôi")

    End Sub

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

        MsgBox("Mời bạn nhập số cần tính tích vào khung bên dưới")

        a = InputBox("Nhap a= ")

        b = InputBox("Nhap b= ")

        tich = a * b

        MsgBox("Kết quả là : " & tich)

        MsgBox("Cảm ơn bạn đã sử dụng chương trình của chúng tôi")

    End Sub

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

        MsgBox("Mời bạn nhập số cần tính thương vào khung bên dưới")

        a = InputBox("Nhap a= ")

        b = InputBox("Nhap b= ")

        thuong = a / b

        MsgBox("Kết quả là : " & thuong)

        MsgBox("Cảm ơn bạn đã sử dụng chương trình của chúng tôi")

    End Sub

End Class