Visual Studio 2005'te loto programı hakkında?

[yoguzhanates]

al arkadaşım

Dim a, b, c, d, f, g AsInteger

Randomize()
a = Rnd() * (49 - 1) + 1
b = Rnd() * (49 - 1) + 1
c = Rnd() * (49 - 1) + 1
d = Rnd() * (49 - 1) + 1
f = Rnd() * (49 - 1) + 1
g = Rnd() * (49 - 1) + 1

If a = b Or a = c Or a = d Or a = f Or a = g Then
a = Rnd() * (49 - 1) + 1
ElseIf b = a Or b = c Or b = d Or b = f Or b = g Then
b = Rnd() * (49 - 1) + 1
ElseIf c = a Or c = b Or c = d Or c = f Or c = g Then
c = Rnd() * (49 - 1) + 1
ElseIf d = a Or d = b Or d = c Or d = f Or d = g Then
d = Rnd() * (49 - 1) + 1
ElseIf f = a Or f = b Or f = c Or f = d Or f = g Then
f = Rnd() * (49 - 1) + 1
ElseIf g = a Or g = b Or g = c Or g = d Or g = f Then
g = Rnd() * (49 - 1) + 1
EndIf


TextBox1.Text = a
TextBox2.Text = b
TextBox3.Text = c
TextBox4.Text = d
TextBox5.Text = f
TextBox6.Text = g

[ByEGT]

- Silindi -