12 Билет

1Массив представляет собой набор значений, логически связанных друг с другом, например, число учеников в каждом классе в школе.

Массив позволяет ссылаться на эти связанные значения по одному имени и используя номер, называемый индексом или подиндексом, чтобы отличить элементы друг от друга. Отдельные значения, называются элементами массива. Они представляются непрерывной последовательностью от индекса 0 до наибольшего значения индекса.

В отличие от массива, переменная, содержащая одиночное значение, называется скалярной переменной.

Объявление массива

Переменная массива объявляется так же, как любая другая переменная, с помощью инструкции Dim. За именем переменой следуют одна или более пар скобок, показывающие, что это массив,а не скаляр (переменная, содержащая одно значение).

Для объявления переменной одномерного массива добавьте одну пару скобок после имени переменной. Dim cargoWeights() As Double

Для объявления переменной многомерного массива добавьте одну пару скобок после имени переменной, внутри скобок расположите запятые, разделяющие измерения массива. Dim atmospherePressures(,,,) As Short

Для объявления переменной массива массивов добавьте столько пар скобок после имени переменной, сколько требуется уровней вложенных массивов. Dim inquiriesByYearMonthDay()()() As Byte

2Флажки используются для отображения логических данных, т.е. данных, которые могут принимать только два значения – True или False (Да/Нет, Вкл/Выкл). Когда флажок находится «во включенном состоянии», на нем изображена галочка, если же флажок находится «в выключенном состоянии»,

квадратик будет пустым. Однако имеет место и третье состояние, когда элемент управления «заморожен» и нет возможности изменить его состояние.

и нет возможности изменить его состояние.

Grayed (Недоступен)-2

Vb grayed

Unchecked (Сброшен) - 0

(vb Unchecked )

Grayed (Недоступен ) - 1

(vb Checked )

Пример 4. На форме находятся два флажка, изменяющих вид текста в верхнем поле. Первый флажок отображает текст в поле полужирным шрифтом, а второй – курсивным.

Private Sub Chk1_Click()

Txt1.FontBold = Chk1.Value

End Sub

Private Sub Chk2_Click()

Txt2.FontItalic = Chk2.Value

End Sub

Private Sub Cmd1_Click()

End

End Sub

3 вопрос: Використання режимів малювання (властивість DrawMode).

Свойство DrawMode

В Visual Basic 6.0 свойство DrawMode управляет цветом графических объектов, когда один шаблон рисуется поверх другого. Это свойство поддерживает только монохромные или с низким разрешением (256 цветов или меньше) дисплеи.

В Visual Basic 2008 нет эквивалента свойства DrawMode; оно больше не требуется для современных дисплеев

Билет 12, вопрос 5

Cls

Dim i As Integer, j As Integer, n As Integer, m As Integer

Dim s As Integer, r As Double, max As Double

INPUT "Kolichestvo strok:", n

INPUT "Kolichestvo stolbtsov:", m

Dim a(n, m) As Integer, p(n, m) As Double

Randomize Timer

For i = 0 To n - 1

For j = 0 To m - 1

a(i, j) = Int(Rnd * 10 + 10)

Print a(i, j);

Next j

Print

Next i

For i = 0 To n - 1

For j = 0 To m - 1

s = s + a(i, j)

Next j

Next i

r = s / (m * n)

Print r

For i = 0 To n - 1

For j = 0 To m - 1

p(i, j) = Abs(r - a(i, j))

Print p(i, j);

Next j

Print

Next i

max = p(0, 0)

For i = 0 To n - 1

For j = 0 To m - 1

If p(i, j) > max Then max = p(i, j)

Next j

Next i

Print max

12. Написати фрагмент програми. Таблиця з числовим полем. Переписати в масив перші 10 записів числового поля

rs.MoveLast

rs.MoveFirst

ReDim mas(rs.RecordCount())

Dim i As Integer

rs.MoveFirst

Do Until mas(i) > 9

i = i + 1

mas(i) = rs.Fields(0).Value

Print mas(i)

rs.MoveNext

Loop

13 билет

1 VBA использует тип Date для хранения дат и времени.

