pippo assume sempre il valore 0!!!

pippo = Int(Rnd(999))

nel tuo ciclo vuoi che j si incrementi ad ogni passaggio di 1 unità...

non puoi che ottenere in questo modo sempre il solito risultato! almeno finchè assegni un valore positivo per la variabile arrivi!

se sposti Label3.Caption prima di chiudere EndIf puoi visualizzare come j si incrementa ad ogni dgiro del for.
codice:
....
....
Randomize
j = 0
pippo = Int(Rnd(999))
For i = 0 To 60
If (Int(Rnd(999)) < Arrivi) Then
j = j + 1
End If
Label3.Caption = j
Next i
....
....


quindi in conclusione:
tutto dipende da:

codice:
If (Int(Rnd(999)) < Arrivi) Then 
j = j + 1 
End If
dove gli dici che finchè arrivi è > di 0 incrementa j....(quindi per ogni valore....!!!! (Int(Rnd(999)) è sempre = a 0 )


spero di essermi spiegato bene e di esserti stato utile..

ciao


Originariamente inviato da Il Pazzo
Ho questa parte di programma ma qualunque numero metta il risultato di j=61.... perchè? dove l'errore?

Ho fatto la prova inserendo il numero 15 Arrivi=250 quindi dovrebbe funzionare :|

************************************************** *******************

Dim Prob As Double
Dim Arrivi As Integer

Private Sub Command1_Click()
Arrivi = (Prob * 1000) / 1000
Arrivi = (Prob * 1000) - (Arrivi * 1000)

Randomize
j = 0
For i = 0 To 60
If (Int(Rnd(999)) < Arrivi) Then
j = j + 1
End If
Next i

Label3.Caption = j

Private Sub Text1_Change()
If Text1.Text <> "" Then
Command1.Enabled = True
Prob = FormatNumber(Text1.Text / 60, 3)
Label2.Caption = "Probabilità di un arrivo in 1 minuto (60 secondi): " & Prob
Else
Label2.Caption = "Inserire la media di arrivi"
End If
End Sub