Fecha y hora actual: Lunes 23 Oct 2017 03:37
Índice del Foro

Foros de programación informática, diseño gráfico y Web

En esta comunidad intentaremos dar soporte de programación a todos los niveles, desde principiantes a profesionales de la informática, desarrollo de programas, programación web y mucho más.

Ejercicios propuestos en Visual Basic 6 (básicos)

Responder al Tema Ir a página 12345Siguiente

Índice del Foro > Visual Basic y VBA > Ejercicios propuestos en Visual Basic 6 (básicos)

Autor Mensaje
Tesis
Administrador


Registrado: 04 Mar 2007
Mensajes: 3156
Ubicación: Valencia - España

Mensaje Publicado: Viernes 30 Mar 2007 17:21

Título del mensaje: Ejercicios propuestos en Visual Basic 6 (básicos)

Responder citando

Ejercicios propuestos en Visual Basic 6 (básicos)

En este post iré poniendo diferentes ejercicios por si la gente se quiere entretener un rato haciéndolos y así ir practicando.
Los ejercicios irán subiendo el nivel poco a poco, así que si ves los primeros muy sencillos es normal Reir

Forma de presentar un ejercicio o varios:
Usaremos los nombres que traen por defecto los controles (text1, text2, command1, command2, etc...)
No hace falta subir la practica, sólo hay que poner el código.
El código se pondrá dentro de las etiquetas code, para que se vea mejor, ok. ej:
Código:
Aqui el código


NOTA: Si no tienes claro como hacerlo o necesitas una explicación del ejercicio, abre un post con el asunto Duda sobre Ejercicios propuestos y verás como entre todos te ayudamos.


Los ejercicios que empiezan por 3xxx son para usuarios noveles y los que empiezan por 1xxx son algo mas avanzados.


Ej. 101:
Cita:
En este primer ejercicio vamos a simular una calculadora elemental, asi que los controles a usar son: tres cajas de texto y cuatro botones. Al presionar un botón tiene que hacer la operación de suma, resta, multiplicación y división y mostrar el resultado en una caja de texto.

NOTA:Puedes usar los controles que desees.


Ej. 102:
Cita:
El programa tiene que pedirnos tres valores numéricos y después mostrarlos ordenados de menor a mayor.

NOTA:Puedes usar los controles que desees.


Ej. 102b:
Cita:
Usando el ejercicio anterior, pero validando que los datos introducidos sólo sean números.

NOTA:Puedes usar los controles que desees.


Ej. 102c:
Cita:
Usando el ejercicio anterior, a parte de mostrar los tres valores ordenados tienes que sumarlos y mostrar en cuantas unidades es superior o inferior a 50.
EJ: 1, 2, 2 = 5 diferencia con 50 = 45
EJ: 25, 25, 5 = 55 diferencia con 50 = 5

NOTA:Puedes usar los controles que desees.


Ej. 103:
Cita:
Vamos a recoger 10 valores por pantalla y los vamos a ir almacenando en un array de 10, ahora tienes que mostrarlos ordenados de forma ascendente y también descendente.

NOTA:Puedes usar los controles que desees.


Ej. 104:
Cita:
Vamos a hacer un login de usuario y contraseña que lo verificaremos con una función. El nombre de usuario y contraseña estarán como constantes.
Consideraciones a tener en cuenta:
El text Contraseña mostrara su contenido como asteriscos '*'

NOTA:Puedes usar los controles que desees.
Todas las propiedades de los objetos que se puedan modificar por código se harán por código y las que no se puedan se harán desde la ventana de propiedades.


Usando componentes

Ej. 105:
Cita:
Vamos a usar un picturebox para mostrar texto como si fuese un encabezado de una factura.
Deberia de quedar mas o menos así:

Propiedades a usar del picture:
-Autoredraw
-CurrentX
-CurrentY
-Line
-Picture1.Print "Hola"

Consideraciones a tener en cuenta:
Si la cabecera no te sale bien deberías revisar que después de un .Print "xxx" este un ';'