При работе с этим типом данных следует иметь ввиду, что VBA-типы Date не являются такими же типами, как в рабочих листах Excel, хотя во многом и схожи с ними. Например, базовой датой для VBA-типа Date является 30 декабря 1899 года, а в Excel - 1 января 1900 года.

VBA-тип Date является типом последовательных дат. VBA использует отрицательные числа для представления дат ранее базовой даты (30 декабря 1899), и положительные - для дат после базовой. Число 0 представляет саму дату 30.12.1899.

В значении последовательной даты целая часть - это общее число дней от базовой даты. Дробная часть (цифра справа от десятичного знака) - эти цифры обозначают время дня как часть дня. Один час - это 1/24 дня, одна минута - 1/1440 дня, секунда - 1/86400 дня.

Можно вычитать одну дату из другой, добавлять к дате или вычитать числа для изменения ее значения. В VBA имеется несколько встроенных процедур для отдельного извлечения года, месяца, дня, часов, минут и секунд переменной типа Date.

Тип данных Variant

Это особый тип данных, который может сохранять любые типы, за исключением типа Object. VBA использует этот тип данных для всех переменных, если только они не объявлены явно.

Данные типа Variant принимают характеристики определенного типа, который они сохраняют в данный момент. Например, если данные типа Variant содержат строковые данные, Variant принимает характеристики типа String. VBA использует для данных типа Variant наиболее компактное представление, возможное для конкретных значений, находящихся в данных.

Несмотря на то, что типы Variant удобны и избавляют от некоторой части работы при написании кода, они требуют большего объема памяти, чем любой другой тип данных, за исключением больших строк. Кроме того, математические операции и операции сравнения над данными типа Variant выполняются медленнее, чем подобные операции над данными любого другого типа. Следует избегать использования переменных Variant.

2 Элемент CommandButton предназначен для инициирования пользователем в программе некоторых действий, которые начинают происходить после щелчка на нем кнопкой мыши. Для его создания в режиме проетирования при двойном щелчке на кнопке формируется процедура отклика нажатия кнопки <имя кнопки>_Click()

Caption Содержит текст, который отображается на командной кнопке.

Font Выдает диалоговое окно Font в котором можно установить имя шрифта заголовка начертание и размер

Picture Содержит имя графического изображения значка которое отображается на командной кнопке, если свойство Style установлено на 1-Graphical

Tablndex Указывает порядок командной кнопки в фокусном порядке

Width Содержит ширину командной кнопки в твипах

4 Добавление новой записи в набор записей предполагает вызов функции-члена AddNew набора записей, задание значений элементов данных полей нового набора записей и вызов функции-члена Update для передачи записи в источник данных.

При вызове функции-члена AddNew набор записей не должен быть открыт только для чтения. Функции-члены CanUpdate и CanAppend позволяют определять эти условия.

При обращении к методу AddNew происходит следующее:

Запись сохраняется в буфере редактирования, так что при отмене операции ее содержимое может быть восстановлено.

Элементы данных полей помечаются флагами, что делает возможным определение наличия в них изменений в дальнейшем. Кроме того, элементы данных полей помечаются как чистые (без изменений), и им присваивается значение Null.

После вызова AddNew в буфере обмена содержится новая пустая запись, которую можно заполнять значениями. Для этого необходимо присвоить значения вручную.

После вызова Delete удаляется выбранный набор записей

Билет 13, вопрос 5

Cls

Dim i As Integer, j As Integer, n As Integer, m As Integer

Dim a As Double

INPUT "Kolichestvo strok:", n

INPUT "Kolichestvo stolbtsov:", m

Dim t(n, m)

Randomize Timer

For i = 0 To n - 1

For j = 0 To m - 1

t(i, j) = Int(Rnd * 10 - 5)

Print t(i, j);

Next j

Print

Next i

Print "Nomera stolbtsov, kotorye soderzhat nenulevye elementy:"

For i = 0 To n - 1

Print i; "strochka:"

For j = 0 To m - 1

If t(i, j) <> 0 Then

Print j;

End If

Next j

Print

Next i

13. Написати фрагмент програми. Таблиця з числовим полем. Знайти число записів із значеннями, кратним 5.

Set rs = db.OpenRecordset("Select *from otl_tab where not id mod 5", dbOpenDynaset)

