Kezdőoldal » Számítástechnika » Programozás » Mi a hiba a programban?

Mi a hiba a programban?

Figyelt kérdés

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 .



2013. febr. 24. 21:21
 1/6 A kérdező kommentje:

Csak , hogy egyértelmű legyen .

emberek = szöveges tömb

emberegszáma = numericupdown

richTextBox1 = ide irattatom ki a dolgokat

2013. febr. 24. 21:25
 2/6 anonim ***** válasza:
Randomize-t vagy hasonlót kéne hívni szerintem.
2013. febr. 24. 22:14
Hasznos számodra ez a válasz?
 3/6 anonim ***** válasza:

' Initialize the random-number generator.

Randomize()

' Generate random value between 1 and 6.

Dim value As Integer = CInt(Int((6 * Rnd()) + 1))

2013. febr. 25. 09:07
Hasznos számodra ez a válasz?
 4/6 anonim ***** válasza:

Vedd ki a ciklusból ezt és tedd a ciklus elé


Dim rndnumber As Random

rndnumber = New Random

2013. febr. 25. 09:12
Hasznos számodra ez a válasz?
 5/6 A kérdező kommentje:
Nagyon szépen köszönöm nagyon rendesek vagytok
2013. febr. 25. 19:54
 6/6 anonim ***** válasza:
ez a vb tök szar..meg ronda.
2013. febr. 26. 19:55
Hasznos számodra ez a válasz?

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

A weboldalon megjelenő anyagok nem minősülnek szerkesztői tartalomnak, előzetes ellenőrzésen nem esnek át, az üzemeltető véleményét nem tükrözik.
Ha kifogással szeretne élni valamely tartalommal kapcsolatban, kérjük jelezze e-mailes elérhetőségünkön!