Komputer

Private Sub btbagi_Click()
Dim b1, b2 As Integer
        b1 = Val(txtBil1.Text)
        b2 = Val(txtBil2.Text)
        h = b1 / b2
        txtHasil.Text = h
End Sub

Private Sub btClose_Click()
End
End Sub

Private Sub btKali_Click()
Dim b1, b2 As Integer
        b1 = Val(txtBil1.Text)
        b2 = Val(txtBil2.Text)
        h = b1 * b2
        txtHasil.Text = h
End Sub

Private Sub btkurang_Click()
Dim b1, b2 As Integer
b1 = Val(txtBil1.Text)
b2 = Val(txtBil2.Text)
h = b1 - b2
txtHasil.Text = h
End Sub

Private Sub btNew_Click()
txtBil1.Text = ""
txtBil2.Text = ""
txtHasil.Text = ""
txtBil1.Text = ""
End Sub

Private Sub btTambah_Click()
Dim b1, b2 As Integer
b1 = Val(txtBil1.Text)
b2 = Val(txtBil2.Text)
h = b1 + b2
txtHasil.Text = h
End Sub