none
Por que me funciona el if y el select case no? RRS feed

  • Pregunta

  • buenas estaba probando el select case por si tenia que meter mas opciones pero resulta que no me funciona igual que el if 

    estos son los 2 ejemplos 

    Gracias 

      If Parte_Entera = 0 Then
                    Label54.Text = (a / MCD) & " / " & b / MCD & " de pulgada"
                ElseIf Parte_Entera = 1 Then
                    Label54.Text = Parte_Entera & " Pulgada y " & (a / MCD) & " / " & b / MCD
                Else
                    Label54.Text = Parte_Entera & " Pulgadas y " & (a / MCD) & " / " & b / MCD
                End If
    
    
                Select Case Parte_Entera
                   Case Parte_Entera = 0
                       Label54.Text = (a / MCD) & " / " & b / MCD & " de pulgada"
                    Case Parte_Entera = 1
                        Label54.Text = Parte_Entera & " Pulgada y " & (a / MCD) & " / " & b / MCD
                   Case Parte_Entera > 1
                        Label54.Text = Parte_Entera & " Pulgadas y " & (a / MCD) & " / " & b / MCD
               End Select

    miércoles, 8 de abril de 2020 15:13

Todas las respuestas