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

UptoLike

ВУЗ: 

ВГУ | Воронеж

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

Рубрика: 

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


Private Sub Text2_Change()
N = CInt(Text2.Text)
End Sub

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




           Рис.1. Ф о рмадля вво даэлементо вдвумерно го массива
                            и вы во дарезультата

       З адача 2. Д ан о дно мерны й массив A(M). Со ставить про г   раммупро -
верки на наличие хо тя бы о дно г    о по вто ряю щ его ся элемента. П о сле про -
верки вы дать в фо рме со о тветствую щ ее со о бщ ение. Д ля вво да элементо в
исхо дно го массива и вы во да со о тветствую щ ег   о со о бщ ения в фо рме ис-
по льзо вать фо рму, приведенную нарис.2.
       Н иж е приведена про г  рамма на язы ке Visual Basic для реш ения это й
задачи.
Option Explicit
' Задать о дно мерны й массиви про верить все лиэлементы о динако вы е
Option Base 1
Dim a() As Integer
Dim M, i, j, flag As Integer
Dim sTemplate As String

Страницы