Студопедия

Главная страница Случайная страница

Разделы сайта

АвтомобилиАстрономияБиологияГеографияДом и садДругие языкиДругоеИнформатикаИсторияКультураЛитератураЛогикаМатематикаМедицинаМеталлургияМеханикаОбразованиеОхрана трудаПедагогикаПолитикаПравоПсихологияРелигияРиторикаСоциологияСпортСтроительствоТехнологияТуризмФизикаФилософияФинансыХимияЧерчениеЭкологияЭкономикаЭлектроника






  • Порядок выполнения. 14. Установите на форме следующие объекты и измените им свойства:






    14. Установите на форме следующие объекты и измените им свойства:

     

    Объект Свойство Значение
    Командные кнопки Name CmdMas
    Caption Заполнение и вывод массива
      Name CmdSort
      Caption Сортировка массива
      Name CmdMAx
      Caption Определить
      Name CmdSr
      Caption Определить
    Рамки Caption Max и Min значения в массиве
      Caption Среднее значение
    Текстовые окна Name TxtMas
    Name TxtSort
    Name TxtMax
    Name TxtMin
    Name TxtSr

    15.

     
     

    Приведите свою форму в соответствие с образцом

     

    16. В разделе общих объявлений объявите массив Dim Mas(10)

    17. В окне кода процедуры обработки события Click для объекта CmdMas набрать:

    '

    Заполнение случайными числами

    txtMas.Text = " "

    For i = 1 To 10

    mas(i) = Int(Rnd * 100)

    txtMas.Text = txtMas.Text + " " + Str(mas(i))

    Next i

    18. В окне кода процедуры обработки события Click для объекта CmdSort набрать

     

    For i = 1 To 10

    For j = 1 To 9

    If mas(j) > mas(j + 1) Then

    k = mas(j)

    mas(j) = mas(j + 1)

    mas(j + 1) = k

    End If

    Next j

    Next i

    txtSort.Text = " "

    For i = 1 To 10

    txtSort.Text = txtSort.Text + " " + Str(mas(i))

    Next i

    19. В окне кода процедуры обработки события Click для объекта CmdMax набрать

    Max = mas(1)

    For i = 2 To 10

    If mas(i) > Max Then Max = mas(i)

    Next i

    TxtMax.Text = Max

     

    20. Самостоятельно набрать код для нахождения минимального значения в массиве

    21. В окне кода процедуры обработки события Click для объекта CmdSr набрать

     

    s = 0

    For i = 1 To 10

    s = s + mas(i)

    Next i

    TxtSR.Text = s / 10

    22. Проверьте работу программы

    23. Измените программу так, чтобы массив заполнялся буквами русского алфавита, для этого:

    - измените тип массива

    - в окне кода процедуры обработки события Click для объекта CmdMas набрать

     

    txtMas.Text = " "

    For i = 1 To 10

    mas(i) = Chr((Rnd * 32) + 224) ' коды русских букв от 224 до 255

    txtMas.Text = txtMas.Text + " " + mas(i)

    Next i

    - в остальных процедурах уберите обращение к функции Str()

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







    © 2023 :: MyLektsii.ru :: Мои Лекции
    Все материалы представленные на сайте исключительно с целью ознакомления читателями и не преследуют коммерческих целей или нарушение авторских прав.
    Копирование текстов разрешено только с указанием индексируемой ссылки на источник.