elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.

 

 


Tema destacado: Arreglado, de nuevo, el registro del warzone (wargame) de EHN


+  Foro de elhacker.net
|-+  Programación
| |-+  Programación General
| | |-+  .NET (C#, VB.NET, ASP)
| | | |-+  Programación Visual Basic (Moderadores: LeandroA, seba123neo)
| | | | |-+  No Puedo poner los for que me da la gana
0 Usuarios y 1 Visitante están viendo este tema.
Páginas: 1 [2] Ir Abajo Respuesta Imprimir
Autor Tema: No Puedo poner los for que me da la gana  (Leído 2,334 veces)
llegaraprogramador

Desconectado Desconectado

Mensajes: 6


Ver Perfil
Re: No Puedo poner los for que me da la gana
« Respuesta #10 en: 17 Junio 2010, 18:07 pm »


Private Sub Command1_Click()
Dim numescaños As Double
numescaños = Val(Text3.Text - 1)
 Dim temp, n As Double
Dim hasta As Double
Dim m As Double
 n = Val(4 * (numescaños + 1))

Dim i, j As Double

ReDim matriz(numescaños, 3)
ReDim vector(n)
Dim votos(3) As Long
m = 0


matriz(0, 0) = Text1(0).Text
matriz(0, 1) = Text1(1).Text
matriz(0, 2) = Text1(2).Text
matriz(0, 3) = Text1(3).Text

vector(0) = Text1(0).Text

vector(1) = Text1(1).Text
vector(2) = Text1(2).Text
vector(3) = Text1(3).Text

minimo = -3


For i = 1 To numescaños
minimo = minimo + 3

For j = 0 To 3
dimension = Val(i + j + minimo + 3)
matriz(i, j) = Val(matriz(0, j) / (i + 1))
vector(dimension) = Val(matriz(0, j) / (i + 1))

'MsgBox (matriz(i, j))

Next
Next

For z = 0 To n - 1

For x = 0 To n

If vector(x) > vector(x + 1) Then
temp = vector(x)

vector(x + 1) = vector(x)
vector(x) = temp
End If



Next x

Next z

For a = 0 To n - 1



MsgBox (vector(a))

Next


hasta = vector(numescaños)
MsgBox (hasta)





MsgBox (hasta)
For t = 0 To 3
votos(t) = 0
Next


For x = 0 To numescaños


For j = 0 To 3
If matriz(x, j) > hasta Then
votos(j) = Val(votos(j) + 1)

k = k + 1
Else

End If

Next
Next
MsgBox (k)
For z = 0 To 3
MsgBox (votos(z))
Next


En línea

Dreamaker

Desconectado Desconectado

Mensajes: 277



Ver Perfil
Re: No Puedo poner los for que me da la gana
« Respuesta #11 en: 17 Junio 2010, 18:17 pm »

Sabes español? Lee lo que te puse en el anterior mensaje.


En línea

Páginas: 1 [2] Ir Arriba Respuesta Imprimir 

Ir a:  

Mensajes similares
Asunto Iniciado por Respuestas Vistas Último mensaje
por que no puedo poner un label al poner un skin?
Programación Visual Basic
Senior++ 4 4,857 Último mensaje 13 Junio 2011, 21:17 pm
por Senior++
Puedo poner disquetera en conector flopy
Hardware
desna 8 548 Último mensaje 10 Enero 2021, 10:02 am
por desna
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines