Vorrei creare un programma che lanci 6 dadi. A ogni lancio dovrebbe corrispondere un'immagine. L'immagine sarà diversa se il risultato sarà 1,2,3,4,5 o 6. Quindi il codice per un lancio di un dado sarà del tipo:
codice:
       v = Int(Rnd() * 6 + 1)       
        If v = 1 Then
            PictureBox1.ImageLocation = "PercordoImmagineDado1"
        elseif v = 2 Then
            PictureBox1.ImageLocation = "PercordoImmagineDado2"
        evenif v = 3 Then
            PictureBox1.ImageLocation = "PercordoImmagineDado3"
        elseif v = 4 Then
            PictureBox1.ImageLocation = "PercordoImmagineDado4"
        else if v = 5 Then
            PictureBox1.ImageLocation = "PercordoImmagineDado5"
        else
            PictureBox1.ImageLocation = "PercordoImmagineDado6"
        End If
Ora, per il lancio degli altri 5 dadi, dovrei ripetere queste istruzioni per 5 volte, cambiando il riferimento alla PictureBox (1,2,3,4,5,6). C'è un modo per evitare questa ripetizione e per rendere il codice più compatto? C'è per caso una sorta di ciclo che posso incrementare il riferimento alla PictureBox?