Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.
.Cita de: 79137913 en 16 Febrero 2011, 12:05 PM
HOLA!!!
Creo que ya terminamos
TABLA POSITIVOS Y NEGATIVOSCódigo [Seleccionar]"******TEST HECHO POR 79137913******"
**PRUEBA CON NUMEROS +/- HASTA EL MAX**
7913: 26,316 msec
BZro: 49,330 msecCódigo [Seleccionar]Comprobacion de numeros de Fibonacci Positivos:
Ganador Elemental Code
2do Puesto Mr Frog
3er Puesto 79137913
Comprobacion de numeros de Fibonacci Positivos (trampa):
Ganador Mr Frog
2do Puesto Ignorante v1.1
3er Puesto BlackZeroX[escala de grises :P]
Comprobacion de numeros de Fibonacci Enteros (+/-):
Ganador 79137913
2do Puesto BlackZeroX[/escala de grises :P]
GRACIAS POR LEER!!!
Private Sub Vw_Click()
Dim x1 As Integer
Dim y1 As Integer
Dim z As Integer
r = 2
x1 = Val(x.Text)
y1 = Val(y.Text)
For x1 = r To y1 ' ERROR GRAVE GUARDSATE LA VARIABLE X.TEXT EN X1 Y ACA
' LA SOBRE ESCRIBIS CON R QUE ES 2 ...
' APARTE SI HACES QUE VAYA HASTA Y1 AL MULTIPLICAR POR R QUE ES 2
' VAS A LLEGAR HASTA Y1*2
z = x1 * r
c.AddItem z
Next x1
End SubPrivate Function uCaseCorrect7913(Txt As String) As String
Dim X As Long
Dim Y As Long
Dim Aux() As String
Dim MED As Long
Dim Ubi() As Long
Dim Susp As Long
Dim SIGNO(2) As String
SIGNO(0) = ".": SIGNO(1) = "?": SIGNO(2) = "!" 'TOMADO DE XXX-ZERO-XXX
Txt = "." & Txt & "a"
ReDim Sus(Int(Len(Txt) / 3))
ReDim Ubi(Len(Txt) + 5)
'".?¡"
For X = 0 To 2
Do
Y = Y + 1
Ubi(Y) = InStr(Ubi(Y - 1) + 1, Txt, SIGNO(X))
Loop While Ubi(Y) <> 0
Next
'COMPROBAR "..."
Do
Susp = InStr(Susp + 1, Txt, "...")
If Susp <> 0 Then
For X = 1 To Y
If Ubi(X) = Susp + 2 Then Ubi(X) = 0
Next
End If
Loop While Susp <> 0
'PONER MAYUSCULAS A LA PUNTUACION
ReDim Preserve Ubi(Y)
For X = 1 To Y
If Ubi(X) > 0 Then
MED = Ubi(X)
Do
MED = MED + 1
Loop While Not (((Asc(Mid$(Txt, MED, 1)) > 64) And Asc(Mid$(Txt, MED, 1)) < 91) Or ((Asc(Mid$(Txt, MED, 1)) > 96) And Asc(Mid$(Txt, MED, 1)) < 123)) And Not (Mid$(Txt, MED, 1) = "," Or Mid$(Txt, MED, 1) = ";" Or Mid$(Txt, MED, 1) = ".")
Mid$(Txt, MED, 1) = UCase$(Mid$(Txt, MED, 1))
End If
Next
'vbNewLine--------vbNewLine
Aux = Split(Txt, vbNewLine)
For X = 0 To UBound(Aux)
MED = 0
If X <> 0 Then
If Right$(Aux(X - 1), 1) = "." Or Right$(Aux(X - 1), 1) = "?" Or Right$(Aux(X - 1), 1) = "!" Then
Do
MED = MED + 1
Loop While Not (((Asc(Mid$(Aux(X), MED, 1)) > 64) And Asc(Mid$(Aux(X), MED, 1)) < 91) Or ((Asc(Mid$(Aux(X), MED, 1)) > 96) And Asc(Mid$(Aux(X), MED, 1)) < 123))
Mid$(Aux(X), MED, 1) = UCase$(Mid$(Aux(X), MED, 1))
End If
End If
Next
For X = 0 To UBound(Aux)
uCaseCorrect7913 = uCaseCorrect7913 & Aux(X) & vbNewLine
Next
uCaseCorrect7913 = Mid$(uCaseCorrect7913, 2, Len(uCaseCorrect7913) - 4)
End Function