Ejemplo 1: Juego de dados

option explicit

randomize

dim dado1, dado2, dado3

dim victorias, partidas, seguir

do

dado1=fix(rnd()*6)+1

dado2=fix(rnd()*6)+1

dado3=fix(rnd()*6)+1

partidas=partidas+1

wscript.echo «ha salido: » & dado1 & » – » & dado2 & » – » & dado3

if dado1=dado2 or dado1=dado3 or dado2=dado3 then

                wscript.echo «hay dos iguales, has ganado»

                victorias=victorias+1

else

                wscript.echo «has perdido» Seguir leyendo “Ejemplos de scripts en VBScript” »