Código del programa del juego de adivinanzas VB

atenuar a(4), i, j, e, ganar, str

str=""

e=1

win=0

aleatorizar

para i=1 a 4

a(i)=int((9-0 1)*rnd(1)) 0

para j=1 a (i-1)

si cstr(a(i))=cstr(a(j)) entonces i=i-1

siguiente

siguiente

dim sum

dim b(4)

dim c, d

do while e=1

sum=inputbox("Ingrese el número que desea adivinar:", "Ingrese el valor adivinado")

if cstr(sum)= "" luego salga de do

para i=1 a 4

b(i)=mid(sum, i, 1)

siguiente

c=0

d=0

para i=1 a 4

para j=1 a 4

si cstr(a (i))=cstr(b(j)) and i=j entonces c=c 1

si cstr(a(i))=cstr(b(j)) and ilt; gt;j entonces d=d 1

siguiente

siguiente

si c=4 entonces

win=1

salir hacer

finalizar si

str=str chr(13) b(1) b(2) b(3) b(4) espacio(2) cstr( c) " A" cstr(d) "B"

wscript.echo str

bucle

si win=1 entonces wscript.echo "Lo has adivinado ." else wscript.echo "No acertaste."

//////////////////////////// //////

Lo anterior es un pequeño juego que escribí. Copie la parte encima de la barra en un documento, cambie el nombre del sufijo a *.vbs, haga doble clic para ver el efecto :)