48801 (588613), страница 3

Просмтор этого файла доступен только зарегистрированным пользователям. Но у нас супер быстрая регистрация: достаточно только электронной почты!

Текст из файла (страница 3)

Ключевые слова IF и End if имеют тот же смысл, что и в конструкции If...Then. Если заданное в конструкции условие не выполняется (результат проверки равен False), и конструкция содержит ключевое слово Else, Visual Basic выполнит последовательность конструкций, расположенных следом за Else. После чего управление перейдет к конструкции, следующей после End If.

Например:

If x >= 0 Then

Label1.Caption = "Значение больше или равно 0"

Else

Labell.Caption = "Значение меньше 0"

End If

Команда if может проверить только одно условие. Если вам потребуется осуществить переход управления в зависимости от результатов проверки нескольких условий, то такая возможность существует. Дополнительное условие можно задать с помощью оператора Elseif. Оно будет анализироваться только в том случае, если предыдущее условие ложно. Например:

If x > 0 Then

Label1.Caption = "Значение положительное"

Elself x = 0 Then

Label1.Caption = "Значение равно 0"

Else

Labell.Caption = "Значение отрицательное"

End If

Конструкция Select case позволяет обрабатывать в программе несколько условий и аналогична блоку конструкций if.. .Then.. .Else. Эта конструкция состоит из анализируемого выражения и набора операторов case на каждое возможное значение выражения. Работает эта конструкция следующим образом. Сначала Visual Basic вычисляет значение заданного в конструкции выражения. Затем полученное значение сравнивается со значениями, задаваемыми в операторах case конструкции. Если найдено искомое значение, выполняются команды, приписанные данному оператору case. После завершения выполнения конструкций управление будет передано конструкции, следующей за ключевым словом End Select.

Синтаксис конструкции Select Case следующий:

Select Case сравниваемоеЗначение

CASE значение1

конструкция1

CASE значение2

конструкция2

. . .

End Select

В начале конструкции расположены ключевые слова select case, указывающие, что расположенный рядом с ними параметр сравниваемоеЗначение будет проверяться на несколько значений. Далее следуют группы команд. начинающиеся с ключевого слова Case. Если параметр сравниваемоеЗначение равен значению, указанному в текущем операторе case, то будут выполняться команды, расположенные между этим и следующим ключевым словом case. Select Case может выполнить не более одной из содержащихся в ней последовательностей конструкций. После того как одно из условий оказалось равно True, и была выполнена соответствующая последовательность конструкций, Select Case завершит свою работу. Остальные условия проверяться не будут.

В программах Visual Basic для выполнения повторяющихся действий используются циклы. Они бывают следующих типов:

• For...Next

• For Each...Next

• Do. . . Loop

Конструкция For...Next выполняет последовательность команд определенное число раз. Такую конструкцию называют циклом, а выполняемые ею программные коды — телом цикла.

Синтаксис конструкции For.. .Next следующий:

For счетчик = начЗначение То конЗначение [Step шаг]

конструкции

Next[счетчик]

Первый аргумент конструкции — счетчик — определяет имя переменной, которая будет "считать" количество выполнении цикла. Параметр начЗначение указывает числовое значение, которое присваивается переменной-счетчику перед первым проходом цикла. Цикл выполняется до тех пор, пока значение счетчика не превысит конечного значения, указанного после ключевого слова то. После каждого прохода цикла значение счетчика изменяется на величину шаг, указанную за ключевым словом step. Ключевое слово Next обозначает конец тела цикла и является обязательным. Перед каждым проходом цикла Visual Basic сравнивает значения счетчика и аргумента конЗначение. Если значение счетчика не превышает установленного значения конЗначение, выполняются конструкции тела цикла. В противном случае управление переходит к следующей за Next конструкции. Например:

For nCountVar = 1 То 10 Step 2

nNextWeek(nCountVar) = nCountVar * 2

Next

Здесь цикл выполняется пять раз при значениях счетчика nCountVar 1, 3, 5, 7 и 9.

Шаг изменения счетчика может быть отрицательным. Например:

For nCounter = 100 То 1 Step -10

nDecades(nCounter) = nCounter *2

Next

В этом случае цикл будет выполняться до тех пор, пока nCountVar больше 1. Если значение шага цикла отрицательно, то начальное значение счетчика должно быть больше конечного. Ключевое слово step можно опустить. В этом случае значение шага по умолчанию принимается равным 1.

Возможны ситуации, при которых выполнение цикла невозможно или, наоборот, его выполнение становится бесконечным. Например:

• Невыполняемый цикл: начальное значение счетчика больше конечного при положительном шаге цикла

For nCounter=100 To 1

nDecades (nCounter) = nCounter

Next

• Бесконечный цикл: значение счетчика изменяется в теле цикла и никогда не превысит 10

For nCounter = 1 То 10

