حل سوالات تشریحی اخر فصل ویژیال بیسیک6

[matin_847]

سلام خدمت دوستان گرامی
دوستان یه زحمت بکشند و سوالات تشریحی اخر هر فصل کتاب ویژیال بیسیک 6 رو توی این تایپیک حل کنند
من توی حل سوالات تشریحی فصل ارایه ها به مشکل خوردم لطفا یه نفر بیاد به طور ساده و همراه با توضیح، سوال پایین رو حل کنه.


1- برنامه ای بنویسید که نام و شماره تلفن 10 نفر را بوسیله دستور INPUT دریافت کرده و سپس با انتخاب یک دکمه(بوسیله برنامه ی فرعی) لیست را برحسب نام مرتب نموده و چاپ نماید و با انتخاب کلید دیگر با دادن هر اسم شماره تلفن آن فرد چاپ گردد و با انتخاب کلید سوم، لیست برحسب شماره تلفن ها مرتب شده و چاپ گردد.

[Akbar"22"]

سلام خدمت دوستان گرامی
دوستان یه زحمت بکشند و سوالات تشریحی اخر هر فصل کتاب ویژیال بیسیک 6 رو توی این تایپیک حل کنند
من توی حل سوالات تشریحی فصل ارایه ها به مشکل خوردم لطفا یه نفر بیاد به طور ساده و همراه با توضیح، سوال پایین رو حل کنه.

سلام ، منظورت از کتاب ویژوال بیسیک 6 کدوم کتاب هستش ؟

[matin_847]

کتاب درسی: رایانه کار، برنامه نویس زبان ویژوال بیسیک تالیف: مهندس غلامرضا خلیق

[Akbar"22"]

1- برنامه ای بنویسید که نام و شماره تلفن 10 نفر را بوسیله دستور INPUT دریافت کرده و سپس با انتخاب یک دکمه(بوسیله برنامه ی فرعی) لیست را برحسب نام مرتب نموده و چاپ نماید و با انتخاب کلید دیگر با دادن هر اسم شماره تلفن آن فرد چاپ گردد و با انتخاب کلید سوم، لیست برحسب شماره تلفن ها مرتب شده و چاپ گردد.



برنامه اي بنويسيد که نام و شماره تلفن 10 نفر را بوسيله دستور INPUT دريافت کرده


منظور اين که يک آرايه رشته اي و يک آرايه عددي تعريف کنيد که ده خانه داشته باشد و از طريق تابع InPutBox به ترتيب نام و شماره تلفن کاربر را دريافت کند . البته اگر ما در شماره تلفن آرايه ای را از نوع عددي استفاده کنيم براي يافتن شماره زمانبر خواهد بود که بهتر است اين نوع هم از نوع رشته باشد .



و سپس با انتخاب يک دکمه(بوسيله برنامه ي فرعي) ليست را برحسب نام مرتب نموده و چاپ نمايد


منظور اين که يک کنترل Command Button به فرم اضافه کنيد و درون رويداد Click اون کد هاي مرتب کردن نام هاي ذخيره شده را بنویسید و خروجی را در کنترل ListBox (لیست) چاپ نمایید .



و با انتخاب کليد ديگر با دادن هر اسم شماره تلفن آن فرد چاپ گردد


منظور از کليد ديگر ، يک Command Button ديگر است ، که از طريق تابع InPutBox و يا از طريق کنترل TextBox يک اسم را دريافت کند و شماره تلفن آنرا چاپ کند .
چاپ ميتونه هر چيزي باشه ميتونيد بر روي فرم چاپ کنيد ، يا نمايش آن از طريق تابع MsgBox يا نمايش در يک List Box ...



و با انتخاب کليد سوم، ليست برحسب شماره تلفن ها مرتب شده و چاپ گردد.


با کليک بر روي يک Command Button ديگر ، ListBox بر اساس شماره تلفن هاي موجود مرتب شود .

[matin_847]

منظور از کليد ديگر ، يک Command Button ديگر است ممنون از این که پاسخ دادی اولین قدم برای حل یک مساله تجزیه کردن آن مساله به مساله های کوچک تر است. من در تجزیه کردن مساله ها مشکلی ندارم اگه میشه کد برنامه رو بنویسید و بعضی از قسمت ها رو توضیح کوچکی بدین

