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