Codigo para calcular cuadrado de un numero, conversor de unidades y temperatura

Dim d As Integer d es el diametro
Dim r As Integer r es el radio
Dim a As Double a es el area total
Const pi As Double = 3.1416

Private Sub Command1_Click()
d = Val(Text1.Text)
r = d / 2
a = pi * r * r
Text2.Text = a

End Sub

Private Sub Command2_Click()
Text1.Text = " "
Text2.Text = " "
Text1.SetFocus

End Sub

Private Sub Command3_Click()
End

End Sub