Tarea de programación de VB~ ~ ~Emergencia~ ~ ~

Hasta el punto 50, el procedimiento es el siguiente:

Representar n como un número entero

Etiquetar I como un número entero

Dim j es un número entero

Respuesta difusa 50 veces

La respuesta tenue 10E_6 es doble

Temperatura tenue de doble precisión

n = 50

Respuesta 50 = 1

Para i = 1 a n

Temperatura = 1

Para j = 1 a I

Temperatura = temperatura * j

Siguiente j

Respuesta 50 = Respuesta 50 1/temporal

Entonces

Hasta que el último elemento sea inferior a 10 -6 veces, el procedimiento es el siguiente:

Respuesta 10E_6 = 1

i = 1

Do

Temperatura = 1

Para j = 1 a I

Temperatura = Temperatura * j

Siguiente j

Respuesta 10E_6 = Respuesta 10E_6 1 /temp

i = i 1

Recorrido hasta 1/temp <0.000001

MsgBox("Agregar 50 respuestas : "; respuestas ampvbCrLf amp;" Hasta que el último elemento sea menos de 10 -6 veces, la respuesta es: "; respuesta 10E_6)

La respuesta a la segunda pregunta es:

Etiquetar I como un número entero

Atenuar iMin como un número entero

Atenuar iMax como un número entero

Atenuar respuestaStr como una cadena

answerStr = " "

iMin = Sqrt (1000)

iMax = Sqrt(10000)

Para i = iMin a iMax

answerStr = respuestaStr amp"," ampi*i

Entonces

MsgBox(answerStr)