Ребята, как ввести кол-во эллементов одномерного массива с клавиатуры? - VB

Узнай цену своей работы

Формулировка задачи:

и как его ещё отсортировать по возрастанию??

Решение задачи: «Ребята, как ввести кол-во эллементов одномерного массива с клавиатуры?»

textual
Листинг программы
Option Explicit
Private Sub Command1_Click()
    Dim N As Long, I As Long, A() As Single
    Randomize
    N = Val(InputBox("Введите кол-во элементов", , "10")) - 1
    If N < 0 Then Exit Sub
    ReDim A(N)
    Print "Исходный массив:"
    For I = 0 To UBound(A)
        A(I) = Fix(Rnd * 100)
        Print A(I);
    Next
    qSortSng A, 0, UBound(A)
    Print
    Print "Отсортированный массив:"
    For I = 0 To UBound(A)
        Print A(I);
    Next
End Sub
Private Sub qSortSng(Ar() As Single, ByVal low As Long, ByVal high As Long)
    Dim I As Long, j As Long, m As Single, wsp As Single
    I = low: j = high: m = Ar(CInt((I + j) / 2))
    Do Until I > j: Do While Ar(I) < m: I = I + 1: Loop: Do While Ar(j) > m: j = j - 1: Loop
        If (I <= j) Then wsp = Ar(I): Ar(I) = Ar(j): Ar(j) = wsp: I = I + 1: j = j - 1
    Loop
    If low < j Then qSortSng Ar, low, j
    If I < high Then qSortSng Ar, I, high
End Sub

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

10   голосов , оценка 4.3 из 5
Похожие ответы