Tutoriales de Visual Basic

Mayor par por columna en visual
Introducción

Utilizaremos matrices para el siguiente programita, generaremos números aleatorios, los almacenaremos en una matriz, y obtendremos el número mayor de los pares de cada columna y los mostraremos.

Agregamos un botón y colocamos el siguiente código fuente.



Private sub Command1_Click()
    Dim ma(5, 7) As Integer
    Dim mayor As Integer
    
    Text1.Text = ""
    
    For q = 0 To 5
        For q1 = 0 To 7
            signo = Int((Rnd * 2) + 1)
            
            nu = Int(Rnd * 100)
            if signo = 1 Then
                nu = nu * -1
            end If
            ma(q, q1) = nu
            Text1.Text = Text1.Text & ma(q, q1) & "         "
        Next
        Text1.Text = Text1.Text & vbCrLf
    Next
    
    mayor = -100

    For q1 = 0 To 7
        For q = 0 To 5
            if ma(q, q1) Mod 2 = 0 Then
                if ma(q, q1) > mayor Then
                    mayor = ma(q, q1)
                    
                end If
            end If
        Next
        Label1(q1).Caption = mayor
        mayor = -100
    Next
end sub


Tenemos que crear una caja de texto con ScrollBars vertical y multilínea, ademas ocho etiquetas en tipo vector.

Autor: Gamaliel M. DescargarDescargar

Comentarios en "Mayor par por columna en visual"

Table 'programa_programas.t_comentarios' doesn't exist