Considere que o utilizador executa a sub-rotina numeros() e introduz o número 3 (que fica atribuído a b).

Public Sub numeros()

   Dim b As Integer, i As Integer, j As Integer

   j = 0

   b = InputBox("qual o valor: ")

   Range("A1").Select

   Do Until ActiveCell.Offset(0, 0) = b

      If ActiveCell.Offset(0, 0) <= b Then

         j = j + 1

      End If

   ActiveCell.Offset(1, 0).Select

   Loop

   End Sub

De acordo com a imagem seguinte, responda às seguintes questões:

a) Qual o valor final de j ?

b) Qual a célula que fica selecionada quando a sub-rotina terminar?

c) Indique a instrução que permite escrever o valor final de b na célula B1.