¿Preguntas sobre programación VFP?

nadd=0

Para i=1 a 100

nadd=nadd+i^2

Fin

nadd

2.

Suma el curso 1 para nadd el curso 1 >=85 y el curso 1

Y así sucesivamente

3.

Talla a(9)

A(1)="1一"

……

A (9 ) = "9jiu "

CTEXT= " "

cadd= " "

Ingrese "Ingrese el valor que desea convertir a m"

if vartype(m)="N "

CTEXT=ALLTRIM(STR(M))

Otro

ctext=alltrim(m)

endif

n=len(ctext)

Para i=1 a n

Para j=1 a 9

s=substr(ctext,I,1)

si en(s,a(j))>0

cadd=cadd+right(a( j), 2)

Salir

endif

Fin

Fin

Ctext+"Convertir a mayúsculas: "+ cadd "

3.

Ztext="1-1, 2, 2, 3, 3, 4, 4, 5, 6, 6, 7, 7, 8 , 8 , 9 y 9 "

Transfer = " "

Ingrese el número o cadena que se convertirá "a m".

ctext=alltrim( m )

n=len(ctext)

Para i=1 a n

s=substr(ctext, I, 1)

Si! en(s, ztext)=0

h=en(s, ztext)+1

Conversión=conversión+substr(ztext, h, 2)

Otros

Messagebox("Los datos de entrada deben ser números", "Preguntar")

Salir

endif

Fin

"El resultado de la conversión es: "+conversión.