Public Class Form1
Private Sub btnvolume_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnvolume.Click
Dim Luas, Tinggi, hasil As Integer
Luas = Val(txtluas.Text)
Tinggi = Val(txttinggi.Text)
hasil = Val(txtluas.Text * txttinggi.Text)
txthasil.Text = hasil
End Sub
End Class
Komentar
Posting Komentar