Set Data1.Recordset = rs

rs.MoveLast

rs.MoveFirst

MsgBox rs.RecordCount()

14 билет

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

CHR$(N)

Возвращает символ по коду ASCII. PRINT CHR$(68). Результат D

ASC(A$)

Возвращает ASCII код первого символа. PRINT ASC(“ADF”). Результат 65.

STR$(N)

Возвращает строковое выражение числа. PRINT STR$(68). Результат 68. PRINT STR$(А68). Результат 0.

VAL(A$)

Переводит строковое выражение в число.

LEN(A$)

Возвращает длину строкового выражения. PRINT LEN("Бейсик"). Результат 6.

INSTR(N,A1$,A2$)

Считывает символ с клавиатуры.

STRING$(N1,A$)

STRING$(N1,N2)Возвращает строку длиной N1 c повторяющегося символа A$ или с кодом N2. PRINT STRING$(26,"-") или PRINT STRING$(26,45). Результат - строка в 26 символов – (тире)

SPACE$(N)

Возвращает строку с N пробелами PRINT SPACE$(5).

LEFT(A$,N)

RIGHT$(A$,N)Возвращают N символов с левого или правого конца строкового выражения.

MID$(A$,N1,N2)

Возвращает часть строкового выражения или замещает часть строковой переменной.

LTRIM$(A$)

RTRIM$(A$)Удаляют начальные и концевые пробелы

INKEY$

Возвращает позицию строкового выражения A2$ в A1$, начиная с N позиции. PRINT INSTR(1,"ABC","B"). Результат 2. PRINT INSTR(3,"ABC","B"). Результат 0.

Билет 14, вопрос 5

Cls

Dim i As Integer, j As Integer, n As Integer, m As Integer

Dim a As Double

INPUT "Kolichestvo strok:", n

INPUT "Kolichestvo stolbtsov:", m

Dim t(n, m)

Randomize Timer

For i = 0 To n - 1

For j = 0 To m - 1

t(i, j) = Int(Rnd * 10 - 5)

Print t(i, j);

Next j

Print

Next i

Print "Nomera stolbtsov, kotorye soderzhat otritsatel'nye elementy:"

For i = 0 To n - 1

Print i; "strochka:"

For j = 0 To m - 1

If t(i, j) < 0 Then

Print j;

End If

Next j

Print

Next i

15 билет

Указать характер подтипов типа Variant позволяют функции VarType или TypeName. Допустимыми числовыми данными являются любые целые или действительные числа в диапазоне от -1,797693134862315E308 до -4,94066E-324 для отрицательных значений и от 4,94066E-324 до 1,797693134862315E308 для положительных значений.

Функция

VarType

Синтаксис

VarType(varname)

Функция служит для определения кодового обозначения типа данных переменной или свойства объекта и возвращает значение типа Integer.

Параметры

Наименование

Описание

VarName

Обязательный. Параметр, типа Variant, содержащий исследуемую переменную.

Замечания

Возвращаемое значение функции зависит от типа переменной:

vbEmpty=0 Значение Empty (не инициализированная переменная)

vbNull=1 Значение Null (действительные данные отсутствуют)

vbInteger=2 Значение типа Integer

vbLong=3 Значение типа Long

vbSingle=4 Число с плавающей точкой обычной точности Single

vbDouble=5 Число с плавающей точкой двойной точности Double

vbCurrency=6 Значение типа Currency

vbDate=7 Значение типа Date

vbString=8 Значение типа String

vbObject=9 Объект Object

vbError=10 Значение ошибки

vbBoolean=11 Значение типа Boolean

vbVariant=12 Значение типа Variant (используется только с массивами значений типа Variant)

vbDataObject=13 Объект доступа к данным

vbDecimal=14 Значение типа Decimal

vbByte=17 Значение типа Byte

vbUserDefinedType=36 Значения типа Variant, содержащие типы, определенные пользователем

vbArray=8192 Массив

Функция TypeName (Visual Basic)

Возвращает значение типа String, содержащее сведения о типе данных переменной.

Public Function TypeName(ByVal VarName As Object) As String

VarName

Обязательный параметр. Переменная типа Object. Если Option Strict в значении Off, то можно передать переменную любого типа данных, за исключением структуры.

