برنامه ای که تمام مقسوم علیه های 11 را از عدد 1 تا 9 میلیون در فرم چاپ کند . سورسش را برای ویژال بیسیک میخوام. خیلی فوری هست.
ممنون از کسانیکه کمک میکنن.
سلام دوست عزيز. اول يه ليست باكس و يه دكمه توي فرمت بزار بعد كد زير رو توي جنرال فرمت كپي كن و در زمان اجرا بعد از زدن دكمه صبر كن تا پيغام 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 نوشته است: [ -> ]اون طول کشیدن هم به خاطر استفاد از لیست باکسه. وگرنه خود کدش زمانی نمیبره.
نه داداش اون طول كشيدنش به خاطر حجم سنگين محاسبه هست و ربطي به ليست باكس نداره.( يك بار امتحان كافيه!!!!!)
