سوال مهم من و جواب ندادین؟ خواهش می کنم زود باشین برنامه با استفاده از ویژوال بیسیک

سلام:2 تا سوال داشتم:
1- برنامه ای که با دریافت 10 عدد از ورودی مشخص کند چه عددی بیش از بقیه تکر شده است ؟(دریافت 10 عدد با استفاده ازinputbox) صورت گیرد؟
2- برنامه ای که خروجی زیر را چاپ کند با استفاده ازmsflexgridو استفاده از حلقه ی )for .
1 2 3 4 5
1 2 3 4
1 2 3
1 2
1

نقل قول:

---

2- برنامه ای که خروجی زیر را چاپ کند با استفاده ازmsflexgridو استفاده از حلقه ی )for .
1 2 3 4 5
1 2 3 4
1 2 3
1 2
1

---

بفرمایید :

کد:

---

MS1.Rows = 6
MS1.Cols = 6
a = 5
For i = 1 To 5
 For j = 1 To a
  MS1.Row = i
  MS1.Col = j
  MS1.Text = j
 Next j
a = a - 1
Next i

---

* MS1 مقدار Name ابزار MsFlexGrid است !
* سوال اول رو نمیدونم ...
* نیاز به زدن دو تاپیک نبود ، همون تاپیک اولی جواب میگرفتید ! ( البته اینجا صاحب نداره ، زیاد مهم نیست)

نقل قول:

---

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

البته اینجا صاحب نداره ، زیاد مهم نیست)

---

واقعا"

اینو خوب اومدی!!! : دی

در مورد سوال اول اینو بزن درست میشه

کد:

---

Dim i, j As Integer
Dim ar(10) As Integer
Dim ar2(10, 1) As Integer
For i = 1 To 10
    ar(i) = InputBox("please inter your number", "")
    For j = 1 To 10
        If ar(i) = ar2(j, 0) Then
            ar2(j, 1) = ar2(j, 1) + 1
        End If
        If ar2(j, 1) = 0 Then
            ar2(j, 0) = ar(i)
            ar2(j, 1) = 1
        End If
    Next j
Next i
For i = 1 To 10
    If a < ar2(i, 1) Then
        a = ar2(i, 1)
        b = ar2(i, 0)
    End If
Next i
MsgBox "number: " & b & " repited more than else ", vbOKOnly, ""
MsgBox a & " time ripited", vbOKOnly, ""

---