NOTA: Todas las propiedades de los objetos que se puedan modificar por código se harán por código y las que no se puedan se harán desde la ventana de propiedades.


Ej. 106:
Cita:
Vamos a crear un formulario y le vamos a cambiar el color (pero a código) quedando el formulario en más de dos colores difuminados.

NOTA:NO se puede usar el objeto PictureBox ni el objeto Image


Ej. 107:
Cita:
Vamos a mostrar el nombre del usuario activo y el nombre del PC

NOTA: No se puede usar ninguna API (eso lo haremos mas adelante)



-----------------------------------------------------------------------------------------------------------------------------------------------------------



Ej. 301:
Cita:
Primer ejercicio de teoría.
-Que es una variable?
-Como se declara?
-Que es una cadena de caracteres?
-Para que sirven las propiedades de los objetos?
-Que son los eventos? Menciona algunos...

NOTA:Leete el manual de introducción a VB por LOW



Ej. 302:
Cita:
Crea un formulario y agrega un botón(commandbuton) y al hacer click sobre el botón tiene que mostrar un msgbox con este aspecto

Recuerda que tienes que jugar un poco con las " " con las ',' y con los '+' ir probando y comentar los resultados.

NOTA:Lee el manual de introducción a VB por LOW


Ej. 303:
Cita:
Crea un formulario con un textbox y un commandbutton y al presionar el commandbuton tiene que mostrar en un msgbox el contenido escrito en el textbox


Ej. 304:
Cita:
Crea un formulario con dos textbox y un commandbutton y al presionar el commandbuton tiene que mostrar en un msgbox el contenido escrito en los dos textbox 'concatenados'


Ej. 305:
Cita:
Describe brevemente que es un bucle y para que lo utilizarias. Haz un ejemplo en código del FOR


Poco a poco iré añadiendo más ejercicios.

Un saludo. Aplauso



Ultima edición por Tesis el Domingo 18 Mar 2012 20:17; editado 12 veces
Volver arriba
Ver perfil del usuario Enviar mensaje privado
Tesis
Administrador


Registrado: 04 Mar 2007
Mensajes: 3156
Ubicación: Valencia - España

Mensaje Publicado: Miércoles 04 Abr 2007 19:23

Título del mensaje:

Responder citando

Nadie se anima???

Volver arriba
Ver perfil del usuario Enviar mensaje privado
Arael25
Colaborador


Registrado: 13 Mar 2007
Mensajes: 611
Ubicación: Lima - Peru

Mensaje Publicado: Miércoles 04 Abr 2007 20:50

Título del mensaje:

Responder citando

sorry yo me animo pero no te entendi que lo que quieres hacer

te explicarias un poco mas
Fumao Ruborizado


Me olvide de ustedes pero ya volvi para quedarme
Volver arriba
Ver perfil del usuario Enviar mensaje privado Visitar sitio web del autor MSN Messenger
Tesis
Administrador


Registrado: 04 Mar 2007
Mensajes: 3156
Ubicación: Valencia - España

Mensaje Publicado: Miércoles 04 Abr 2007 21:43

Título del mensaje:

Responder citando

Voy poniendo ejercicios (básicos) y cuando tengais tiempo los haceis y poneis el código y le echamos un vistazo. Ok

Volver arriba
Ver perfil del usuario Enviar mensaje privado
guiyermo
Ex coAdmin


Registrado: 07 Mar 2007
Mensajes: 897
Ubicación: Avià - Barcelona

Mensaje Publicado: Jueves 05 Abr 2007 11:12

Título del mensaje:

Responder citando

yo me ofrezco para estudiar pero de programación no sé nada, incluso os recuerdo que estaba apuntado a los tuto de ramirosistem....


GRACIAS
GUIYERMO
NO SOY DIGNO Y PRETENDO SERLO
www.operaberga.es
Normas del foro
Aprende a postear correctamente usando las etiquetas
Volver arriba
Ver perfil del usuario Enviar mensaje privado Visitar sitio web del autor
guiyermo
Ex coAdmin


