APLICACION JUEGO DE DADOS

Le proponemos el siguiente ejercicio lanzar un dado, necesitaremos 6 imágenes una para cada cara del dado un botón y el código que le adjuntamos este ejercicio esta hecho en vbscrip:

1 <script language="VBScript">
2 <!--
3 Option explicit
4 Randomize
5 Sub cmdjugar_OnClick()
6 Dim n
7 n = Int(6*Rnd + 1)
8 Select Case n
9 Case 1
10 Dado.src = "Uno.gif"
11 Case 2
12 Dado.src = "Dos.gif"
13 Case 3
14 Dado.src = "Tres.gif"
15 Case 4
16 Dado.src = "Cuatro.gif"
17 Case 5
18 Dado.src = "Cinco.gif"
19 Case Else
20 Dado.src = "Seis.gif"
21 End Select
22 End Sub
23 -->
24 </script>
25 <table width="98%" border="0" cellspacing="1">
26 <tr>
27 <td width="33%">&nbsp;</td>
28 <td width="36%" align="center" valign="middle"><img id="Dado" src="Seis.gif" width="301" height="300"></td>
29 <td width="19%" align="left" valign="middle"><input type="button" name="cmdjugar"
value="Tirar el Dado"></td>

Al pulsar el botón línea 29 iniciamos el procedimiento cmdjugar línea 5, obtendremos un número aleatorio línea 7 que nos dará la imagen que se muestra en pantalla línea 28.