Red de conocimiento informático - Problemas con los teléfonos móviles - vb Urgente~¡Gracias~!

vb Urgente~¡Gracias~!

Crea tres comandos 1-3 y cuatro textos 1-4

Atenuar X como único, Eps como único, Suma como simple

Atenuar N como entero, S como Único

Sub privado form_load()

Command1.Caption = "Proceso de función"

Command2.Caption = "Subproceso"

Command3 .Caption = "Salir"

Command1.Enabled = False

Command2.Enabled = False

Text1.Text = "Ingrese el valor de x (0

Text2.Text = "Precisión de entrada (0

Text3.Text = ""

Text4. Text = " "

Text3.Locked = True

Text4.Locked = True

Text2.ForeColor = &H808080

Text2.Enabled = False

End Sub

Sub comando privado1_click() 'Procedimiento de función

Suma = 1

N = 1

Hacer Mientras F(X, N) >= Eps

Suma = Suma + F(X, N)

N = N + 1

Bucle

Text3.Text = Str(Sum)

End Sub

Subcomando privado2_click() 'Subproceso

Suma = 1

N = 1

Hacer

Llamar a Fx

Si S <= Eps Entonces

Salir Hacer

Else

Suma = Suma + S

N = N + 1

Finalizar si

Bucle

Texto4.Text = Str(Sum)

Fin Sub

Comando Sub privado3_click()

Fin

Fin Sub

Subtexto privado1_GotFocus()

Text1.Text = ""

Fin del subtexto

Subtexto privado2_GotFocus()

'Text1.Enabled = False

Text2.ForeColor = vbBlack

Text2.Text = ""

End Sub

Sub privado Text1_KeyPress

(KeyAscii como entero)

Si Text1.Text = "Ingrese el valor de x (0

Text1.Text = ""

ElseIf KeyAscii = 13 Entonces

Si Text1.Text = "" Entonces

Text1.Text = "Ingrese el valor de x (0

Salir de Sub

Fin si

X = Val(Text1.Text)

Si X <= 0 o X >= 1 Entonces

Text1.Text = "Ingrese el valor de x (0

Salir de Sub

Finalizar si

Text2.Enabled = True

Text2.SetFocus

Finalizar si

End Sub

Sub privado Text2_KeyPress(KeyAscii As Integer)

Si Text2. Texto = "Precisión de entrada (0

Texto2.Text = ""

ElseIf KeyAscii = 13 Entonces

Si Texto2.Text = "" Entonces

Text2.Text = "Precisión de entrada (0

Salir Sub

Finalizar si

Eps = Val(Text2.Text)

Si Eps <= 0 O Eps >= X Entonces

Text2.Text = "Precisión de entrada (0

Salir Sub

Fin si

Comando1.Enabled = Verdadero

Comando2.Enabled = Verdadero

Fin si

End Sub

Función F(ByVal A como único, ByVal B como entero)

Atenuar I como byte, J como único, K como único

J = 1

K = 1

Para I = 1 A N

J = J * A

K = K * I

Siguiente

F = J / K

Función final

Private Sub Fx()

Atenuar I como byte, J como único, K como único

J = 1

K = 1

Para I = 1 A N

J = J * X

K = K * I

Siguiente

S = J/K

End Sub

Ya ejecutado.