Code:
Public tacno As Integer
Dim pitanje(0 To 2, 0 To 4) As String
Private Sub cmdSledece_Click()
For i = 0 To 2
If Form1.lblPitanje.Caption = pitanje(i, 0) And Form1.Option1(pitanje(i, 4)).Value = True Then tacno = tacno + 1
Next i
MsgBox "Tacnih odgovora " & tacno
Call ime_funkcije ()
End Sub
Private Sub Form_Load()
tacno = 0
pitanje(0, 0) = "Koji je nas najtrofejniji fudbalski klub?"
pitanje(0, 1) = "Crvena zvezda"
pitanje(0, 2) = "Partizan"
pitanje(0, 3) = "Obilic"
pitanje(0, 4) = "1"
pitanje(1, 0) = "Sta je brze ili zec?"
pitanje(1, 1) = "Zec"
pitanje(1, 2) = "Ili"
pitanje(1, 3) = "Nista od svega"
pitanje(1, 4) = "3"
pitanje(2, 0) = "Koje od navedenih boja nije osnovna?"
pitanje(2, 1) = "Plava"
pitanje(2, 2) = "Bela"
pitanje(2, 3) = "Zuta"
pitanje(2, 4) = "2"
Call ime_funkcije ()
End Sub
Function RandomPitanje() As Integer
Randomize
RandomPitanje = Int(1 + 3 * Rnd)
End Function
Private Function ime_funkcije()
x = RandomPitanje()
Form1.lblPitanje.Caption = pitanje(x, 0)
Form1.Option1(1).Caption = pitanje(x, 1)
Form1.Option1(2).Caption = pitanje(x, 2)
Form1.Option1(3).Caption = pitanje(x, 3)
Form1.Frame1.Caption = "Pitanje broj " & x + 1
End Function
Ne znam zasto mi ne radi, pise Comple error: Method or data member not found.....Molim Vas, pomoc!