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

UptoLike

ВУЗ: 

ВГУ | Воронеж

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

Рубрика: 

64
6. В общей области модуля формы (General) ввести код , описывающий
типы переменных:
Option Explicit
' Задать одномерный массив и проверить, все ли элементы одинаковые
Option Base 1
Dim a() As Integer
Dim M, i, j, flag As Integer
Dim sTemplate As String
7. Записать программный код для объекта кнопка Command2 (Про -
счет ), поместив в событие Click() следующие операторы :
'Просчет
Private Sub Command2_Click()
For i = 1 To M - 1
For j = i + 1 To M
If a(i) = a(j) Then flag = 1: GoTo 30
Next j
Next i
30 If flag = 0 Then Label1.Caption = "Все элементы разные" Else
Label1.Caption = "Есть одинаковые элементы "
End Sub
8. Записать программный код для объекта кнопка Command3 (Выход ),
поместив в событие Click() следующие операторы : 
                                       64




6. В общей обл а ст и м од у л я ф орм ы (General) ввести код , описыва ющий
   т ипы перем ен н ых:

 Option Explicit
 ' Зад а т ь од н ом ерн ый м а ссив и проверить , все л и эл ем ен т ы од ин а ковые
 Option Base 1
 Dim a() As Integer
 Dim M, i, j, flag As Integer
 Dim sTemplate As String

7. Записа т ь програ м м н ый код д л я объект а кн опка Command2 (П ро-
   счет ), пом естив в событие Click() сл ед у ющие опера торы:

 'Про счет
 Private Sub Command2_Click()
 For i = 1 To M - 1
 For j = i + 1 To M
 If a(i) = a(j) Then flag = 1: GoTo 30
 Next j
 Next i
 30 If flag = 0 Then Label1.Caption = "В с еэлем енты разны е" Else
 Label1.Caption = "Е с ть одинаковы еэлем енты "
 End Sub

8. Записа т ь програ м м н ый код д л я объекта кн опка Command3 (Выход ),
   пом ест ив в событие Click() сл ед у ющие опера т оры:

Страницы