V$.$ CONTINUACION: SUBPROGRAMAS: SUBRUTINAS Y FUNCIONES

I. Private Sub cmdConvert$\_$Click$()$

Dim temp As Single

'Convert Celsius to Fahrenheit

temp $=95$

picOutput.Print CtoF$($temp$)$

End Sub

Private Function CtoF$($t As Single$)$ As Single

CtoF $=(\frac{9}{5})**t+32$

End Function

$2.$ Private Sub cmdDisplay$\_$Click$()$

Dim acres As Single

'acres Number of acres, in a parking lot

acres $=5$

picOutput.Print "You can park about"; Cars$($acres$)$; "cars."

End Sub

Private Function Cars$($x As Single$)$ As Single

'Parking cars

Cars $=100**x$

End Function