Visual Basic Part 2 ( Menghitung Luas & Volume Bola )

Dim J As Integer
Dim L As Double
Dim V As Double

Private Sub CMDK_Click()
    End
End Sub

Private Sub CMDL_Click()
    J = Val(TXTJ.Text)
    L = 4 * 3.14 * J ^ 2
    LBLLUAS.Caption = Format(L, "####.##,00")
    End Sub

Private Sub CMDU_Click()
    TXTJ.Text = ""
    LBLLUAS.Text = ""
    LBLVOL.Text = ""
    TXTJ.SetFocus
End Sub

Private Sub CMDV_Click()
    J = Val(TXTJ.Text)
    V = (4 / 3) * 3.14 * J ^ 3
    LBLVOL.Caption = Format(V, "####.##,00")
End Sub