Заметки

В следующей таблице приведены значения String, возвращаемые TypeName для различного содержимого VarName.

Билет 15, вопрос 5

Cls

Dim i As Integer, j As Integer, n As Integer, m As Integer

Dim a As Double

INPUT "Kolichestvo strok:", n

INPUT "Kolichestvo stolbtsov:", m

Dim t(n, m)

Randomize Timer

For i = 0 To n - 1

For j = 0 To m - 1

t(i, j) = Int(Rnd * 10 - 5)

Print t(i, j);

Next j

Print

Next i

Print "Nomera strok, kotorye soderzhat polozhytel'nye elementy:"

For j = 0 To m - 1

Print i; "stolbets"

For i = 0 To n - 1

If t(i, j) > 0 Then

Print i;

End If

Next i

Print

Next j

15. Написати фрагмент програми. Таблиця з логічним полем. Встановити true в парних записах і false в непарних.

Set Data1.Recordset = Nothing

rs.MoveFirst

Do Until rs.EOF

i = i + 1

rs.Edit

rs.Fields(4).Value = False

If i Mod 2 Then

rs.Fields(4).Value = True

End If

rs.Update

rs.MoveNext

Loop

Set Data1.Recordset = rs

16 билет

1.У Visual Basic застосовуються три типи циклів, які розпочинаються ключовими словами For, While і Do.

Виконання оператора починається з присвоєння лічильнику початкового значення1, після цього виконується послідовність операторів, яка складає тіло циклу. Next додає до лічильника крок, після чого значення лічильника порівнюється зі значенням2 і, якщо воно не перевищене, повторює виконання послідовності операторів, інакше керування передається операторові, який слідує за Next. Крок може бути як і додатній так і від’ємний.

Конструкція [Step <крок>] може бути відсутня. При цьому за замовчуванням вважається, що лічильник змінює значення на одиницю(крок циклу дорівнює 1). Ім’я лічильника після ключового слова Next також може бути відстунім.

Припускається організація вкладених циклів For…Next(один цикл For…Next розташовується в середині іншого). Лічильник кожного циклу має мати унікальне ім’я.

2 .Label используется для отображения надписей, например заголовков, не имеющих свойство Caption. Надпись не может быть изменена пользователем, но код программы во время ее выполнения может управлять текстом надписи.

Основные свойства элемента управления Label:

Caption Возвращает текст, отображаемый в надписи

Visible

Допустимые значения:

True(поле отображается во время выполнения программы)

False(в противном случае)

Multiline

Допустимые значения:

True(устанавливается многострочный режим ввода текста в поле)

False(однострочный режим)

WordWrap

Допустимые значения:

True(устанавливается режим автоматического переноса)

False(в противном случае)

AutoSize

Допустимые значения:

True(устанавливается режим автоматического изменения размера поля так, чтобы весь вводимый текст помещался в нем)

False(устанавливается фиксированный размер поля)

3 .Элемент управления CommonDialog позволяет максимально приблизить разработку интерфейса своей программы к стилю применяемого в Windows.

Прежде чем начать работу нужно выбрать в меню Project | Components управляющий элемент Microsoft Common Dialog Control 6.0 .

Разместив на своей форме эл. управления CommonDialog, Вы получаете возможность вызова таких окон, как:1.Окно диалога Open; 2.Окно диалога Save As; 3.Окно диалога Color; 4.Окно диалога Font; 5.Окно диалога Print; 6.Запуск WinHelp32.exe;

Окно диалога Open

Для вызова окна диалога Open неоходимо свойство CommonDialog1.Action установить в 1 или же применить метод ShowOpen. Но, прежде чем перед Вами появится полноценное Windows-кое окно Open, необходимо назначить ряд свойств.

1.Установить начальную директорию, которая будет открываться при вызове CommonDialog1-а.

CommonDialog1.InitDir = "C:\My Documents"

Если не установливать этого свойства, то по умолчанию будет открываться директория, которую Вы использовали последний раз.

2.Установить тип файлов, которые будет отображать диалог Open. Для этого объявляем строковую переменную strFileType и присваиваем ей необходимые значения.

Dim strFileType As String

strFileType = "All Files (*.*)|*.*|"

