Programar de encontrar la Mediana,Moda y media (Visual foxfro 6.0)

Primero diseñamos el formulario asi:


Luego en el boton calcular ingresamos el siguiente codigo:

num1=thisform.txtnum1.value

num2=thisform.txtnum2.value

num3=thisform.txtnum3.value

num4=thisform.txtnum4.value

moda=thisform.txtmoda.value

mediana=thisform.txtmediana.value

media=thisform.txtmedia.value

media=(val(num1)+val(num2)+ val(num3)+ val(num4))/4

thisform.txtmedia.value=media

mediana=(val(num2)+ val(num3))/2

thisform.txtmediana.value=mediana

if num1=num2.and.num1=num3

thisform.txtmoda.value=num1

else

if num1=num4

thisform.txtmoda.value=num1

else

if num2=num1

thisform.txtmoda.value=num1

else

if num2=num3

thisform.txtmoda.value=num1

else

if num2=num4

thisform.txtmoda.value=num1

else

if num3=num1

thisform.txtmoda.value=num1

else

if num3=num2

thisform.txtmoda.value=num1

else

if num4=num1

thisform.txtmoda.value=num1

else

if num4=num2

thisform.txtmoda.value=num1

else

if num4=num3

thisform.txtmoda.value=num1

else

i="no hay moda"

thisform.txtmoda.value=i

endif

endif

endif

endif

endif

endif

endif

endif

endif

endif

-Ejecutado el programa se nos mostrara de la siguiente forma: