Linhas de código - Iniciante

[Eleutério]

Eu tenho estes três problemas:

- Leia dois valores em duas caixas de texto e informar em uma mensagem a média aritmética. (3,0)

- Leia três valores em três caixas de texto e informar em um label o maior. (4,0)

- Leia um valor via teclado. Se o valor estiver o intervalo entre 4 e 10 multiplicar por 2, se o valor estiver o intervalo entre 11 e 20 dividir por 2, caso contrário somar com 20.(3,0)

Mas, eu simplesmente não estou conseguindo resolver. alguém poderia me dar um auxílio? Preciso MUITO disso, estou bastante desesperado!

Grato desde já.

[raphael_suporte]

camarada, posta aqui o que você fez e sua dificuldade, isso vai nos ajudar a identificar o erro e te passar a correção.

[Eleutério]

Na verdade, meu problema está em Ler os três valores em nas três caixas de texto para então, informar em um label o maior resultado.

O problema é que, eu sequer sei com fazer isto.

Não sei se é com condição, function...

As outras saíram bem.

[raphael_suporte]

é com condição mesmo, você fez a que tem 2 valores? se sim, você vai fazer a mesma coisa com o terceiro, vai comparar text1 com o text2, e quem for o maior você guarda em outra variável, exemplo "aux", depois compara aux com o text3, quem for maior vai para o label.

[Cíceropb]

é com condição mesmo, você fez a que tem 2 valores? se sim, você vai fazer a mesma coisa com o terceiro, vai comparar text1 com o text2, e quem for o maior você guarda em outra variável, exemplo "aux", depois compara aux com o text3, quem for maior vai para o label.

Já programei em VB5 em 2000 apenas como Hobby, somente agora voltei a brincar como VB6 novamente para depois quem sabe migrar para VB.net. Bem Eleutério, quanto a sua 2ª dúvida e fiz assim e funcionou:

Private Sub Command1_Click()
Dim Maior As Variant

    If (Text1.Text > Text2.Text) Then
        Maior = Text1.Text
        Label1.Caption = Maior

    Else
        Maior = Text2.Text
    
            If (Maior > Text3.Text) Then
                Label1.Caption = Maior
            Else
                Label1.Caption = Text3.Text
            End If
    
    End If


End Sub

Editado Abril 15, 2009 por kuroi
Adicionar tag CODE