Mi a hiba a programban?
Sziasztok !
Visual Basicről lenne szó
Egy olyan programot készítek amiben emberek tulajdonságait kell véletlenszerűen kisorsolni . Megadom hány emberől van szó és ő kiírja hogy az elő okos a második buta. Igy hallásra nagyon bugyutának tünik de ez egy "táradalomszimulátor" lesz . Ime a kód :
Dim emberek(Val(emberekszama.Value)) As String
For i = 1 To Val(emberekszama.Text)
Dim rndnumber As Random
Dim number As Integer
rndnumber = New Random
number = rndnumber.Next(1, 4)
Select Case number
Case 1
emberek(i) = emberek(i) + "buta"
Case 2
emberek(i) = emberek(i) + "átlagos"
Case 3
emberek(i) = emberek(i) + "okos"
End Select
RichTextBox1.Text += "Az " + Str(i) + ". ember " + emberek(i)
Next
Az a probléma , hogy minden embernek ugyan azok a tulajdonságai és nem értem mért
A válaszokat nagy érdeklődéssel várom .
Csak , hogy egyértelmű legyen .
emberek = szöveges tömb
emberegszáma = numericupdown
richTextBox1 = ide irattatom ki a dolgokat
' Initialize the random-number generator.
Randomize()
' Generate random value between 1 and 6.
Dim value As Integer = CInt(Int((6 * Rnd()) + 1))
Vedd ki a ciklusból ezt és tedd a ciklus elé
Dim rndnumber As Random
rndnumber = New Random
Kapcsolódó kérdések:
Minden jog fenntartva © 2024, www.gyakorikerdesek.hu
GYIK | Szabályzat | Jogi nyilatkozat | Adatvédelem | Cookie beállítások | WebMinute Kft. | Facebook | Kapcsolat: info(kukac)gyakorikerdesek.hu
Ha kifogással szeretne élni valamely tartalommal kapcsolatban, kérjük jelezze e-mailes elérhetőségünkön!