SEGUNDO PROGRAMA

Crearemos en esta ocación un programa que permita determinar cual es el cuadrado de un determinado número.

Diseñamos la interfax

Declaramos variables

Dim n As Double

Private sub Command1_click ( )

Cuadrado = text1.text*text1.text

text2.text= Cuadrado

End sub

Private sub Command2_click ( )

text1.text = " "

text2.text = " "

text1.Setfocus

End sub

Private sub Command3_click ( )

End

End sub

Text1_Change ( )

if text1.text <> " " then

a= val(text1.text)

End if

Text1_Keypress (keyascii As Integer)

if Keyascii <> 57 then

Keyascii = 0

End if

Text2_Change ( )
if text1.text <> " " then
a= val(text2.text)
End if

Text2_Keypress (keyascii As Integer)
if Keyascii <> 57 then
Keyascii = 0
End if

Voy a propiedades locked True