LIMAS SEGIEMPAT

Nama : SRIWAHYUNI
NIM : 19010020

Public Class Form1

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

    End Sub

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

        Dim sisi, alas, tinggi, hasil As Integer

        sisi = Val(txtsisi.Text)

        alas = Val(txtalas.Text)

        tinggi = Val(txttinggi.Text)

        hasil = Val(1 / 3 * txtalas.Text * txttinggi.Text)

        txthasil.Text = hasil

    End Sub

End Class