ВУЗ:
Составители:
Рубрика:
72
3. Возможный вариант разработанной формы пользователя приведен
ниже.
4. Для определения свойств элементов управления и обрабатываемых
событий составить таблицу “Объекты, свойства и события элементов
управления”, аналогично предыдущим заданиям.
5. Задать дополнительные свойства форме и объектам управления, рас-
положенным на ней (аналогично табл . 2).
6. В программном коде предусмотреть процедуру формирования эле-
ментов массива, выбранных случайным образом , с помощью датчика
случайных чисел в числовом диапазоне от 1 до 10 или процедуру
ввода данных через стандартное окно ввода информации InputBox.
7. Проанализировать программный код , записанный в процедурах, при -
веденных ниже, и прокомментировать суть описываемых в них дей-
ствий.
Option Explicit
Option Base 1
' Ввести элементы массива, найти 2 максимальных и удалить эле-
менты между ними
Dim a() As Long
Dim i, c, j As Integer
Dim M, max, l, k, kol As Integer
Dim sTemplate As String
Private Sub Command1_Click()
List1.Clear
End Sub
Private Sub Command2_Click()
For i = 1 To M
List1.AddItem a(i)
Next i
End Sub
72 3. Возм ож н ый ва риа н т ра зра бот а н н ой ф орм ы пол ь зова т ел я привед ен н иж е. 4. Д л я опред ел ен ия свойст в эл ем ен т ов у пра вл ен ия и обра ба т ыва ем ых событий сост а вит ь та бл ицу “О бъект ы, свойст ва и событ ия эл ем ен тов у пра вл ен ия”, а н а л огичн о пред ыд у щим за д а н иям . 5. Зад а т ь д опол н ит ел ь н ые свойст ва ф орм е и объект а м у пра вл ен ия, ра с- пол ож ен н ым н а н ей (а н а л огичн о та бл . 2). 6. В програ м м н ом код е пред у см от рет ь процед у ру ф орм ирова н ия эл е- м ен тов м а ссива , выбра н н ых сл у ча йн ым обра зом , с пом ощь ю д а т чика сл у ча йн ых чисел в числ овом д иа па зон е от 1 д о 10 ил и процед у ру ввод а д а н н ыхчерезст а н д а рт н ое окн о ввод а ин ф орм а ции InputBox. 7. П роа н а л изирова т ь програ м м н ый код , за писа н н ый в процед у ра х, при- вед ен н ых н иж е, и проком м ен тирова т ь су т ь описыва ем ых в н их д ей- ст вий. Option Explicit Option Base 1 ' Ввест и элемен т ы масси ва, н айт и 2 мак си мал ьн ы хи у дали т ь эл е- мен т ы меж ду н и ми Dim a() As Long Dim i, c, j As Integer Dim M, max, l, k, kol As Integer Dim sTemplate As String Private Sub Command1_Click() List1.Clear End Sub Private Sub Command2_Click() For i = 1 To M List1.AddItem a(i) Next i End Sub
Страницы
- « первая
- ‹ предыдущая
- …
- 70
- 71
- 72
- 73
- 74
- …
- следующая ›
- последняя »