Tutoriales de Visual Basic

Mover de izq a derch un vector en visual
Introducción

Para realizar el siguiente programa utilizaremos un vector, en el cual insertaremos números aleatorios del lado izquierdo y los ya insertados se moverán a la derecha así hasta que se llene el vector.
Esto quiere decir que el primer numero insertado quedara del dalo derecho.

Crea un formulario, agrega un botón y una caja de texto, esta modificala a multilínea y con ScrollBars vertical.



Private sub Command1_Click()
    Dim vec(50) As Integer
    Dim c As Integer
    
    For i = 0 To 49
        x = Int(Rnd * 100)
        d = i - 1
        While (c < i)
            vec(d + 1) = vec(d)
            d = d - 1
            c = c + 1
        Wend
        vec(0) = x
        c = 0
        
        For e = 0 To 49
            Text1.Text = Text1.Text & vec(e)
        Next
        Text1.Text = Text1.Text & vbCrLf
    Next
end sub


Autor: Gamaliel M. DescargarDescargar

Comentarios en "Mover de izq a derch un vector en visual"

Table 'programa_programas.t_comentarios' doesn't exist