Ayuda con algoritmo vb
For x = 1 To 1
Next x
g = 2: n = 3
Do While (x < g)
k = 0
Do
k = k + 5
r = r + k - 1
Loop While (k < n)
For i = 1 To n
If (x <> 0) Then
r = r + 3 * i
Else
r = r + i
End If
Next i
n = r + i
x = x + 2
Loop
TextBox1 = r + n + g
que numero daría textbox1? Gracias valeroasm!!
1 respuesta
No tengo ni Excel, ni VB ni nada en estos momentos, trabajo en un ordenador sin nada porque el bueno lo tengo estropeado. Así que lo haré pero no podré comprobarlo.
Con las dos primeras líneas se consigue que x valga 2 ya que entonces es cuando se abandona el bucle for.
Eso en unión con la tercera hará que tengamos
x=2; g=2; n=3
Y no se meterá en el bucle do while (x<g) porque no se cumple x<g, luego saltamos ese bucle y nos vamos a la última línea
TextBox1 = r+n+g = 0+3+2 = 5
Luego el resultado es 5.
Si tienes Excel y sabes hacer macros compruébalo. Yo creo que está bien como lo hice, pero por si acaso se mete en el bucle que entonces ni me quiero pensar lo que puede pasar.
