Заданые числа записать в порядке возростания) - VB

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

есть код программы(вроде как без ошибок) Option Explicit Private Sub Label3_Click() Dim a, b, c, d, p As Single If a > b Then p = a a = b b = p End If If b > c Then p = c c = b b = p End If If c > d Then p = c c = d d = p End If If a > b Then p = a a = b b = p End If If b > c Then p = b b = c c = p End If If a > b Then p = a a = b b = p End If Print a, b, c, d End Sub а вот числа печатать он не хочет(он просто их не видит( где может быть ошибка???

Решение задачи: «Заданые числа записать в порядке возростания)»

textual
                            Листинг программы 
                        

                            Option Base 1 'Счёт начинается не с 0, а с 1
Private Sub Form_Load()
Dim A(5) As Single, i As Integer, j As Integer, temp
For i = 1 To 5
A(i) = InputBox(i) 'Вводим 5 чисел, но в массив 
Next i
For i = 1 To 5
For j = 1 To 4
If A(j) > A(j + 1) Then 'Сортируем по возрастанию
temp = A(j)
A(j) = A(j + 1)
A(j + 1) = temp
End If
Next j
Next i
temp = ""
For i = 1 To 5
temp = temp & A(i) & " "
Next i
MsgBox temp
End Sub
                        

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

11 голосов , оценка 3.909 из 5

Похожие ответы