برنامه اي با آرايه ها( جواب دادنش آسونه)

برنامه ای بنویسید که :
1- موقع اجرا n را بخواند.
2- با کلیک روی دکمه­ی cmd create به تعداد n عدد تصادفی دو رقمی تولید و در یک آرایه­ی n عضوی ذخیره کند.
3- با کلیک روی دکمه­ی cmd sort آرایه­ را به صورت صعودی مرتب کند.
4- با کلیک روی دکمه­ی cmd show آرایه­­ی نامرتب را در list1 و آرایه­ی مرتب شده را در list2 نشان دهد.
5- با کلیک روی دکمه cmd search تعداد تکرار عدد n در آرایه را روی نوار عنوان فرم نشان دهد.

توجه : در صورت استفاده از روش مرتب سازی حبابی، برای این قسمت نمره کامل منظور نمی گردد.

به زودی......

1-

کد:

---

n=text1.text

---

2-

کد:

---

dim number(n) as integer

---

خوب البته این غلطه و باید این جوری باشه که اسمش آرایه دینامیک هست فکر کنم

کد:

---

dim number() as integer
do until i=n
tmp=int(rnd() * 100)
if not(tmp<10 and tmp>100) then
number(i)=tmp
i=i+1
end if
loop

---

3-
شما این رو داونلود کن و با استفاده از اون آرایه رو مرتب کن.

کد:

---

http://mr2cracker.gigfa.com/cSort.cls

---

4-

کد:

---

for i=1 to n
list1.additem number(i)
list2.additem sorted(i)
next

---

5-

کد:

---

for i =1 to n
if number(i)=n then
num=num +1
end if
next
form1.caption=num

---

سلام

ممنون

براي مرتب سازي نبايد از روش مرتب سازي حبابيBubble sort استفاده بشه

اگه غير از اين روش ديگه اي هست بگيد

راستي اون فايلي كه واسه دان گذاشتي 6-7 صفحه هستش

مطمئني؟

Mr Cracker عزيز برنامتون كار نميكنه و ارور ميده

من خودم يه چند خط نوشتم زياد درست نيست ولي فكر كنم يه اشكال جزيي داشته باشه

يه نگاهي بهش بنداز

کد:

---


 
 
Option Explicit
Dim n As Integer, i As Integer, j As Integer
Dim rand As Double
Dim Aray() As Integer
Private Sub Command1_Click()
Randomize Timer
ReDim Aray(Val(Text1.Text)) As Integer
For i = 1 To Val(Text1.Text)
For j = 0 To Val(Text1.Text)
rand = Int(Rnd * 100)
If rand < 10 Then rand = rand + 10
Aray(j) = rand
Next j
Next i
End Sub

---

اينم لينك كامل اون دوتا سوال( يكي اين و اون يكي هم كه تو تاپيك پاييني هستش)

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

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

کجا ارور می ده؟

در مورد فایل هم باید بگم بازهم وقت نداشتم ببینم از روش حبابی استفاده می کنه یا نه

اون فایل تابع مرتب سازی داره.

این هم یه یکی دیگه به روش quick sort

کد:

---

Option Explicit
' QuickSort class
'
' To use this class, you must do a bit o

' f planning: First,
' in a form or other object module (not

' a .bas module),
' create an object like this:
'
'Private WithEvents TestSort as clsQuick

' Sort
'
' Next, define a list of values. This li

' st can be
' disk-based (table) or memory-based (ar

' ray).
' Regardless, this list MUST be numerica

' lly indexed
' with no gaps in the numbering. The ind

' exing can
' start from any number and go up to any

' number.
'
' Then, create code for the two events d

' efined by this
' class: isLess and swapItems. The isLes

' s event will
' pass three variables to you: ndx1, ndx

' 2 and Result.
' Look at element ndx1 and ndx2 in your

' array (or
' however you've implemented storage). I

' f element
' ndx1 is less than element ndx2, set th

' e Result
' variable to -1; if element ndx1 is gre

' ater than
' element ndx2, set Result to 1; else se

' t it to 0.
'
' To sort in descending order, reverse t

' hat logic.
' i.e. If element ndx1 is less than elem

' ent ndx2,
' set the Result variable to 1; if eleme

' nt ndx1 is
' greater than element ndx2, set Result

' to -1; else
' set it to 0.
'
' If the "key" of your data is of type S

' tring, you
' can use the StrComp function in your i

' sLess function:
'Result = StrComp(ar(ndx1), ar(ndx2))
'
' The swapItems event will pass you two