Registrado: 07 Mar 2007
Mensajes: 897
Ubicación: Avià - Barcelona

Mensaje Publicado: Jueves 05 Abr 2007 11:14

Título del mensaje:

Responder citando

que por cierto, (y fallo mío) no me guardé copia de los mismos y si algún alma caritativa los tuviera, estaré muy agradecido de volver a tenerlos


GRACIAS
GUIYERMO
NO SOY DIGNO Y PRETENDO SERLO
www.operaberga.es
Normas del foro
Aprende a postear correctamente usando las etiquetas
Volver arriba
Ver perfil del usuario Enviar mensaje privado Visitar sitio web del autor
Tesis
Administrador


Registrado: 04 Mar 2007
Mensajes: 3156
Ubicación: Valencia - España

Mensaje Publicado: Jueves 05 Abr 2007 13:37

Título del mensaje:

Responder citando

La de ramirosistem no la tengo Guiño si entra el y nos lee y quiere, que la ponga. Yo tengo las antiguas de LOW y Jesús Martínez que si puedo la iré subiendo está tarde.

Volver arriba
Ver perfil del usuario Enviar mensaje privado
guiyermo
Ex coAdmin


Registrado: 07 Mar 2007
Mensajes: 897
Ubicación: Avià - Barcelona

Mensaje Publicado: Jueves 05 Abr 2007 13:39

Título del mensaje:

Responder citando

Aplauso Super Ok Ordenador


GRACIAS
GUIYERMO
NO SOY DIGNO Y PRETENDO SERLO
www.operaberga.es
Normas del foro
Aprende a postear correctamente usando las etiquetas
Volver arriba
Ver perfil del usuario Enviar mensaje privado Visitar sitio web del autor
JoxeDuKe12
Colaborador


Registrado: 12 Abr 2007
Mensajes: 576
Ubicación: Medellín - Colombia

Mensaje Publicado: Jueves 12 Abr 2007 05:01

Título del mensaje: Re: Ejecicios propuestos en VB (básico)

Responder citando

101:
En este primer ejercicio vamos a simular una calculadora elemental, asi que los controles a usar son: tres cajas de texto y cuatro botones. Al presionar un botón tiene que hacer la operación de suma, resta, multiplicación y división y mostrar el resultado en una caja de texto.

NOTA:Puedes usar los controles que desees.


solucion a este ejercicio
Esta es la solucion q yo le doy al ejercicio el texto 3 esta deshabilitado y no estoy validando q solo sean numero si ingresas letras saca error ay va el codigo sugerencias a la orden (no recuerdo lo del tecto en gris a si q lo mando sin eso para los otros lo pongo)
*-*-*-*-*-*-*-*-*--*-*--*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-**--*-**-*-*
Código:

Dim operar As Byte
Dim operando As Byte

Sub validartextos()
If Me.Text1.Text = "" Or Me.Text2.Text = "" Then
    MsgBox "Debes llenar los dos numeros"
    operar = 0
Else
    operar = 1
End If
If operar = 1 Then
    Select Case operando
        Case 1
            Me.Text3 = Val(Me.Text1.Text) * Val(Me.Text2.Text)
        Case 2
            Me.Text3 = Val(Me.Text1.Text) - Val(Me.Text2.Text)
        Case 3
            If Me.Text2.Text = 0 Then
                MsgBox "dividir por cero no se puede"
                Command5_Click
            Else
                Me.Text3 = Val(Me.Text1.Text) / Val(Me.Text2.Text)
            End If
        Case 4
            Me.Text3 = Val(Me.Text1.Text) + Val(Me.Text2.Text)
    End Select
End If
End Sub

Private Sub Command1_Click() 'multiplica
operando = 1
validartextos
End Sub

Private Sub Command2_Click() 'resta
operando = 2
validartextos
End Sub

Private Sub Command3_Click() 'divide
operando = 3
validartextos
End Sub

Private Sub Command4_Click() 'suma
operando = 4
validartextos
End Sub

