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

UptoLike

ВУЗ: 

ВГУ | Воронеж

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

Рубрика: 

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




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

      З адача 5. Д ан о дно мерны й массив. Со ставить про грамму по иска
двух максимальны х элементо в по следо вательно сти A с по следую щ им уда-
лением элементо в, распо ло ж енны х меж ду двумя максимальны м и. Д ля
вво да элементо в исхо дно го массива и вы во дапрео бразо ванно го массива в
фо рмуиспо льзо вать фо рму, приведенную нарис.5.

Страницы