ВУЗ:
Составители:
Рубрика:
71
Private Sub Command7_Click()
If Text1.Text = "" Then GoTo 10
' Задание случайного массива заданной величины
razm1 = CInt(Text1.Text)
ReDim a(razm1) As Long
For i = 1 To razm1
a(i) = Round(Rnd() * 10)
Next i
For i = 1 To razm1
List1.AddItem a(i)
Next i
10 End Sub
Private Sub Text1_KeyPress(KeyAscii As Integer)
sTemplate =
"qwertyuiop[]asdfghjkl;'zxcvbnm,/QWERTYUIOP{}ASDFGHJKL:
ZXCVBNM<>?-
=\_+|`~!@#$%^&*()йцукенгшщзхъфывапролджэячсмитьбюЙЦУ
КЕНГШЩЗХЪФЫВАПРОЛДЖЭЯЧСМИТЬБЮ ,№ * "
If InStr(1, sTemplate, Chr(KeyAscii)) > 0 Then KeyAscii = 0
End Sub
10. Проверить корректность работы приложения и, при необходимости,
исправить ошибки.
11. Сохранить в своей папке форму и проект соответственно под имена-
ми Работа с массивом .frm и Работа с массивом .Vbp.
Задание 19. Разработка VB – приложения “Удаления элементов,
расположенных между двумя максимальными по значению эле-
ментами массива А( М )”
Дан одномерный массив A(М ). Составить программу поиска двух
максимальных значений элементов исходного массива с последующим
удалением элементов, расположенных между двумя найденными элемен -
тами.
Порядок выполнения задания
1. Запустить приложение Visual Basic и создать новый проект “Удале-
ние элементов в массиве”.
2. Разработать пользовательский интерфейс, расположив на форме с
помощью панели элементов управления необходимые для реализа -
ции проекта объекты управления.
71 Private Sub Command7_Click() If Text1.Text = "" Then GoTo 10 ' Зад а н ие сл у ча йн ого м а ссива за д а н н ой вел ичин ы razm1 = CInt(Text1.Text) ReDim a(razm1) As Long For i = 1 To razm1 a(i) = Round(Rnd() * 10) Next i For i = 1 To razm1 List1.AddItem a(i) Next i 10 End Sub Private Sub Text1_KeyPress(KeyAscii As Integer) sTemplate = "qwertyuiop[]asdfghjkl;'zxcvbnm,/QWERTYUIOP{}ASDFGHJKL: ZXCVBNM<>?- =\_+|`~!@#$%^&*()й цу кенгш щзх ъф ы вапролджэяч с м ить бю Й Ц У К Е Н Г Ш Щ ЗХ Ъ Ф Ы В АП Р О Л Д Ж Э Я ЧС М И Т Ь Б Ю ,№ * " If InStr(1, sTemplate, Chr(KeyAscii)) > 0 Then KeyAscii = 0 End Sub 10. П роверит ь коррект н ост ь ра бот ы прил ож ен ия и, при н еобход им ост и, испра вит ь ошибки. 11. С охра н ит ь в своей па пке ф орм у и проект соот вет ст вен н о под им ен а - м и Работас м ас с ивом .frm и Работас м ас с ивом .Vbp. Задание19. РазработкаVB – приложения “У даления элем ентов, рас положенны х м ежду дву м я м акс им аль ны м и по знач ению эле- м ентам и м ас с иваА(М )” Д а н од н ом ерн ый м а ссив A(М ). С ост а вит ь програ м м у поиска д ву х м а ксим а л ь н ых зн а чен ий эл ем ен тов исход н ого м а ссива с посл ед у ющим у д а л ен ием эл ем ен тов, ра спол ож ен н ых м еж д у д ву м я н а йд ен н ым и эл ем ен - т а м и. П ор ядокв ы п ол н е н ия задан ия 1. Запу ст ит ь прил ож ен ие Visual Basic и созд а т ь н овый проект “У д а л е- н ие эл ем ен тов в м а ссиве”. 2. Р а зра бота т ь пол ь зова т ел ь ский ин т ерф ейс, ра спол ож ив н а ф орм е с пом ощь ю пан ели эл емен т о в у правлен и я н еобход им ые д л я реа л иза - ции проект а объект ы у пра вл ен ия.
Страницы
- « первая
- ‹ предыдущая
- …
- 69
- 70
- 71
- 72
- 73
- …
- следующая ›
- последняя »