Private Sub Command5_Click()
Me.Text1.Text = ""
Me.Text2.Text = ""
Me.Text3.Text = ""
Me.Text1.SetFocus
End Sub



Ultima edición por JoxeDuKe12 el Miércoles 21 Oct 2009 23:50; editado 1 vez
Volver arriba
Ver perfil del usuario Enviar mensaje privado Visitar sitio web del autor
Tesis
Administrador


Registrado: 04 Mar 2007
Mensajes: 3156
Ubicación: Valencia - España

Mensaje Publicado: Jueves 12 Abr 2007 14:59

Título del mensaje:

Responder citando

Hola JoxeDuKe12, bienvenido al foro Ok
He repasado tu ejercicio 101: , básicamente lo tienes bién, te comento...
Tu code:
Código:
Sub validartextos()
If Me.Text1.Text = "" Or Me.Text2.Text = "" Then
  MsgBox "Debes llenar los dos numeros"
  operar = 0
Else
  operar = 1
End If
If operar = 1 Then
  Select Case operando
    Case 1
      Me.Text3 = Val(Me.Text1.Text) * Val(Me.Text2.Text)
    Case 2
      Me.Text3 = Val(Me.Text1.Text) - Val(Me.Text2.Text)
    Case 3
      If Me.Text2.Text = 0 Then
        MsgBox "dividir por cero no se puede"
        Command5_Click 'Tecnicamente no es correcto llamar a un evento
      Else
        Me.Text3 = Val(Me.Text1.Text) / Val(Me.Text2.Text)
      End If
    Case 4
      Me.Text3 = Val(Me.Text1.Text) + Val(Me.Text2.Text)
  End Select
End If
End Sub


No hace falta la variable operar, si los campos de texto están vacios muestra el msgbox y sale, si no, entra en el select case y hace la operación correspondiente según su operando.
En la operación de dividir controlas que no se pueda dividir por 0 eso está bién pero si es 0 muestras un msgbox y llamas al evento click del command5 y tecnicamente eso no es correcto (aunque funcione) para eso están los procedimientos.

Código:
If Me.Text1.Text = "" Or Me.Text2.Text = "" Then
  MsgBox "Debes llenar los dos numeros"
Else
  Select Case operando
    Case 1
      Me.Text3 = Val(Me.Text1.Text) * Val(Me.Text2.Text)
    Case 2
      Me.Text3 = Val(Me.Text1.Text) - Val(Me.Text2.Text)
    Case 3
      If Me.Text2.Text = 0 Then
        MsgBox "dividir por cero no se puede"
        Command5_Click 'Tecnicamente no es correcto llamar a un evento
      Else
        Me.Text3 = Val(Me.Text1.Text) / Val(Me.Text2.Text)
      End If
    Case 4
      Me.Text3 = Val(Me.Text1.Text) + Val(Me.Text2.Text)
  End Select
End If
End Sub


En general el ejercicio está bien, a por otro.

NOTA: Haber quien hace este ejercicio con una matriz de controles de los command.



Ultima edición por Tesis el Viernes 13 Abr 2007 13:01; editado 1 vez
Volver arriba
Ver perfil del usuario Enviar mensaje privado
JoxeDuKe12
Colaborador


Registrado: 12 Abr 2007
Mensajes: 576
Ubicación: Medellín - Colombia

Mensaje Publicado: Viernes 13 Abr 2007 03:33

Título del mensaje: Re: Ejecicios propuestos en VB (básico)

Responder citando

102:
El programa tiene que pedirnos tres valores númericos y despues mostrarlos ordenados de menor a mayor.
102b:
[b]Usando el ejercicio anterior, pero validando que los datos introducidos sólo sean números.

NOTA:Puedes usar los controles que desees.


Hola muchas gracias por las sugerencias son cosas q se pasan siempre por alto Ok, este es el segundo y el tercer ejercicio (los textos son una matriz de controles) los otros ejercicios no entiendo bien q hay q hacer pero si pones mas excelente Guiño
*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-
Código:

