Verificación del código fuente del cuadro de inicio de sesión simple de VB

El problema está en la declaración del caso. Debido a que está escribiendo Select Case pw, la siguiente declaración Case no debe escribirse Case pw = "123456". En este caso, el programa calculará pw = "123456" como una expresión relacional y el resultado es 1 o 0 (Verdadero). o False), entonces la instrucción Case Else se ejecuta independientemente. El código correcto es el siguiente, con cambios en ★★★.

----------------------------------------

Dim pw As String 'PW es una variable constante que almacena contraseñas

pw = Text2.Text

Si Text1.Text = "dashan" Entonces 'text1.text es Cuadro de texto para ingresar el nombre de usuario. Aquí solo se define un nombre de usuario.

Seleccione Caso pw

Caso "123456" '★★★debe escribirse así.

MsgBox ("¡Has seleccionado el usuario con menos privilegios!")

Caso "654321" '★★★★ ¡debe escribirse así!

MsgBox ("El sistema lo ha reconocido, continúe con...")

Caso "qishan" '★★★★ ¡debe escribirse así! Text = ""

Else

Fin

Fin

Fin Seleccionar

Else: m = MsgBox("Usuario incorrecto name", vbOKCancel, "Mensaje de error")

Si m = vbOK Entonces

Text1.Text = ""

Text2.Text = ""

Fin si

Fin si

Fin si

Fin si

Fin Sub

---------------------------------------