با سلام
یک برنامه ریاضی با VB 2008 نوشته ام که در یک قسمت از برنامه باید ماتریس تصادفی تولید شود . و برنامه در آن قسمت خطا می دهد .
لطفا راهنمایی بفرمایید :
یک برنامه ریاضی با VB 2008 نوشته ام که در یک قسمت از برنامه باید ماتریس تصادفی تولید شود . و برنامه در آن قسمت خطا می دهد .
لطفا راهنمایی بفرمایید :
' generate popultion
For p = 0 To Psize
For k = 0 To NumMachine
' Generate random value between 0 and NumMachine
Randomize()
Gen(p, k) = CInt(Int((NumMachine * Rnd()) + 0))
'End of Generate random value
For i = 0 To k - 1
If Gen(p, k) = Gen(p, i) Then
' Generate random value between 0 and NumMachine
Randomize()
Gen(p, k) = CInt(Int((NumMachine * Rnd()) + 0))
parent(p, k) = Gen(p, k)
'End of Generate random value
i = 0
End If
Next
Next
Next
'End of generate popultion
For p = 0 To Psize
For k = 0 To NumMachine
' Generate random value between 0 and NumMachine
Randomize()
Gen(p, k) = CInt(Int((NumMachine * Rnd()) + 0))
'End of Generate random value
For i = 0 To k - 1
If Gen(p, k) = Gen(p, i) Then
' Generate random value between 0 and NumMachine
Randomize()
Gen(p, k) = CInt(Int((NumMachine * Rnd()) + 0))
parent(p, k) = Gen(p, k)
'End of Generate random value
i = 0
End If
Next
Next
Next
'End of generate popultion
Last edited: