Program menghitung lingkarang menggunakan visual besic

     A. Tampilan Form

a.     B. Listing

Private Sub Command1_Click()

phi = 3.14

R = Val(Text1.Text)

luas = phi * R * 2

Keliling = phi * R ^ 2

Text2.Text = luas

Text3.Text = Keliling

End Sub

Private Sub Command2_Click()

Text1.Text = Clear

Text2.Text = Clear

Text3.Text = Clear

End Sub