strFileType = StrFileType & " Word Documents ( *.doc )|*.doc |"

strFileType = StrFileType & " Text Files (*.txt)|*.txt|"

Затем свойству Filter, CommonDialog, присваиваем значение переменной strFileType.

CommonDialog1.Filter = strFileType

Устанавливаем фильтр по умолчанию, выбрав для этого значение Word Documents.

CommonDialog1.FilterIndex = 2

При открытии окна диалога Open в текстовом окне "Files of type", у Вас отобразится надпись Word Documents ( *.doc ).

3. И наконец, отображаем окно диалога Open.

CommonDialog1.Action = 1 или же CommonDialog1.ShowOpen

Естественно, раз Вы вызвали окно диалога Open, то его надо использовать по назначению, т.е. выбрать необходимый файл и открыть его. Выбор файла производится так, как и в Windows - e, но для продолжения работы необходимо передать в программу путь и имя выбранного Вами файла. Для этой цели существуют два свойства CommonDialog1 - а :

CommonDialog1.FileTitle - возвращает имя выбранного файла с раширением (например. "Hello.doc");

4 .Властивість Recordset - об'єкт, який містить набір записів, повернених елементом управління Data. З цією властивістю пов'язані властивості і методи, які можна використовувати при роботі з поверненими записами.

Для відбору інформації з набору записів використовуються властивості і методи об'єкту Recordset. Вони дозволяють переміщатися по записах, додавати, модифікувати або видаляти записи.

Властивості Bofaction і Eofaction

Властивості BOF і EOF об'єкту Recordset указують, чи встановлена позиція поточного запису в наборі перед першим записом або після останнього запису. Якщо в наборі записів немає ніяких записів, то і властивість BOF, і властивість EOF - True.

Наприклад, якщо властивість Eofaction елементу управління Data встановлена в vbactionaddnew і елементі управління Data використовується для переміщення нижче останнього запису набору записів, буде автоматично виконаний метод Addnew, що дозволяє вводити новий запис.

Билет 16, вопрос 5

Cls

Dim i As Integer, j As Integer, n As Integer, m As Integer

Dim min As Integer, jmin As Integer

INPUT "Kolichestvo strok:", n

INPUT "Kolichestvo stolbtsov:", m

Dim a(n, m) As Integer

Randomize Timer

For i = 0 To n - 1

For j = 0 To m - 1

a(i, j) = Int(Rnd * 15 - 5)

Print a(i, j);

Next j

Print

Next i

Print

For i = 0 To n - 1

Print i; "strochka:"

min = a(i, 0)

jmin=0

For j = 0 To m - 1

If a(i, j) < min Then

min = a(i, j)

jmin = j

End If

Next j

Print "min="; min; "jmin="; jmin

Next i

16.

Dim a As Double, b As Double, proc As Double

Do Until rs.EOF = True

b = b + 1

If rs.Fields(1) = 5 Then

a = a + 1

End If

rs.MoveNext

Loop

proc = (a / b) * 100

MsgBox "проц -- " & proc

17 билет

Функция IsNumeric (Visual Basic)

Возвращает значение типа Boolean, указывающее, может ли выражение обрабатываться как число.

Public Function IsNumeric(ByVal Expression As Object) As Boolean

Параметры

Expression

Обязательно. Выражение Object.

Заметки

IsNumeric возвращает True если тип данных Expression из Boolean, ByteDecimal, Double, Integer, Long, SByte, Short, Single, UInteger, ULong или UShort, или Object, который содержит один из этих числовых типов. Она также возвращает True в случае, если Expression это Char или String, которые могут быть успешно преобразованы в число.

IsNumeric возвращает False, если Expression это данные типа Date или данные типа Object и оно не содержит числового типа. IsNumeric возвращает False, если Expression является Char или String, которые не могут быть преобразованы в число.

Функция IsDate (Visual Basic)

Возвращает значение Boolean, указывающее, представляет ли выражение допустимое значение Date.

Public Function IsDate(ByVal Expression As Object) As Boolean

Параметры

Expression

Обязательный. Выражение Object.

Заметки

IsDate возвращает True, если Expression имеет тип данных Date или может быть преобразовано в Date; в противном случае оно возвращает False.

