Ficha nº15

1.

Código:

Private Sub Command1_Click()

    Dim mat(1 To 4, 1 To 3) As Integer, i As Integer, j As Integer, indice As Integer, soma As Integer

    

    soma = 0

    

    

    Randomize

    For i = 1 To 4

        For j = 1 To 3

            mat(i, j) = Int(Rnd() * 101)

        Next j

    Next i

    

    For i = 1 To 4

        For j = 1 To 3

            Picture1.Print mat(i, j);

        Next j

        Picture1.Print Chr(13)

    Next i

    

    indice = Val(InputBox("Qual é o índice da coluna que pretende consultar? (1 a 3)", "Entrada de dados"))

    

    For i = 1 To 4

        soma = soma + mat(i, indice)

    Next i

    

    MsgBox "A soma da coluna com indice " & indice & " é " & soma, vbInformation, "Saida"

End Sub

2.

Código:

Private Sub Command1_Click()

    Dim mat(1 To 4, 1 To 3) As Integer, i As Integer, j As Integer, i_func As Integer, i_mes As Integer

    

    Picture1.Cls

    Picture2.Cls

    

    For i = 1 To 4

        For j = 1 To 3

            Do

                mat(i, j) = Val(InputBox("Introduza as vendas do " & i & " funcionário no " & j & " mês:", "Entrada de dados"))

                If mat(i, j) < 0 Then

                    MsgBox "O valor introduzido é inválido", vbCritical, "Aviso"

                End If

            Loop While mat(i, j) < 0

        Next j

    Next i

    

    Do

        i_func = Val(InputBox("Qual é o indice do funcionário que quer consultar? (1 a 4)", "Entrada de dados"))

        If i_func < 1 Or i_func > 4 Then

            MsgBox "O valor introduzido é inválido", vbCritical, "Aviso"

        End If

    Loop While i_func < 1 Or i_func > 4

    

    Do

        i_mes = Val(InputBox("Qual é o indice do mês que quer consultar? (1 a 3)", "Entradad de dados"))

        If i_mes < 1 Or i_mes > 3 Then

            MsgBox "O valor introduzido é inválido", vbCritical, "Aviso"

        End If

    Loop While i_mes < 1 Or i_mes > 3

    

    For j = 1 To 3

        Picture1.Print mat(i_func, j);

    Next j

    

    For i = 1 To 4

        Picture2.Print mat(i, i_mes)

    Next i

End Sub