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.
VERSION 5.00
Begin VB.Form Form1
Caption = "Form1"
ClientHeight = 3195
ClientLeft = 60
ClientTop = 345
ClientWidth = 4680
LinkTopic = "Form1"
ScaleHeight = 3195
ScaleWidth = 4680
StartUpPosition = 3 'Windows Default
Begin VB.TextBox Text1
Height = 3090
Left = 150
MultiLine = -1 'True
TabIndex = 0
Top = 75
Width = 2715
End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Form_Load()
On Error GoTo ERR
Show
Dim n As Long
Dim m As Long
Dim suma As Long
Dim grado As Long
Dim Matriz() As Long
Dim FLAG As Boolean
Dim CERO As Long
n = InputBox("numero de filas//nodos (empezando de 0)")
m = InputBox("que numero de nodo busca?")
For X = 1 To n
suma = suma + 2 ^ X
If suma = n Then grado = X
Next
ReDim Matriz(n, grado)
For Y = 0 To grado
CERO = -1
For X = 0 To n
FLAG = False
For Z = 0 To Y - 1
If Matriz(X, Z) = 1 Then FLAG = True
Next
If FLAG = False Then CERO = X: Exit For
Next
For X = CERO To n Step 2 ^ (1 + Y)
Matriz(X, Y) = 1
Next
Next
ERR:
For X = 0 To n
For Y = 0 To grado
ASD = ASD & Matriz(X, Y)
Next
Text1.Text = Text1.Text & vbNewLine & ASD
ASD = ""
Next
End SubCita de: BlackZeroX (Astaroth) en 28 Mayo 2012, 05:13 AM
.
mmm esta bien aun que en lo personal es mejor liarse con el API del servicio...
Dulces Lunas!¡.
y luego cuando preguntaste dude si era por zoo o por homo .