Ficha 17-1

Private Sub cmd1_Click()

Dim matriz(1 To 6, 1 To 6), linha As Integer, coluna As Integer, cont As Integer
Dim maior As Integer, Plinha As Integer, Pcoluna As Integer

cont = 0

Randomize

' Preenchimento da matriz com números aleatórios

For linha = 1 To 6
For coluna = 1 To 6
matriz(linha, coluna) = Int(Rnd() * 49) + 1
Picture1.Print matriz(linha, coluna);
cont = cont + 1
If cont = 6 Then
Picture1.Print Chr(13)
cont = 0
End If
Next coluna
Next linha

' Inicialização do maior e das respectiva posição

maior = matriz(1, 1)
Plinha = 1
Pcoluna = 1

' Pesquisa do maior elemento da matriz e da posição que nela ocupa
For linha = 1 To 6
For coluna = 1 To 6
If matriz(linha, coluna) > maior Then
maior = matriz(linha, coluna)
Plinha = linha
Pcoluna = coluna
End If
Next coluna
Next linha

Label1.Caption = maior
Picture2.Print Tab(4); "Linha " & Plinha & " e coluna " & Pcoluna

cmd1.Enabled = False

End Sub

Private Sub cmd2_Click()

Picture1.Cls
Picture2.Cls
Label1.Caption = ""
cmd1.Enabled = True

End Sub

Private Sub cmd3_Click()
End
End Sub