Visual Basic. Теория. Нагина Е.К - 68 стр.

UptoLike

ВУЗ: 

ВГУ | Воронеж

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

Рубрика: 

68
For i = 1 To M
a(i) = InputBox("введите " & i & " элемент", "Ввод элемента ", "0")
Next i
10 End Sub
Private Sub Text1_Change()
M = CInt(Text1.Text)
End Sub
Private Sub Text1_KeyPress(KeyAscii As Integer)
sTemplate = "qwer-
tyuiop[]asdfghjkl;'zxcvbnm,/QWERTYUIOP{}ASDFGHJKL:ZXCVBNM<>?-
=\_+|`~!@#$%^&*()йцукенгшщзхъфывапролджэячсмитьбюЙЦУКЕНГШЩ
ЗХЪФЫВАПРОЛДЖЭЯЧСМИТЬБЮ ,№ * "
If InStr(1, sTemplate, Chr(KeyAscii)) > 0 Then KeyAscii = 0
End Sub
Рис. 5. Форма для ввода элементов массива и вывода преобразованного
массива
Задача 6. Даны два массива X и Y. Составит программу преобразо -
вания массива Y путем умножения каждого элемента на среднее арифме-
тическое элементов этого массива. Затем включить в конец массива Y эле -
менты массива X, расположенные между максимальным и минимальным
элементами массива X.. Для ввода элементов массивов X и Y и вывода
преобразованного массива Y использовать форму, приведенную на рис. 6.
Ниже приведена программа на языке Visual Basic для решения этой
задачи.
Option Explicit 
                                      68
For i = 1 To M
a(i) = InputBox("введите " & i & " элемент", "В во д элемента", "0")
Next i
10 End Sub

Private Sub Text1_Change()
M = CInt(Text1.Text)
End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)
sTemplate = "qwer-
tyuiop[]asdfghjkl;'zxcvbnm,/QWERTYUIOP{}ASDFGHJKL:ZXCVBNM<>?-
=\_+|`~!@#$%^&*()й ц укенгш щ зхъфы вапро лдж эячсмитьбю Й Ц У К Е Н ГШ Щ
ЗХ Ъ Ф Ы В А П РО Л Д Ж Э Я Ч СМ И Т ЬБЮ ,№ * "
If InStr(1, sTemplate, Chr(KeyAscii)) > 0 Then KeyAscii = 0
End Sub




  Рис. 5. Ф о рмадля вво даэлементо вмассиваи вы во дапрео бразо ванно г
                                                                       о
                                 массива

      З адача 6. Д аны два массива X и Y. Со ставитпро г   раммупрео бразо -
вания массива Y путем умно ж ения каж до го элемента на среднее арифме-
тическо е элементо вэто го массива. Затем вклю чить в ко нец массиваY эле-
менты массива X, распо ло ж енны е меж думаксимальны м и м инимальны м
элементам и массива X.. Д ля вво да элементо в массиво в X и Y и вы во да
прео бразо ванно го массива Y испо льзо вать фо рму, приведенную нарис. 6.
      Н иж е приведена про грамма на язы ке Visual Basic для реш ения это й
задачи.
Option Explicit

Страницы