les exercices de "visuell basic.net

Exercice : écrire une exercice qui permet d'afficher les résultats de lancements de deux dés



Solution :
Sub Main()
Dim x, y As Integer
Console.WriteLine(" ****Lancer les Dés**** ")


Randomize()


x = Int(1 + Rnd() * 6)
y = Int(1 + Rnd() * 6)

Console.WriteLine("le 1 er dé : " & x)
Console.WriteLine("le 2 éme dé : " & y)

Console.ReadLine()


End Sub

solution :
Sub Main()
Dim x As Integer
Console.WriteLine(" ****nombre aléatoire**** ")


Randomize()


x = Int(1 + Rnd() * 100)


Console.WriteLine("le 1 er dé : " & x)


Console.ReadLine()

generateur de mot de passe

Sub Main()
Dim k As String
Dim f, h, a As Integer
Dim d As String
Dim b As String

Randomize()
b = ""
h = 0
a = Int(6 + Rnd() * 5)


Do
f = Int(Rnd() * 10)
Console.Write(f)
b = "b" & "f"
h = h + 1
If h = a Then
Exit Do
End If
k = Chr(Int(Asc("A") + Rnd() * (Asc("Z") - Asc("A") + 1)))
Console.Write(k)
b = "b" & "k"
h = h + 1
If h = a Then
Exit Do
End If
d = Chr(Int(Asc("a") + Rnd() * (Asc("z") - Asc("a") + 1)))
Console.Write(d)
b = "b" & "d"
h = h + 1


Loop Until h >= a
h = 0
Console.ReadLine()


End Sub