سورس مقسوم علیه های 11 از عدد 1 تا 9 میلیون

[p30graph3]

برنامه ای که تمام مقسوم علیه های 11 را از عدد 1 تا 9 میلیون در فرم چاپ کند . سورسش را برای ویژال بیسیک میخوام. خیلی فوری هست.

ممنون از کسانیکه کمک میکنن.

[shedayat]

سلام دوست عزيز. اول يه ليست باكس و يه دكمه توي فرمت بزار بعد كد زير رو توي جنرال فرمت كپي كن و در زمان اجرا بعد از زدن دكمه صبر كن تا پيغام Finished بياد.(فقط يه كم طول مي كشه اميدوارم كه صبرت زياد باشه)

کد:

Private Sub Command1_Click()
For i = 1 To 9000000
If i Mod 11 = 0 Then List1.AddItem i
Next
MsgBox "Finished"
End Sub

[ajlajlajl]

اون طول کشیدن هم به خاطر استفاد از لیست باکسه. وگرنه خود کدش زمانی نمیبره.

[shedayat]

اون طول کشیدن هم به خاطر استفاد از لیست باکسه. وگرنه خود کدش زمانی نمیبره.

نه داداش اون طول كشيدنش به خاطر حجم سنگين محاسبه هست و ربطي به ليست باكس نداره.( يك بار امتحان كافيه!!!!!)

[ajlajlajl]

خب من امتحان کردم