[Pytanie] losowanie

[bfffff]

Jak wylosowac liczby w vb6 . Losowac

[viamrimar]

Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim tablica() As String
ReDim tablica(0 To 9)
tablica(0) = "a"
tablica(1) = "b"
tablica(2) = "c"
tablica(3) = "d"
tablica(4) = "e"
tablica(5) = "f"
tablica(6) = "g"
tablica(7) = "h"
tablica(8) = "t"
tablica(9) = "cdfs"
Dim RandomClass As New Random
Dim RandomNumber As Integer
RandomNumber = RandomClass.Next(0, tablica.Length - 1)
MsgBox(tablica(RandomNumber))

End Sub
End Class

 

Jakis przyklad... tylko z 2010

[dawid555d]

@up

twój kod jest bezsensu, po co ReDim?

 

masz tutaj losowanie liczb + bez powtórzeń.

 

http://www.mpcforum.pl/topic/1029078-tut-lotek-czyli-pseudo-losowanie-liczb-bez-powtorzen-za-pomoca-buttona-i-listboxa-vbnet-and-c/