Тип данных Date содержит как значение даты, так и значение времени. IsDate возвращает True, если Expression предоставляет допустимую дату, допустимое время или допустимую дату и время.

Пример

В следующем примере используется функция IsDate определения, представляют ли значения нескольких переменных допустимые значения Date.

VB C# C++ F# JScript

Dim firstDate, secondDate As Date

Dim timeOnly, dateAndTime, noDate As String

Dim dateCheck As Boolean

firstDate = CDate("February 12, 1969")

secondDate = #2/12/1969#

timeOnly = "3:45 PM"

dateAndTime = "March 15, 1981 10:22 AM"

noDate = "Hello"

dateCheck = IsDate(firstDate)

dateCheck = IsDate(secondDate)

dateCheck = IsDate(timeOnly)

dateCheck = IsDate(dateAndTime)

dateCheck = IsDate(noDate)

В предыдущем примере IsDate возвращает True для первых четырех вызовов и False для последнего вызова.

Функция IsObject

Описание

Функция проверяет, содержит ли переменная допустимый объект OLE Automation.

Синтаксис

IsObject(Expression)

Параметры

Expression - любая переменная.

Возвращаемые значения

Возвращает значение типа Boolean. Если аргумент имеет тип Object, VarType vbObject типа Variant или содержит определенный пользователем объект, функция возвращает True, в противном случае - False.

Private Sub Form_Load()

Dim A As Integer, B As Object

Debug.Print "Переменная A является объектом? " & _

IsObject(A)

Debug.Print "Переменная B является объектом? " & _

IsObject(B)

End Sub

Билет 17, вопрос 5

Cls

Dim i As Integer, j As Integer, n As Integer, m As Integer

Dim s As Integer, k As Integer

INPUT "Kolichestvo strok:", n

INPUT "Kolichestvo stolbtsov:", m

Dim a(n, m)

Randomize Timer

For i = 0 To n - 1

For j = 0 To m - 1

a(i, j) = Int(Rnd * 10 - 5)

Print a(i, j);

Next j

Print

Next i

For i = 0 To n - 1

For j = 0 To m - 1

If a(i, j) > 0 Then

s = s + a(i, j)

k = k + 1

End If

Next j

Next i

If s = 0 Then

Print "Polozhutel'nyh elementov v matritse net."

Else

Print s / k

End If

17. Написати фрагмент програми. Таблиця з текстовим полем. Знайти найдовше значення в цьому полі

Dim str As String

str = ""

Set Data1.Recordset = Nothing

rs.MoveFirst

Do Until rs.EOF

If Len(rs.Fields(2).Value) > Len(str) Then str = rs.Fields(2).Value

rs.MoveNext

Loop

MsgBox str

18 билет

Логическое выражение – это одно или несколько выражений отношения, соединенных между собой логическими операциями:

Операции Название

NOT Отрицание

AND Конъюнкция (логическое "И")

OR Дизъюнкция (логическое "ИЛИ")

XOR Исключающее "или"

EQV Эквивалентность

IMP Импликация

IF X<>0 AND Y>X THEN F=X^2 + Y

Логические операции

Любые математические или логические операции могут быть выражены на языке двоичной логики. Математические операции выполняются в двоичной системе — это означает, что если результат превышает 1, он снова сбрасывается в 0, а к следующему по порядку биту прибавляется 1. Поскольку компьютер работает с нулями и единицами, он может использовать их для представления условий «истина» и «ложь». Двоичный ноль обозначает условие «ложь», а 1 — условие «истина». На этом принципе построена логическая алгебра.

Логическая операция АND

Логическая операция АND используется для логического объединения (конъюнкции) двух выражений. Проще говоря, программа проверяет, что оба выражения истинны одновременно.

Логическая операция АND работает очень просто. Если оба выражения истинны, результат также является истинным. Если хотя бы одно из выражений ложно, результат тоже будет ложным.

Берем два числа 217 и 106, переводим их в двоичную систему счисления и объединяем их логической операцией АND.

Применение логической операции АND для двух чисел 217 и 106

207 1 1 0 1 1 0 0 1

106 0 1 1 0 1 0 1 0

207 АND 106 (72) 0 1 0 0 1 0 0 0