nCounter = 1

Next

Цикл с использованием конструкции For Each...Next похож на цикл For.. .Next, но используется для обработки всех элементов некоторого набора объектов или массива. Его особенно удобно использовать в том случае, когда количество обрабатываемых элементов не известно.

Синтаксис конструкции For Each.. .Next следующий:

For Each элемент In группа

конструкции

Next элемент

При использовании конструкции For Each.. .Next необходимо иметь в виду, что для набора объектов параметр элемент может быть только переменной типа Variant, общей переменной типа Object или объектом, перечисленным в Object Browser. Для массивов параметр элемент может быть только переменной типа Variant.

Цикл, задаваемый конструкцией Do... Loop, выполняется до тех пор, пока истинно задаваемое в цикле условие.

Синтаксис конструкции DO. . .Loop следующий:

Do While условие

конструкции

Loop

Аргумент конструкции условие является логическим выражением, значение которого проверяется перед каждым проходом цикла. Если это значение равно True, то выполняется последовательность команд, которые расположены между Do while и ключевым словом Loop. Эти конструкции образуют тело цикла. Если при очередном проходе цикла условие равно False, то происходит выход из цикла и управление передается конструкции, следующей за Loop. Возможна ситуация, при которой операторы цикла не выполняются ни разу. Она возникает в том случае, если при первой проверке условия оно оказывается ложным.

В Visual Basic существует еще один вид цикла конструкции DO... Loop. Он отличается от рассмотренного ранее местом расположения условия. Если в предыдущей конструкции условие, по которому выполняется цикл, расположено в заголовке, то в этой конструкции условие располагается в конце цикла:

Do

конструкции

Loop While условие

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

Есть еще две разновидности конструкции цикла Do. . .Loop. Данные операторы имеют следующий синтаксис:

Do Until условие

конструкции

Loop

и

Do

конструкции

Loop Until условие

Пример использования конструкции приведен ниже.

nCounter = 2

Do While nCounter < 10

nDecades(nCounter) = nCounter * 2

nCounter = nCounter * 2

Loop

ПРИЛОЖЕНИЕ А

Листинг программы 1

'Программа написана на VBA Благиревым Артемом Михайловичем гр.ПО - 03в

'Донецкий Институт Искусственного Интеллекта - 2004г

Private Sub CommandButton1_Click()

Dim a(10, 10) As Single

Dim i, j, k, d, m, n, max As Integer

Dim s(10) As Single

For i = 1 To 10

For j = 1 To 10

For k = i + 1 To 10

Open "C:\base.dat" For Input As #1

Do While Not EOF(1)

max = 0

Input #1, a(i, j)

a(i, j) = Cells(i, j).Value

d = (a(i, j) - a(k, j)) ^ 2

s(i) = Sqr(d)

If max < s(i) Then

s(i) = max

Range("A8").Value = max

End If

Loop

Close #1

Next k

Next j

Next i

End Sub

Private Sub CommandButton2_Click()

UserForm1.Hide

End Sub

Листинг программы2

' Программа написана на VBA Благиревым Артемом Михайловичем гр.ПО - 03в

'Донецкий Государственный Институт Искусственного Интеллекта - 2004г

Private Sub CommandButton1_Click()

Dim результат, предложение1, предложение2 As String

'ввод предложения

предложение1 = CStr(TextBox1.Text)

предложение2 = CStr(TextBox2.Text)

'основной код программы

результат = StrComp(предложение1, предложение2, 1)

If результат = 0 Then

TextBox3.Text = "Предложения равны!"

Else: TextBox3.Text = "Предложения не равны!"

End If

End Sub

Private Sub CommandButton2_Click()

Userform1.hide

End Sub

Private Sub CommandButton3_Click()

Open "c:\file.txt" For Output As #1

Print #1, "Первое предложение ->"; TextBox1.Text

Print #1, "Второе предложение ->"; TextBox2.Text

Print #1, "Результат ->"; TextBox3.Text

Close #1

MsgBox "Файл создан, данные успешно записаны", vbInformation, "Запись"

End Sub

Private Sub CommandButton4_Click()

Open "c:\base.txt" For Input As #2

Do While Not EOF(2)

Input #2, предложение1, предложение2

TextBox1.Text = предложение1

TextBox2.Text = предложение2

Loop

Close #2

MsgBox "Данные успешно введены", vbInformation, "Ввод данных"

End Sub

ПРИЛОЖЕНИЕ Б

Экранные формы

Рисунок 1.1 – В начале работы приложения 1

Рисунок 1.2 - Окно открытия файла с исходными данными и результат работы приложения 1

Рисунок 2.1 – В начале работы приложения 2

Рисунок 2.2 – Окно открытия файла с исходными данными

Рисунок 2.3 – Результат работы программы

Характеристики

Список файлов ВКР