Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Центр помощи > [VB6] Программирование в Visual Basic.Массивы. Опратор ц

Автор: Kapustawka 17.2.2010, 15:54

помогите пожалуйста составить программу в Visual Basic . Задание звучит так: Даны целые a1, ..., a5. Если последовательность a1, ..., a5 упорядочена по неубыванию (т.е. если a1<=a2<=...a5), то оставить ее без изменения. Иначе получить после¬довательность a5, ..., a1.
Для ввода исходных значений использовать 5 текстовых окон textBox на форме. Вычисле-ния производить после ввода 5 значения по нажатию на кнопку Enter (Ввод) клавиатуры. Отсортированную последовательность вывести в одну строку, отобразив с помощью элемента textbox на форме. Для выполнения расчетов использовать одномерныt массивы для хранения целых чисел. Циклический алгоритм реализовать с помощью оператора цикла FOR.

нужен соответственно код программы . заранее спасибо!

Автор: Akina 17.2.2010, 16:00

Для домашних заданий, курсовых, существует "Центр Помощи".

Тема перенесена!

Автор: kapbepucm 23.2.2010, 09:52

Код

Private Sub TextBox5_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
  If KeyCode = 13 Then
    Dim MyArray(1 To 5) As Long
    Dim I As Long
    For I = 1 To 5
      MyArray(I) = Form1.Controls.Item("TextBox" & CStr(I)).Value
    Next I
    Dim Flag As Boolean
    Flag = False
    For I = 2 To 5
      If MyArray(I - 1) > MyArray(I) Then
        Flag = True
      Else
      End If
    Next I
    For I = 1 To 5
      Form1.Controls.Item("TextBox" & CStr(I)).Value = ""
    Next I
    If Flag Then
      For I = 5 To 1 Step -1
        TextBox1.Value = TextBox1.Value & " " & CStr(MyArray(I))
      Next I
    Else
      For I = 1 To 5
        TextBox1.Value = TextBox1.Value & " " & CStr(MyArray(I))
      Next I
    End If
  End If
End Sub

Числа при вводе по заданию уже должны быть отсортированы.