Private Sub Command1_Click()
Dim salir As Byte
salir = 0
For i = 0 To 2
    If Text1(i).Text = "" Then
        MsgBox "Debes ingresar los tres numeros"
        salir = 1
        i = 2
    End If
Next i
If salir = 0 Then
    ordenarnumeros
End If
End Sub

Sub ordenarnumeros()
Static cambio As Integer
For j = 0 To 1
    For i = 0 To 1
        If Val(Me.Text1(i).Text) > Val(Me.Text1(i + 1).Text) Then
            cambio = Val(Me.Text1(i).Text)
            Me.Text1(i).Text = Val(Me.Text1(i + 1).Text)
            Me.Text1(i + 1).Text = cambio
        End If
    Next i
Next j
End Sub

Private Sub Text1_KeyPress(Index As Integer, KeyAscii As Integer)
If KeyAscii > 47 And KeyAscii < 58 Or KeyAscii = 8 Then

Else
    KeyAscii = 0
End If
End Sub



Ultima edición por JoxeDuKe12 el Miércoles 21 Oct 2009 23:52; editado 1 vez
Volver arriba
Ver perfil del usuario Enviar mensaje privado Visitar sitio web del autor
JoxeDuKe12
Colaborador


Registrado: 12 Abr 2007
Mensajes: 576
Ubicación: Medellín - Colombia

Mensaje Publicado: Viernes 13 Abr 2007 04:45

Título del mensaje: Re: Ejecicios propuestos en VB (básico)

Responder citando

103:
Vamos a recoger 10 valores por pantalla y los vamos a ir almacenando en un array de 10, ahora tienes que mostrarlos ordenados de forma ascendente y tambien descendente.
NOTA:Puedes usar los controles que desees.


Hola no es lo mas optimo del mundo pero este es el ultimo ejercicio , los numeros ordenados ascendente o descendente se guardan en textos luego de ser ordenados, la idea es q el boton indique que numero se esta ingresando pero no me funciono exactamente bien, ay les va, todos los programas y su codigo estaran en www.quedese.20m.com en la seccion de descargar se aceptan sugerencias a la pagina
*-*-*-*-*-*-*-*-*-*-**---**-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*--*-*-*
Código:

Dim contador As Byte
Dim vecnumeros(10) As Integer

Private Sub Command1_Click()
If Me.Text1.Text = "" Then
    MsgBox "Ingresa el valor para el numero " & contador
Else
    vecnumeros(contador - 1) = Val(Me.Text1.Text)
    Me.Command1.Caption = "Valor para el numero " & contador
    contador = contador + 1
    Me.Text1.Text = ""
    Me.Text1.SetFocus
End If
If contador = 10 Then
    cargarvaribles
    ordenarnuemros
End If
End Sub

Sub cargarvaribles()
contador = 1
Me.Command1.Caption = "Valor para el numero " & contador
Me.Text2.Text = ""
Me.Text3.Text = ""
Me.Text1.Text = ""
End Sub

Sub ordenarnuemros()
Dim cambio As Integer
For j = 0 To 8
    For i = 0 To 8
        If vecnumeros(i) > vecnumeros(i + 1) Then
            cambio = vecnumeros(i)
            vecnumeros(i) = vecnumeros(i + 1)
            vecnumeros(i + 1) = cambio
        End If
    Next i
Next j
For i = 0 To 9
    Me.Text2.SelText = "- " & vecnumeros(i)
Next i
For j = 0 To 8
    For i = 0 To 8
        If vecnumeros(i) < vecnumeros(i + 1) Then
            cambio = vecnumeros(i)
            vecnumeros(i) = vecnumeros(i + 1)
            vecnumeros(i + 1) = cambio
        End If
    Next i
Next j
For i = 0 To 9
    Me.Text3.SelText = "- " & vecnumeros(i)
Next i
End Sub

Private Sub Form_Load()
cargarvaribles
End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)
    If KeyAscii > 47 And KeyAscii < 58 Or KeyAscii = 46 Then
        'rango correcto
    Else
        KeyAscii = 0
    End If
End Sub



