Skocz do zawartości

[Pytanie] losowanie


bfffff

Rekomendowane odpowiedzi

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

Odnośnik do komentarza
Udostępnij na innych stronach

Odnośnik do komentarza
Udostępnij na innych stronach

Zarchiwizowany

Ten temat przebywa obecnie w archiwum. Dodawanie nowych odpowiedzi zostało zablokowane.

  • Ostatnio przeglądający forum [Pytanie] losowanie   0 użytkowników
    • Brak zarejestrowanych użytkowników przeglądających tę stronę.
×
×
  • Dodaj nową pozycję...