Visual Basic. Практика. Ищенко В.А - 71 стр.

UptoLike

Составители: 

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. Р а зра бота т ь пол ь зова т ел ь ский ин т ерф ейс, ра спол ож ив н а ф орм е с
      пом ощь ю пан ели эл емен т о в у правлен и я н еобход им ые д л я реа л иза -
      ции проект а объект ы у пра вл ен ия.