Попробуйте выполнить операцию АND для других пар чисел:

? 163 АND 8

? 55 АND 12

? 37 АND 7

? 72 АND 255

? 255 АND 0 Результаты должны быть равны 0, 4, 5, 72 и 0.

Логическая операция ОR.

Если хотя бы одно из выражений истинно, результат будет истинным. Если оба выражения ложны, результат будет ложным. Ниже приведены различные комбинации выражений и результаты операции ОR.

Два числа можно объединить логической операцией ОR, как это делалось для операции АND. Пример:

Применение логической операции ОR для двух чисел 73 и 232

73 0 1 0 0 1 0 0 1

232 1 1 1 0 1 0 0 0

73 OR 232 (233) 1 1 1 0 1 0 0 1

Выполните операцию OR над следующими парами чисел

? 55 OR 12

? 37 ОR 7

? 72 ОR 255

? 255 ОR 0 Результаты должны быть равны 63, 39, 255 и 255.

Правила выполнения двухместных логических операций:

Х Y NOT X X AND Y X OR Y

И И Л И И

И Л Л Л И

Л И И Л И

Л Л И Л Л

Операции расположены в строке в порядке убывания их приоритета.

В таблице истинное значение обозначено буквой И, ложное — буквой Л.

Приоритетность операций:

• арифметические операции;

• операции отношения;

• логические операции.

Приведем пример логического выражения:

К+Х > М AND Y% < = 1

Это выражение истинно, если сумма значений переменных К и Х больше значения М и в то же время значение целой переменной Y% меньше единицы или равно ей. Если же хотя бы одно из этих двух условий не выполняется, то логическое выражение принимает значение "ложь".

4.1.2. Оператор IF-THEN-ELSE-условный оператор

Оператор IF…THEN…ELSE представляет собой простейшую, но и самую распространенную форму проверки условий в Бейсике. Этот оператор имеет следующий синтаксис:

Оператор IF-THEN-ELSE (если-то-иначе) обеспечивает принятие двоичного решения.

Формат оператора IF

IF условие1 THEN

[блок операторов 1]

[ELSEIF условие2 THEN

[блок операторов 2] ]

[ELSE

[блок операторов n]]

END IF

где

условие1 - Любое выражение Бейсика, которое может быть оценено,

условие2 - как истинное(не ноль) или ложное(ноль)

блок операторов 1 один или несколько операторов в одной

блок операторов n или нескольких строках

Другой формат оператора IF:

IF условие THEN операторы 1 [ELSE операторы 2]

где

условие Любое выражение Бейсика, которое может быть оценено, как истинное (не ноль) или ложное (ноль)

операторы Один или несколько операторов, разделенных двоеточием.

Пример 1. Вычислить

INPUT "Введите Х,А->";X, A

IF X > 0 AND A <= 0 THEN

Y = LOG(X-A)/LOG(10)

ELSE

Y = A * EXP(X)

END IF

PRINT "Y="; Y

END

Билет 18, вопрос 5

Cls

Dim i As Integer, j As Integer, n As Integer, m As Integer

Dim max As Integer

INPUT "Kolichestvo strok:", n

INPUT "Kolichestvo stolbtsov:", m

Dim a(n, m), s(m) As Integer

Randomize Timer

For i = 0 To n - 1

For j = 0 To m - 1

a(i, j) = Int(Rnd * 10)

Print a(i, j);

Next j

Print

Next i

Print

For i = 0 To n - 1

s(i) = 0

For j = 0 To m - 1

s(i) = s(i) + a(i, j)

Next j

Print s(i);

Next i

max = s(0)

For i = 0 To n - 1

If s(i) > max Then max = s(i)

Next i

Print

Print "max="; max

18. Написати фрагмент програми. Таблиця з текстовим полем. Видалити останній символ в кожному записі цього поля.

Set Data1.Recordset = Nothing

rs.MoveFirst

Do Until rs.EOF

rs.Edit

rs.Fields(2).Value = Left$(rs.Fields(2).Value, Len(rs.Fields(2).Value) - 1)

rs.Update

rs.MoveNext

Loop

Set Data1.Recordset = rs

отображения логических данных, т.е. данных, которые могут принимать только

Билет 19