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

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


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

نقل قول:

---

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

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

---

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

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

نقل قول:

---

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

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

---

نقل قول:

---

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

---

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

نقل قول:

---

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

---

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

نقل قول:

---

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

---

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

نقل قول:

---

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

---

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

نقل قول:

---

نوشته شده توسط Akbar"22" [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

منظور از کليد ديگر ، يک Command Button ديگر است

---

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

نقل قول:

---

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

---

نقل قول:

---

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

---

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

کد:

---


For i = LBound(strName) To UBound(strName)

  strName(i) = InputBox("Enter Name  " & "    " & i + 1)

  strPhone(i) = InputBox("Enter Phone Number  " & "    " & i + 1)

  List1.AddItem strName(i) & "      " & strPhone(i)

Next

---

نقل قول:

---

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

---

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

کد:

---

For i = 0 To UBound(strName)

  For j = 0 To UBound(strName) - 1

      If strName(j) > strName(j + 1) Then

        x = strName(j)

        y = strPhone(j)

        strPhone(j) = strPhone(j + 1)

        strPhone(j + 1) = y

        strName(j) = strName(j + 1)

        strName(j + 1) = x

      End If

  Next

Next

List1.Clear

For p = LBound(strName) To UBound(strName)

  List1.AddItem strName(p) & "      " & strPhone(p)

Next

---

نقل قول:

---

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

---

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

کد:

---

s = InputBox(" Enter Name ")

For p = LBound(strName) To UBound(strName)

  If strName(p) = s Then MsgBox strName(p) & "        " & strPhone(p)

Next

---

نقل قول:

---

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

---

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

کد:

---

For i = 0 To UBound(strName)

  For j = 0 To UBound(strName) - 1

      If strPhone(j) > strPhone(j + 1) Then

        x = strName(j)

        y = strPhone(j)

        strPhone(j) = strPhone(j + 1)

        strPhone(j + 1) = y

        strName(j) = strName(j + 1)

        strName(j + 1) = x

      End If

  Next

Next

List1.Clear

For p = LBound(strName) To UBound(strName)

  List1.AddItem strName(p) & "      " & strPhone(p)

Next

---

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

کد:

---

Dim strName(4) As String, strPhone(4) As String
Private Sub Command1_Click()
For i = LBound(strName) To UBound(strName)
  strName(i) = InputBox("Enter Name  " & "    " & i + 1)
  strPhone(i) = InputBox("Enter Phone Number  " & "    " & i + 1)
  List1.AddItem strName(i) & "      " & strPhone(i)
Next
End Sub

Private Sub Command2_Click()
For i = 0 To UBound(strName)
  For j = 0 To UBound(strName) - 1
      If strName(j) > strName(j + 1) Then
        x = strName(j)
        y = strPhone(j)
        strPhone(j) = strPhone(j + 1)
        strPhone(j + 1) = y
        strName(j) = strName(j + 1)
        strName(j + 1) = x
      End If
  Next
Next
List1.Clear
For p = LBound(strName) To UBound(strName)
  List1.AddItem strName(p) & "      " & strPhone(p)
Next
End Sub

Private Sub Command3_Click()
s = InputBox(" Enter Name ")
For p = LBound(strName) To UBound(strName)
  If strName(p) = s Then MsgBox strName(p) & "        " & strPhone(p)
Next
End Sub

Private Sub Command4_Click()
For i = 0 To UBound(strName)
  For j = 0 To UBound(strName) - 1
      If strPhone(j) > strPhone(j + 1) Then
        x = strName(j)
        y = strPhone(j)
        strPhone(j) = strPhone(j + 1)
        strPhone(j + 1) = y
        strName(j) = strName(j + 1)
        strName(j + 1) = x
      End If
  Next
Next
List1.Clear
For p = LBound(strName) To UBound(strName)
  List1.AddItem strName(p) & "      " & strPhone(p)
Next
End Sub

---

:11:

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

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

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

نقل قول:

---

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

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

---

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

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

مثال :

کد:

---

Dim Arry(9) As Integer

For S = LBound(Arry) To UBound(Arry)

    Print "*"

Next

---

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