Отсортировать по возростанию элементы массива удовлетворяющие условию 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д