Visual Basic Script, tutorial en español
Visual Basic Script - Juan Antonio Villalpando
-- Tutorial de iniciación a Visual Basic Script --
Volver al índice del tutorial
___________________________
4.- Lógica.
- Baja a tu ordenador estos archivos y ejecútalos:
11Adivina.vbs
11Adivina.vbs |
Randomize
x=CInt(1 + Int(Rnd()*19))
msgBox(x)
Do
t=CInt(InputBox("Introduce un número del 1 al 20"))
If x<t Then r=MsgBox("Mi número es más pequeño.")
If x>t Then r=MsgBox("Mi número es mayor.")
Loop Until x=t
MsgBox("Has acertado")
' Hemos convertido los dos numeros al mismo tipo CInt.
|
12ANDOR.vbs
12ANDOR.vbs |
N1 = InputBox ("Introduzca su edad")
N2 = InputBox ("Introduzca la edad de su amigo")
If (N1>18 OR N2>18) Then
Msgbox("Al menos uno de los dos es mayor de edad")
End If
If (N1>18 AND N2>18) Then
Msgbox("Los dos sois mayores de edad")
End If
|
_____________________
|