Problema de VB. . Un pequeño novato en el primer grado de la escuela secundaria. .

Su abcd es el contenido de entrada, z se usa para guardar el contenido de entrada, por lo que abcd no necesita variables

El código se modifica de la siguiente manera:

Dim z as String

z=InputBox("Tienes un muñeco de peluche, que fue un regalo de un amante que rompió. Ahora, ¿qué harás con él? a Regálalo b Tíralo como basura c Llévalo a un mercadillo, etc. Vende el lugar y quémalo", "Datos de entrada: prueba psicológica")

select case LCase(z) 'Convertir a minúsculas aquí antes de emitir un juicio

caso "a"

Print "Una persona que elige A."

Print "Una persona que rechaza completamente el objeto de su La aversión puede considerarse como una persona con una personalidad diabólica: reprime sus emociones y puede sonreír sin importar el tipo de oponente al que se enfrente "

caso "b"

'Escribe otro. juzgue usted mismo

caso "c"

caso "d"

caso más

Imprimir "Error de entrada, ingrese uno de , b, c, d!"

finalizar selección

PD: imprimir también se puede cambiar a Msgbox "Contenido a mostrar"