Отсортировать по возростанию элементы массива удовлетворяющие условию a(i)>-10 - VB

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

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

помогите с сортировкой))

Решение задачи: «Отсортировать по возростанию элементы массива удовлетворяющие условию a(i)>-10»

textual
Листинг программы
Dim m, n As Integer
Dim i, j As Integer
Dim k As Integer
Dim Mas() As Integer
Dim a() As Integer
Dim b() As Integer
Dim s As Byte
 
Private Sub Ran(n As Integer)
Randomize
ReDim Mas(n)
For i = 1 To n Step 1
Mas(i) = Rnd() * 10 - 20 * Rnd()
Label3.Caption = Label3.Caption + " " + CStr(Mas(i))
Next
End Sub
 
Private Sub Vvod(n As Integer)
ReDim Mas(n)
 
For i = 1 To n Step 1
 
Mas(i) = Val(InputBox("Введите элементы массива", "Lr1"))
Label3.Caption = Label3.Caption & " " & CStr(Mas(i))
Next
End Sub
 
Private Sub Command1_Click()
 
n = Text1.Text
s = 0
ReDim Mas(n)
ReDim a(n)
 
If (Option2.Value = True) Then Call Ran(n)
If (Option1.Value = True) Then Call Vvod(n)
 
For i = 1 To n Step 1
    If Mas(i) > -10 Then
        s = s + 1
        a(s) = Mas(i)
        Label5.Caption = Label5.Caption & " " & CStr(a(s))
    End If
Next
Call sort(a, s)
End Sub
 
Private Sub Command2_Click()
Text1.Text = ""
Label3.Caption = ""
Label5.Caption = ""
Label7.Caption = ""
End Sub
 
 
Private Sub sort(b, n)
For i = 1 To n
    For j = 1 To n - i
        If b(j) > b(j + 1) Then
            k = b(j)
            b(j) = b(j + 1)
            b(j + 1) = k
        End If
    Next j
Next i
 
'Зачем следующий код не понял
's = 1
'If b(i) > 10 Then
'b(s) = Mas(i)
's = s + 1
'End If
 
For i = 1 To n Step 1
    Label7.Caption = Label7.Caption & " " & CStr(b(i))
Next i
End Sub

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


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

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

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