Volume Bangun Ruang Sisi Lengkung dengan Visual Basic 6.0

1. Buat desain Seperti ini :
   
2. Masukkan Script:

Private Sub voltabung_Click()
Dim a, b As Integer
a = Text1.Text
b = Text2.Text
Text3.Text = 22 / 7 * a * a * b
End Sub

Private Sub volkerucut_Click()
Dim X, Y As Integer
X = Text4.Text
Y = Text5.Text
Text6.Text = 1 / 3 * 22 / 7 * X * X * Y
End Sub

Private Sub volbola_Click()
Dim z As Integer
z = Text7.Text
Text8.Text = 4 / 3 * 22 / 7 * z * z * z
End Sub

Private Sub luastabung_Click()
Dim c, d As Integer
c = Text9.Text
d = Text10.Text
Text11.Text = 2 * 22 / 7 * c * c + 2 * 22 / 7 * c * d
End Sub

Private Sub luaskerucut_Click()
Dim e, f As Integer
e = Text12.Text
f = Text13.Text
Text14.Text = 22 / 7 * e * e + 22 / 7 * e * f
End Sub

Private Sub luasbola_Click()
Dim g As Integer
g = Text15.Text
Text16.Text = 4 * 22 / 7 * g * g
End Sub

Private Sub clearvoltabung_Click()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
End Sub

Private Sub clearvolkerucut_Click()
Text4.Text = ""
Text5.Text = ""
Text6.Text = ""
End Sub

Private Sub clearvolbola_Click()
Text7.Text = ""
Text8.Text = ""
End Sub

Private Sub clearluastabung_Click()
Text9.Text = ""
Text10.Text = ""
Text11.Text = ""
End Sub

Private Sub clearluaskerucut_Click()
Text12.Text = ""
Text13.Text = ""
Text14.Text = ""
End Sub

Private Sub clearluasbola_Click()
Text15.Text = ""
Text16.Text = ""
End Sub