Expertos en VB por favor ingresen
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.