Ficha nº29

1.

Código:

Private Sub Command1_Click()

    On Error GoTo TrataErroDivisao

    Dim num As Integer, den As Integer, res As Single

    Picture1.Cls

    

    num = Val(InputBox("Introduza o numerador:", "Dados"))

    den = Val(InputBox("Introduza o denominador:", "Dados"))

    res = num / den

    Picture1.Print res

    

TrataErroDivisao:

    Select Case Err.Number

    Case 11

        If MsgBox("Não existe divisão por zero.", vbYesNo, "Aviso") = vbYes Then

            den = Val(InputBox("Informe o valor do denominador"))

            Resume

        Else

            Exit Sub

        End If

    End Select

End Sub