Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim S1, S2, S3, S4, HASIL As Integer
S1 = TextBox1.Text
S2 = TextBox2.Text
S3 = TextBox3.Text
S4 = TextBox4.Text
HASIL = S1 * S2 * S3 * S4
TextBox5.Text = HASIL
End Sub
End Class
Komentar
Posting Komentar