Ultima edición por JoxeDuKe12 el Miércoles 21 Oct 2009 23:55; editado 1 vez
Volver arriba
Ver perfil del usuario Enviar mensaje privado Visitar sitio web del autor
Tesis
Administrador


Registrado: 04 Mar 2007
Mensajes: 3156
Ubicación: Valencia - España

Mensaje Publicado: Viernes 13 Abr 2007 13:24

Título del mensaje:

Responder citando

Hola JoxeDuKe12, usa las etiquetas code para poner código, asi es mas facil de ver.

Respecto a los Ej 102: y 102b:
Te ha pasado lo mismo que en el ejercicio anterior...
Código:
Private Sub Command1_Click()
For i = 0 To 2
  If Text1(i).Text = "" Then
    MsgBox "Debes ingresar los tres numeros"
    Exit Sub
  End If
Next i
ordenarnumeros
End Sub


Date cuenta que de 12 lineas de código se ha quedado en 7, tienes que buscar siempre la optimización del código.
El resto está bastante bién Ok

Explicación al EJ 102c:
Usando el ejercicio anterior, a parte de mostrar los tres valores ordenados tienes que sumarlos y mostrar en cuantas unidades es superior o inferior a 50.
EJ: 1, 2, 2 = 5 diferencia con 50 = 45
EJ: 25, 25, 5 = 55 diferencia con 50 = 5


Es bastante simple, tienes que sumar los tres valores (de los textbox) y compararlos con el nº 50 si la suma de los tres valores es 10 la siferencia con 50 es 40 y mostrarias el 40 en otro textbox

Luego corrijo el otro Aplauso

Volver arriba
Ver perfil del usuario Enviar mensaje privado
JoxeDuKe12
Colaborador


Registrado: 12 Abr 2007
Mensajes: 576
Ubicación: Medellín - Colombia

Mensaje Publicado: Viernes 13 Abr 2007 14:38

Título del mensaje:

Responder citando

Hola, pues yo intente con el exit sub perod e igual forma no se salia del evento por lo tanto le puse esa variable salir , voy a ensayar mas para corregir esos detalles , se q vb 6.0 no sea lo mas optimo para este caso pero me gustaria hacer un tetris y tambien el juego de culebrita , algo como los de los celulares en fin , sigamos con los ejercicios Guiño

Volver arriba
Ver perfil del usuario Enviar mensaje privado Visitar sitio web del autor
Tesis
Administrador


Registrado: 04 Mar 2007
Mensajes: 3156
Ubicación: Valencia - España

Mensaje Publicado: Viernes 13 Abr 2007 16:31

Título del mensaje:

Responder citando

Corrección del Ej. 103: veo que manejas bien los bucles pero solo te he visto usar el for Triste asi que quiero que uses en cada momento el mas apropiado, aunque con el for funcione (como doy por Calvo )

Vamos por partes...
JoxeDuKe12 escribió:
La idea es q el boton indique que numero se esta ingresando pero no me funciono exactamente bien

Modificando cuatro puntos lo podias haber logrado, fijate.
Código:
Sub cargarvaribles()
  contador = 0  'Lo inicializas a cero
  Me.Command1.Caption = "Valor para el numero " & contador + 1 'Aqui muestras contador +1
  Me.Text2.Text = ""
  Me.Text3.Text = ""
  Me.Text1.Text = ""
End Sub

Private Sub Command1_Click()
If Me.Text1.Text = "" Then
  MsgBox "Ingresa el valor para el numero " & contador
Else
  vecnumeros(contador) = Val(Me.Text1.Text) 'Aqui a contador no le resto 1
  Me.Command1.Caption = "Valor para el numero " & contador + 2  'Aqui le sumo 2 ;)
  contador = contador + 1
  Me.Text1.Text = ""
  Me.Text1.SetFocus
End If
If contador = 10 Then
  cargarvaribles
  ordenarnuemros
End If
End Sub


