Friday, November 19, 2004

Suma rapida de números consecutivos

 
Pues bien, quedaria asi:

Dim flag1 As Boolean
x = CInt(Text1.Text)

'primero checamos si es impar
If Not (x Mod 2 = 0) Then
flag1 = True
'si es impar almazenamos el ultimo valor en una variable
temp = x
'y vovemos par a el valor original
x = x - 1
End If
y = x / 2
z = x + 1
resultado = z * y
'si la bandera es verdadera le sumamos a el resultado el numero que almacenamos en temp
If flag1 = True Then
resultado = resultado + temp
End If

Facil? no?, bien luego veremos otros interesantes truquitos :)

Comments:
Que feo es Visual Basic.
 
Post a Comment  Home