fork download

copy

Imports System
 
Public Class Test
	Public Shared Sub Main()
		Dim nombre_alumnos(5) , Respuesta As String;
Dim i , randomValue,Repetidos(5)  As Integer;
Dim swhiche As boolean;
i=0;
swhiche=true;
 
nombre_alumnos(0)="Nombre 1";
nombre_alumnos(1)="Nombre 2";
nombre_alumnos(2)="Nombre 3";
nombre_alumnos(3)="Nombre 4";
nombre_alumnos(4)="Nombre 5";
 
 
While i<20
 
    Respuesta = InputBox("¿Desea un alumno al azar", "Selecionar Alumno","");
 
        if Respuesta = "si" or Respuesta="Si" or Respuesta="SI" then
 
            While swhiche = true
 
                randomValue = CInt(Math.Floor((20 + 1) * Rnd()));
 
                if Array.Exists(Repetidos,randomValue)=flase then
 
                     MsgBox(nombre_alumnos(randomValue));
 
                     Repetidos(i) = randomValue;
 
                     swhiche = false;
 
                 End if
 
           End While
 
        Else
 
             Exit While
 
        End if
 
swhiche=true;
 
i=i+1; 
 
End While
 
	End Sub
End Class

Visual Basic.Net Compiler version 0.0.0.5914 (Mono 2.4.2 - r)
Copyright (C) 2004-2008 Rolf Bjarne Kvinge. All rights reserved.


/home/Ygg8tL/prog.vb (5,46) : Error VBNC30037: Symbol is not valid.
/home/Ygg8tL/prog.vb (6,45) : Error VBNC30037: Symbol is not valid.
/home/Ygg8tL/prog.vb (7,23) : Error VBNC30037: Symbol is not valid.
/home/Ygg8tL/prog.vb (8,4) : Error VBNC30037: Symbol is not valid.
/home/Ygg8tL/prog.vb (9,13) : Error VBNC30037: Symbol is not valid.
/home/Ygg8tL/prog.vb (11,29) : Error VBNC30037: Symbol is not valid.
/home/Ygg8tL/prog.vb (12,29) : Error VBNC30037: Symbol is not valid.
/home/Ygg8tL/prog.vb (13,29) : Error VBNC30037: Symbol is not valid.
/home/Ygg8tL/prog.vb (14,29) : Error VBNC30037: Symbol is not valid.
/home/Ygg8tL/prog.vb (15,29) : Error VBNC30037: Symbol is not valid.
/home/Ygg8tL/prog.vb (20,77) : Error VBNC30037: Symbol is not valid.
/home/Ygg8tL/prog.vb (26,65) : Error VBNC30037: Symbol is not valid.
/home/Ygg8tL/prog.vb (30,57) : Error VBNC30037: Symbol is not valid.
/home/Ygg8tL/prog.vb (32,48) : Error VBNC30037: Symbol is not valid.
/home/Ygg8tL/prog.vb (34,37) : Error VBNC30037: Symbol is not valid.
/home/Ygg8tL/prog.vb (46,13) : Error VBNC30037: Symbol is not valid.
/home/Ygg8tL/prog.vb (48,6) : Error VBNC30037: Symbol is not valid.
There were 17 errors and 0 warnings.
Compilation took 00:00:00.6581880

Standard output is empty