VB6 - random

[acca]

Nov sam u VisualBasic-u. Radim neki programcic za tablicu mnozenja. Stavio sam sledece kodove
Private Sub Command1_Click()
cin1 = Int(Rnd * 10) + 1
cin2 = Int(Rnd * 10) + 1
Text1.Text = Str$(cin1)
Text2.Text = Str$(cin2)
End Sub

Private Sub Command3_Click()

If Text3.Text = Text1.Text * Text2.Text Then
Text4.Text = "tacno"
Else
Text4.Text = "nije tacno"
End If
End Sub

Private Sub Command4_Click()
Unload Me
End Sub

E sad, zasto mi uvek daje iste brojeve, konkretno prilikom startovanja, uvek prvo nudi 8*6, pa onda 1*8, i dalje ali uvek isti redosled. Kako da to izbegnem?

 

[mwlada]

Pre Rnd ubaci Randomize u svoj kod. Nije obavezno, ali trebao bi uvek da definises promenljive.

KOD:

Private Sub Command1_Click()
Dim cin1 As Integer, cin2 As Integer

Randomize

cin1 = Int(Rnd * 10) + 1
cin2 = Int(Rnd * 10) + 1
Text1.Text = Str$(cin1)
Text2.Text = Str$(cin2)
End Sub

Private Sub Command3_Click()

If Text3.Text = Text1.Text * Text2.Text Then
Text4.Text = "tacno"
Else
Text4.Text = "nije tacno"
End If
End Sub

Private Sub Command4_Click()
Unload Me
End Sub

 

[acca]

hvala.