Diklogi

Code programnya : 

Dim jar As Single
Dim luas As Single
Dim kel As Single
Dim nilai1 As Single
Dim nilai2 As Single
Dim nilai3 As Single
Dim jml As Single
Dim rata2 As Single

Private Sub Command1_Click()
jar = Text1.Text
luas = 3.14 * jar * jar
kel = 2 * 3.14 * jar
Text2.Text = luas
Text3.Text = kel
End Sub

Private Sub Command2_Click()
nilai1 = Text4.Text
nilai2 = Text5.Text
nilai3 = Text6.Text
jml = nilai1 + nilai2 + nilai3
rata2 = jml / 3
Text7.Text = jml
Text8.Text = rata2
End Sub

Salam ilmu pengetahuan ^^