ficha numero 14 exercicio 4

Private Sub Command1_Click()
Dim x As Integer, y As Integer, mat(1 To 4, 1 To 4) As Integer, v1(1 To 4) As Integer, v2(1 To 4) As Integer, linha As Integer, coluna As Integer


Randomize

For x = 1 To 4
    For y = 1 To 4
        mat(x, y) = Int(Rnd() * 9)
    Next y
Next x



For x = 1 To 4
linha = 0
    For y = 1 To 4
        If mat(x, y) >= linha Then
            linha = mat(x, y)
            v1(x) = linha
        End If
    Next y
Next x

For y = 1 To 4
coluna = 10
    For x = 1 To 4
        If mat(x, y) <= coluna Then
            coluna = mat(x, y)
            v2(y) = coluna
        End If
    Next x
Next y
       
       
For x = 1 To 4
    For y = 1 To 4
        Picture1.Print mat(x, y);
    Next y
Picture1.Print Chr(13)
Next x



For x = 1 To 4
    Picture2.Print v1(x)
Next x

For y = 1 To 4
     Picture3.Print v2(y)
Next y

End Sub


Private Sub Command2_Click()
If MsgBox("Quer mesmo sair?", vbOKCancel + vbQuestion, "ATENÇÃO") Then
End
End If
End Sub