none
Função x< 10 RRS feed

  • Pergunta

  • Olá pessoal,

    tenho a seguinte função, e preciso que se so x for maior que 10 ele retorne a seguinte mensagem "x maior do que 10"

    Function subprog_2(ByVal x As Integer) As Integer
            Do While x < 10
                x = x ^ 2
            Loop
            Return x
        End Function

    Como devo alterar o código para ele fazer isso?

    valeu

    segunda-feira, 11 de fevereiro de 2013 08:33

Respostas

  • Dim X As (Seu valor ex: String)

    If value X> 10 Then

    Messagebox.show("Erro X Maior que dez")

    Else

    End If

    Cuidado com duas coisas:

    1 -> o seu caracter de sinal esta errado esta como se ele for menor nao maior

    2 -> o else é nescessário neste tipo de If!

    segunda-feira, 18 de fevereiro de 2013 21:41