Ficha 18-1

Dim matriz(1 To 4, 1 To 3) As Integer

Private Sub Gerar_Click()

Dim linha As Integer, coluna As Integer, cont As Integer

Randomize

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

Somar.Enabled = True
Gerar.Enabled = False
Limpar.Enabled = True

End Sub

Private Sub Somar_Click()
Dim consulta As Integer, soma As Integer, linha As Integer

soma = 0

consulta = Val(InputBox("Qual a coluna que vai querer consultar ?" & Chr(13) & "Coluna 1, Coluna 2 ou Coluna 3?", "Coluna"))

If consulta > 0 And consulta < 4 Then
For linha = 1 To 4
soma = soma + matriz(linha, consulta)
Next linha
Else
erro = MsgBox("O número que introduziu ''" & consulta & "'' não é o correcto" & Chr(13) & Chr(13) & "Por favor tente novamente", vbInformation + vbOKOnly, "Informação")
End If

If consulta > 0 And consulta < 4 Then
Picture2.Print Chr(13); Tab(5); soma
Else
Picture2.Print Chr(13); Tab(5); " erro"
End If

Gerar.Enabled = False
Somar.Enabled = False

End Sub

Private Sub Limpar_Click()

Picture1.Cls
Picture2.Cls
Gerar.Enabled = True
Somar.Enabled = False
Limpar.Enabled = False

End Sub

Private Sub Sair_Click()

End

End Sub