كمك براي رفع خطا

[fahmari]

سلام دوستان عزيز. من يه برنامه خيلي ساده نوشتم هرچي فكر ميكنم به نظرم درست مياد ولي همش خطاي زير رو ميده :

index was outside the bounds of the array

كد برنامه هم اين هست :

X(0) = Int(X0Text.Text)
a = Int(aText.Text)
c = Int(cText.Text)
m = Int(mText.Text)
count = Int(nText.Text)
For i As Integer = 1 To count
X(0) = Int(X0Text.Text)
X(i) = ((a * X(i - 1) + c) Mod m)
ListBox1.Items.Add(X(i))
Next

ميشه هرچه سريع‌تر كمكم كنيد. لازمش دارم. ممنونم

[ROSTAM2]

شمارش تعداد اندیس از 1 شروع می شه ولی شمارش عناصر از 0 اگه درست توضیح داده باشم تعداد همون count از 1 شروع به شمارش می شه
پس یکی کمتر از شمارش عناصر ه....

شاید...
[1 - VB]For i As Integer = 1 To count
X(0) = Int(X0Text.Text)
X(i) = ((a * X(i - 1) + c) Mod m)
ListBox1.Items.Add(X(i))
Next[/VB]

[fahmari]

ممنون دوست عزيز. نه مشكل از اين نبود حلش كردم :لبخندساده: مرسي از لطفت
مشكل اين بود كه من متغير count كه تعداد آرايه رو مشخص مي‌كنه به صورت سراسري در بالاي فرم مقداردهي كرده بودم و در واقع مقدار صفر رو به خودش ميگرفت!!
بازم ممنون