Red de conocimiento informático - Problemas con los teléfonos móviles - ¿Cómo utilizar select case para resolver este problema en VB? ¡Súper duro! ! ! ! ! ! ! ! ! ! ! ! ¡Asegúrate de hacerlo en casos seleccionados!

¿Cómo utilizar select case para resolver este problema en VB? ¡Súper duro! ! ! ! ! ! ! ! ! ! ! ! ¡Asegúrate de hacerlo en casos seleccionados!

¿Privado?Sub?Command1_Click()

a?=?Text1.Text

b?=?Text2.Text

a ?=?Val(a)

Select?Case?a?' Esta programación solo necesita escribir el especial al frente, porque incluso si hay dos condiciones que cumplen la condición, solo la primera será ejecutado. Ahora entiendo ¡Vamos! ¡En realidad es muy simple!

Caso?872

Texto2?=?"Código postal no especificado"

Caso?2540

Texto2?=?" jbt"

Caso?2620

Texto2?=?" acto"

Caso?2611,?3500,?3585,?3586,?3644,?3644, ?3707

Texto2?=?" nsw"

Caso?200?A?299

Texto2?=?" acto"

Caso?800?A?999

Texto2?=?" nt"

Caso?1000?A?2599

Texto2?=?" nsw"

Caso?2600?A?2618

Texto2?=?" acto"

Caso?2619?A?2898

Texto2 ?=?" nsw"

Caso?2900?A?2920

Texto2?=?" act"

Caso??A?2999

Texto2?=?" nsw"

Caso?3000?A?3999

Texto2?=?" vic"

Caso?4000? A?4999

Texto2?=? "qld"

Caso?5000?A?5999

Texto2?= "sa"

Caso?6000?A?6797

Texto2?=? "wa"

Caso?6999

Texto2?=? >

Caso?7000?A?7999

Texto2?=? "tas"

Caso?8000?A?8999

Texto2?=? "vic"

Caso?9000?A?9999

Texto2?=? "qld"

Caso?Else

Texto2? =?"Código postal no especificado"

Fin?Select

Fin?Sub

上篇: La batería de la computadora portátil Sony (serie Z) no se puede cargar y la luz de la batería sigue parpadeando 下篇: ¿Cuál es el sitio web oficial de verificación QQ y antiadicción?

¿Cómo utilizar select case para resolver este problema en VB? ¡Súper duro! ! ! ! ! ! ! ! ! ! ! ! ¡Asegúrate de hacerlo en casos seleccionados!

Artículos populares