Programación Vf
Método 1:
Borrar
x=rand()*1000
c = allt(str(x)) amp convertir x a carácter Tipo,
Para i =1 a 3
si substr(c,I,1)="7 "
? "Contiene el número 7"
Salir
endif
Fin
Regresar
Método 2: p >
Borrar
x=rand()*1000
Para i=1 a 3
Si x10=7
? "contiene el número 7"
salir
endif
x = piso(x/10)
end
Volver
Pregúntame si no entiendes.