• Home
 · 
• Files/File Controls/Input/Output
 · 
• This code randomly generates numbers from where the user wants and sorts them useing the exchange s

This code randomly generates numbers from where the user wants and sorts them useing the exchange s

This code randomly generates numbers from where the user wants and sorts them useing the exchange sort

Rate This code randomly generates numbers from where the user wants and sorts them useing the exchange s

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

bgch = InputBox("what letter do you want to start at", "open")
edch = InputBox("what letter do you want to end at", "open")
chnum = InputBox("How many letters you want", "open", "26")
chrange = Asc(edch) - Asc(bgch) + 1
For x = 1 To chnum
    arch(x) = Asc(Int(Rnd * chrange)) + Asc(bgch)
    lstunsorted.AddItem Chr(arch(x))
Next x
End Sub

Private Sub mnugenerate2_Click()
bgch = InputBox("what letter do you want to start at", "open")
edch = InputBox("what letter do you want to end at", "open")
chnum = InputBox("How many letters you want", "open", "26")
chrange = Asc(edch) - Asc(bgch) + 1
For x = 1 To chnum
    arch(x) = Asc(Int(Rnd * chrange)) + Asc(bgch)
    lstunsorted.AddItem Chr(arch(x))
Next
End Sub

Private Sub mnugenerate27_Click()
str = InputBox("what is the min number", "open", "1")
fin = InputBox("what is the max number", "open", "1000")
num = InputBox("how many numbers you want", "open", "1000")
range = fin - str + 1
For x = 1 To num
    arint(x) = Int(Rnd * range) + str
    lstunsorted.AddItem arint(x)
Next x
End Sub

Private Sub mnugenerate3_Click()

bgch = InputBox("what letter do you want to start at", "open")
edch = InputBox("what letter do you want to end at", "open")
chnum = InputBox("How many letters you want", "open", "26")
chrange = Asc(edch) - Asc(bgch) + 1
For x = 1 To chnum
    arch(x) = Asc(Int(Rnd * chrange)) + Asc(bgch)
    lstunsorted.AddItem Chr(arch(x))
Next
End Sub

Private Sub mnugenerate4_Click()

str = InputBox("what is the min number", "open", "1")
fin = InputBox("what is the max number", "open", "1000")
num = InputBox("how many numbers you want", "open", "1000")
range = fin - str + 1
For x = 1 To num
    arint(x) = Int(Rnd * range) + str
    lstunsorted.AddItem arint(x)
Next x
End Sub

Private Sub mnugenerate5_Click()

str = InputBox("what is the min number", "open", "1")
fin = InputBox("what is the max number", "open", "1000")
num = InputBox("how many numbers you want", "open", "1000")
range = fin - str + 1
For x = 1 To num
    arint(x) = Int(Rnd * range) + str
    lstunsorted.AddItem arint(x)
Next x
End Sub

Private Sub mnugenerate6_Click()

str = InputBox("what is the min number", "open", "1")
fin = InputBox("what is the max number", "open", "1000")
num = InputBox("how many numbers you want", "open", "1000")
range = fin - str + 1
For x = 1 To num
    arint(x) = Int(Rnd * range) + str
    lstunsorted.AddItem arint(x)
Next x
End Sub

Sub exchangesortint()

    For front = 1 To range - 1
        For back = front + 1 To range
            If arint(front) > arint(back) Then
                temp = arint(front)
                arint(front) = arint(back)
                arint(back) = temp
            End If
        Next back
    Next front
For x = 1 To range
    lstsorted.AddItem$ (arint(x))
Next x
End Sub

Sub combsortint()

Dim j As Integer
Const shrink = 1.3
Dim gap As Single
Dim swapped As Integer
gap = range
Do
    gap = Int(gap / shrink)
    If gap < 1 Then gap = 1
        swapped = False
    For j = 1 To range - gap
        If arint(j) > arint(j + gap) Then
            '-swap
            temp = arint(j)
            arint(j) = arint(j + gap)
            arint(j + gap) = temp
            swapped = True
        End If
    Next j
Loop Until Not swapped
For x = 1 To range
    lstsorted.AddItem (arint(x))
Next x
End Sub

Sub bublesortint()
Dim j As Integer
Dim i As Integer
Dim swapped As Integer
Do
    swapped = False
    For j = 1 To range - 1
        If arint(j) > arint(j + 1) Then
            temp = arint(j)
            arint(j) = arint(j + 1)
            arint(j + 1) = temp
            swapped = True
            End If
        Next j
    range = range - 1
Loop Until Not swapped
For x = 1 To range
    lstsorted.AddItem (arint(j))
Next x
End Sub

Private Sub mnusort_Click()
jon = InputBox("which way would you like to sort", "open", "1")
If jon = 1 Then
    combsortint
End If
If jon = 2 Then
    exchangesortint
End If
If jon = 3 Then
    bublesortint
End If
End Sub

Private Sub mnusort5_Click()

For front = 1 To chrange - 1
        For back = front + 1 To chrange
            If arint(front) > arint(back) Then
                temp = arint(front)
                arint(front) = arint(back)
                arint(back) = temp
            End If
        Next back
    Next front
For x = 1 To chrange
    lstsorted.AddItem$ Chr(arint(x))
Next x
End Sub