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 p> 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 p> 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 p> 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.