[Akbar"22"]

نوشته شده توسط matin_847 مشاهده تاپيک
1- برنامه اي بنويسيد که نام و شماره تلفن 10 نفر را بوسيله دستور INPUT دريافت کرده و سپس با انتخاب يک دکمه(بوسيله برنامه ي فرعي) ليست را برحسب نام مرتب نموده و چاپ نمايد و با انتخاب کليد ديگر با دادن هر اسم شماره تلفن آن فرد چاپ گردد و با انتخاب کليد سوم، ليست برحسب شماره تلفن ها مرتب شده و چاپ گردد.



1- برنامه اي بنويسيد که نام و شماره تلفن 10 نفر را بوسيله دستور INPUT دريافت کرده

خوب در اين قسمت مشخص است که ما بايد با استفاده از تعريف دو آرايه مقادير را ذخيره کنيم . کد زير :


برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنید


و سپس با انتخاب يک دکمه(بوسيله برنامه ي فرعي) ليست را برحسب نام مرتب نموده و چاپ نمايد

براي مرتب کردن مقادير در يک کنترل ListBox مي توان قبل از اجراي برنامه با True کردن مشخصه ي Sorted آن مقادير وارده شده مرتب شوند . ولي چون ما قصد مرتب کردن لیست بر اساس فقط نام ها داریم به درد ما نمی خورد و من از طريق يک الگوريتم براي مرتب کردن listBox استفاده مي کنم ، از روش مرتب سازی حبابی برای مرتب کردن لیست کد زیر :


برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنید



و با انتخاب کلید دیگر با دادن هر اسم شماره تلفن آن فرد چاپ گردد

برای این کار باید از جستجو خطی در آرایه استفاده کنیم . کد زیر :


برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنید


و با انتخاب کلید سوم، لیست برحسب شماره تلفن ها مرتب شده و چاپ گردد.

خوب ، در کد مرتب سازی حبابی که مرتب سازی بر اساس نام افراد بود حالا به جای آن شماره تلفن را معیار قرار می دهیم . کد زیر :


برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنید

فکر نکنم چیزی از قلم افتاده باشد . محض احتیاط کل کد های نوشته شده را در پنجره ی Code را یکبار دیگر قرار می دهم تا مشکلی نباشد .


برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنید

:11:

[matin_847]

2: برنامه ای بنویسید که اطلاعات یک جدول 5*4 را خوانده و سپس مجموع مقادیر هر ستون با ذکر نام ستون چاپ شود.

[matin_847]

سوال سختی پرسیدم؟

[sosani2007]

تابع ubound مال چی هست
چطوری می تونم ازش استفاده کنم

[Akbar"22"]

تابع ubound مال چی هست
چطوری می تونم ازش استفاده کنم

تابع ()UBound : برای تعیین اندیس آخرین عنصر آرایه استفاد می شود .

تابع ()LBound : برای تعیین اندیس اولین عنصر آرایه استفاده می شود .

مثال :


برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنید


چاپ ده ستاره به صورت عمودی

[sosani2007]

تابع ()UBound : برای تعیین اندیس آخرین عنصر آرایه استفاد می شود .

تابع ()LBound : برای تعیین اندیس اولین عنصر آرایه استفاده می شود .

مثال :


برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنید


چاپ ده ستاره به صورت عمودی


منظور شما از عنصر چی هست می شه واضح توضیح بدید متوجه نشدم

[Akbar"22"]

منظور شما از عنصر چی هست می شه واضح توضیح بدید متوجه نشدم

منظور از عنصر یعنی خانه های آرایه برای مثال :

الان با نوشتن این دستور یه این چنین فضایی درون حافظه باز میشه :

Dim A(9) As Integer



[ برای مشاهده لینک ، لطفا با نام کاربری خود وارد شوید یا ثبت نام کنید ]

[sosani2007]

اها !!!! خوب راحت بگو ما به همچین حالتی می گیم ماتریکس
ببخشید دوستم قصد جسارت نداشتم شرمندتم شرمنده:11: