Red de conocimiento informático - Problemas con los teléfonos móviles - Expertos en VB por favor ingresen

Expertos en VB por favor ingresen

Guarde el siguiente código como un archivo Form1.frm, luego abra y ejecute el archivo.

VERSIÓN 5.00

Comenzar VB.Form Form1

BorderStyle = 3 'Diálogo fijo'

Caption = "Adivina el número maestro "

ClientHeight = 2055

ClientLeft = 45

ClientTop = 435

ClientWidth = 3465

LinkTopic = " Form1"

MaxButton = 0 'False

MinButton = 0 'False

ScaleHeight = 2055

ScaleWidth = 3465

StartUpPosition = 2 'Centro de la pantalla

Begin VB.NET CommandButton Command1 (Inicio)CommandButton Command1

Caption = "Inicio"

Alto = 495

Izquierda = 1080

TabIndex = 3

Superior = 960

Ancho = 1215

Fin

Comenzar VB.NET TextBox Text1TextBox Text1

Alto = 375

Izquierda = 480

TabIndex = 0

Arriba = 360

Ancho = 855

Fin

Inicia el cuadro de texto VB.NET.

Etiqueta Etiqueta2

Caption = "Ingrese datos entre 1-31, puede adivinar hasta 5 veces, puede adivinar hasta 5 veces"

Altura = 375

Izquierda = 120

TabIndex = 2

Arriba = 1560

Ancho = 3255

Fin

Comenzar VB .>

Título = "Label1"

Alto = 375

Izquierda = 1680

TabIndex = 1

Superior = 360

Ancho = 975

Fin

Fin

Atributo VB_Name = "Form1"

Atributo VB_GlobalNameSpace = False

Atributo VB_Creatable = False

Atributo VB_PredeclaredId = True

Atributo VB_Exposed = False

Opción explícita

Atenuar p1 como entero, p2 como entero

Atenuar comenzar como booleano

Subcomando privado1_Click()

p1 = 1: p2 = 31

Aleatorizar

Etiqueta1.

End Sub

Subtexto privado1_KeyPress(KeyAscii como entero)

Si no ( KeyAscii = 13 y Begin = True) Luego salga de Sub

Atenuar i como entero

i = Val(Text1.Text)

Si i < 1 o i > 31 Entonces

MsgBox "¡Ingrese un número entre 1-31!"

Si i < 1 O i > 31 Entonces

MsgBox "Por favor ingrese ¡un número entre 1-31!, vbCritical, "Hint"

Salir de Sub

Finalizar si

Con etiqueta1

Seleccionar caso i - Val(Label1.Tag)

Caso 0

.Caption = "¡Lo has hecho bien!"

.BackText = "Por favor, introduce 1- 31 ¡Número entre!"

MsgBox "¡Ingrese el número entre 1 y 31!

.BackColor=vbGreen

Begin=False

El caso es > 0

.Caption="¡Más grande! "

p2 = Val(Text1.Text)

.BackColor = vbRed

El caso es < 0

.Caption = "Más pequeño !"

p1 = Val(Texto1.Texto)

>

.BackColor = vbRed

.Caption = "Sizeer!

p1 = Val(Text1.Text)

.BackColor = vbBlack

Finalizar selección

Finalizar con

Text1.BackColor = vbBlack

El caso es < 0

.Capion = "Más pequeño !SetFocus

End Sub

Subtexto privado1_KeyUp(KeyCode como entero, Mayús como entero)

Si KeyCode = vbKeyV y Shift = 2 y Begin = True Entonces

Texto1.