Vamos al grano con tu Ej.
La carga del vector está bien, pero si tienes tiempo y quieres haz una carga de un vector de 10 usando un InputBox y controlando que solo se puedan meter números y que no tenga mas de 7 lineas..
Código:
If Me.Text1.Text = "" Then
  MsgBox "Ingresa el valor para el numero " & contador
Else
  vecnumeros(contador - 1) = Val(Me.Text1.Text)
  Me.Command1.Caption = "Valor para el numero " & contador
  contador = contador + 1
  Me.Text1.Text = ""
  Me.Text1.SetFocus
End If
If contador = 10 Then
  cargarvaribles
  ordenarnuemros
End If


Aqui estoy descontento Llorón
En el primer bucle for(j) anidas otro bucle For(i) para ordenar el vector de forma descendente, una vez ordenado lo muestras en el text2 con otro bucle For(i), asta aqui bien... Pero despues vuelves a ordenar el vector de forma ascendente para despues visualizarlo en el text3
Código:
Sub ordenarnuemros()
Dim cambio As Integer

For j = 0 To 8
  For i = 0 To 8
    If vecnumeros(i) > vecnumeros(i + 1) Then
      cambio = vecnumeros(i)
      vecnumeros(i) = vecnumeros(i + 1)
      vecnumeros(i + 1) = cambio
    End If
  Next i
Next j

For i = 0 To 9
  Me.Text2.SelText = "- " & vecnumeros(i)
Next i

For j = 0 To 8
  For i = 0 To 8
    If vecnumeros(i) < vecnumeros(i + 1) Then
      cambio = vecnumeros(i)
      vecnumeros(i) = vecnumeros(i + 1)
      vecnumeros(i + 1) = cambio
    End If
  Next i
Next j

For i = 0 To 9
  Me.Text3.SelText = "- " & vecnumeros(i)
Next i

End Sub


Mira, si el vector ya estaba ordenadode forma descendente solo tenias que mostrarlo de forma ascendente, lo podias haber hecho decrementando el bucle, mira el ejemplo.
Código:
Sub ordenarnuemros()
Dim cambio As Integer

For j = 0 To 8
  For i = 0 To 8
    If vecnumeros(i) > vecnumeros(i + 1) Then
      cambio = vecnumeros(i)
      vecnumeros(i) = vecnumeros(i + 1)
      vecnumeros(i + 1) = cambio
    End If
  Next i
Next j

For i = 0 To 9
  Me.Text2.SelText = "- " & vecnumeros(i)
Next i

For i = 9 To 0 Step -1
  Me.Text3.SelText = "- " & vecnumeros(i)
Next i


El ejercicio estaba bien.

Saludos,

PD: Intentaré poner algunos ejercicios mas.

Volver arriba
Ver perfil del usuario Enviar mensaje privado
Responder al Tema Ir a página 12345Siguiente
Mostrar mensajes anteriores:   
Ir a:  
Todas las horas están en GMT + 1 Hora

Temas relacionados

Tema Autor Foros Respuestas Publicado
El foro no contiene ningún mensaje nuevo

Duda con programas basicos en haskell

Juan Martinez Programación en general 1 Viernes 13 Oct 2017 02:38 Ver último mensaje
El tema está bloqueado: no pueden editarse ni agregar mensajes.

Programador Visual Basic Excel

WhiteSkull Bolsa de trabajo 1 Lunes 20 Feb 2017 09:34 Ver último mensaje
El foro no contiene ningún mensaje nuevo

Ayuda ejercicios!!!

WhiteSkull Python 1 Domingo 16 Oct 2016 01:49 Ver último mensaje
El foro no contiene ningún mensaje nuevo

Comprobar valores columnas Visual Basic

maral Visual Basic y VBA 0 Jueves 21 Abr 2016 10:43 Ver último mensaje
El foro no contiene ningún mensaje nuevo

como leer linea por linea un richtextbox en vis...

WhiteSkull C, C#, Visual C++ 2 Jueves 17 Mar 2016 09:33 Ver último mensaje
Panel de Control
No puede crear mensajes, No puede responder temas, No puede editar sus mensajes, No puede borrar sus mensajes, No puede votar en encuestas,