' variables:
' ndx1 and ndx2. Within that code, do wh

' atever is needed
' to swap those two items within your st

' orage area.
'
' Within your code, when you wish to sor

' t your list,
' call the .Sort method passing it the n

' umber of the
' last element and the number of the fir

' st element.
' If you omit the first element's index,

' it will
' default to 1.
'
' Upon completion, the property .RunTime

' will contain
' the number of seconds the routine ran.

'
'
' Sample code that sorts 100 random numb

' ers is listed
' below at the end of the class code.
Public Event isLess _
(ByVal ndx1 As Long, _
ByVal ndx2 As Long, _
Result As Integer)
Public Event SwapItems _
(ByVal ndx1 As Long, _
ByVal ndx2 As Long)
Public runTime As Long

Private Function Partition _

    (ByVal lb As Long, ByVal hb As Long) As Variant
    Dim pivot As Long
    Dim Result As Integer
    Dim lbi As Long
    Dim hbi As Long
    hbi = hb
    lbi = lb

    If hb <= lb Then
        Partition = Null
        Exit Function
    End If


    If hb - lb = 1 Then
        Result = 0
        RaiseEvent isLess(lb, hb, Result)

        If Result > 0 Then
            RaiseEvent SwapItems(lb, hb)
        End If

        Partition = Null
        Exit Function
    End If

    pivot = lbi

    Do While lbi < hbi
        Result = 0
        RaiseEvent isLess(pivot, hbi, Result)

        Do While Result <= 0 And hbi > lbi
            hbi = hbi - 1
            Result = 0
            RaiseEvent isLess(pivot, hbi, Result)
        Loop


        If hbi <> pivot Then
            RaiseEvent SwapItems(lbi, hbi)
            If lbi = pivot Then pivot = hbi
        End If

        Result = 0
        RaiseEvent isLess(lbi, pivot, Result)

        Do While Result < 0 And lbi < hbi
            lbi = lbi + 1
            Result = 0
            RaiseEvent isLess(lbi, pivot, Result)
        Loop


        If lbi <> pivot Then
            RaiseEvent SwapItems(lbi, hbi)
            If pivot = hbi Then pivot = lbi
        End If

    Loop

    Partition = pivot
End Function


Private Sub SortIt _

    (ByVal lastNdx As Long, _
    Optional ByVal firstNdx As Long = 1)
    Dim pivot As Variant

    If firstNdx < lastNdx Then
        pivot = Partition(firstNdx, lastNdx)

        If Not IsNull(pivot) Then
            Call SortIt(pivot - 1, firstNdx)
            Call SortIt(lastNdx, pivot + 1)
        End If

    End If

End Sub


Public Sub Sort _

    (ByVal lastNdx As Long, _
    Optional ByVal firstNdx As Long = 1)
    Dim startTime As Long
    startTime = Timer
    SortIt lastNdx, firstNdx
    runTime = Timer - startTime

    Do While runTime < 0
        runTime = runTime + 86400
    Loop

End Sub


Private Sub Class_Initialize()

    runTime = 0
End Sub

' SAMPLE CODE:
'Private ar(100) As Long
'Private WithEvents arSort As clsQuickSo

' rt
'Private Sub arSort_isLess _
(ByVal ndx1 As Long, ByVal ndx2 As Long, _
Result As Integer)
'
'If ar(ndx1) = ar(ndx2) Then
'Result = 0
'Elseif ar(ndx1) < ar(ndx2) then
'Result = -1
'Else
'Result = 1
'End If
'End Sub
'Private Sub arSort_SwapItems _
(ByVal ndx1 As Long, ByVal ndx2 As Long)
'
'Dim tmp As Long
'tmp = ar(ndx1)
'ar(ndx1) = ar(ndx2)
'ar(ndx2) = tmp
'End Sub
'Randomize
'
'Set arSort = New clsQuickSort
'Dim i As Long
'For i = LBound(ar) To UBound(ar)
'ar(i) = Int(Rnd * 100 + 1)
'Next i
'arSort.Sort UBound(ar), LBound(ar)
'Debug.Print "XXXXXXXXXXXXXXXXXXXXXXXXXX

' XX"
'For i = LBound(ar) To UBound(ar)
'Debug.Print ar(i)
'Next i
'Debug.Print "XXXXXXXXXXXXXXXXXXXXXXXXXX

' XX"
'Debug.Print "Sort time = "; arSort.runT

' ime

---