Números aleatorios
Visual C++ .NET
1.620 visualizaciones desde el 17 de Julio del 2018
Código que va buscando dos números aleatorios hasta que coincidan.
Iniciar sesiónCrear cuenta
Crear cuentaCrear cuentaModule Module1
Sub Main()
'Inicio
Dim A, B, C As Integer
'Entero : A B C=0
C = 0Dim aleatorio As New Random
' genere numeros
Do
'Repetir
A = aleatorio.Next(1, 11)
'A= Generar un número aleatorio(1 al 10)
B = aleatorio.Next(1, 11)
'B= Generar un número aleatorio
If (A = B) Then
'Si(A=B) entonces
Console.WriteLine("Terminar algoritmo")
'Términar algoritmo
Else
'Sino
Console.WriteLine("Sigue intentando")
'seguir intentando
End If
'Fin Si
'C= C+1
C = C + 1
Loop Until (A = B)
'hasta que (A=B)
Console.WriteLine(" Cantidad de intentos: " & C)
'Mostrar "cantidad de intentos"
Console.ReadKey()
End Sub
'Fin
End Module
Comentarios sobre la versión: 1.1 (0)
No hay comentarios