2.9. Цикл с условием

Часто возникают ситуации, когда заранее не известно, сколько раз должен

выполняться цикл, но известно некоторое условие, которое должно быть достигнуто,

чтобы завершить выполнение цикла. В таких случаях в Visual Basic . применяется цикл с

условием Do.. Loop. Общий синтаксис этого цикла:

Do

[операторы]

Loop

В общем виде такой цикл является бесконечным, т. к. нет никакого условия

выхода из цикла.

Для выхода из цикла по достижению какого-либо условия применяются два

ключевых слова: While и Until.

Ключевое слово While используется, если нужно, чтобы цикл выполнялся, пока

выполняется указанное после слова While условие. Как только условие примет значение

False, цикл прекратит выполнение. Синтаксис такого цикла приведен ниже:

Do While условие

[операторы]

Loop

Если условие сразу имеет значение False, цикл не будет выполнен ни разу. Если вы

хотите, чтобы операторы внутри цикла выполнились хотя бы один раз, вне

зависимости от истинности условия, можно использовать следующий синтаксис:

Do

[операторы]

Loop While условие

Приведем пример:

Dim i As Integer

i = 10

Do While i > 0

i = i – 6

Loop

Операторы внутри цикла данного примера будет выполнены два раза.

Ключевое слово Until используется, если нужно, чтобы цикл выполнялся до тех пор,

пока не станет истинным (True) указанное после слова Until условие. Как только условие

примет значение True, цикл прекратит выполнение. Синтаксис такого цикла приведен

ниже:

Do Until условие

[операторы]

Loop

Аналогично циклу с ключевым словом While, данный цикл не будет выполняться ни

разу, если условие сразу имеет значение True. Вы можете поставить слово Until после

ключевого слова Loop для гарантии хотя бы однократного выполнения цикла:

Do

[операторы]

Loop Until условие

Пример цикла с ключевым словом Until:

Dim i As Integer = 2

Do Until i > 5

i = i + 1

Loop

Операторы внутри данного цикла будут выполнены три раза.

Операторы прерывания циклов

В некоторых случаях требуется прервать цикл до выполнения основного условия,

вследствие ненадобности выполнения дальнейших циклов. Для этого используется оператор

Exit:

Exit For или Exit Do.

После выполнения этих операторов управление передается на следующую за

операторами Loop или Next строку.

2.10. Операции над текстом

Слияния строк. В результате выполнения такой операции над двумя строками

получится одна строка, содержащая в себе как первую, так и вторую. Для

обозначения операции слияния строк используется специальный символ «&» или «+».

Приведем пример слияния строк:

Dim s1 As String = "Это 1-ая строка"

Dim s2 As String = "Это 2-ая строка"

Dim s3 As String strFinal = s1 & s2

В итоге в переменной s3 получим значение: Это 1-ая строкаЭто 2-ая строка

Некоторые строковые функции

LCase() - преобразует все символы строки в нижний регистр. Пример:

Dim s As String

s = LCase("Иванов Иван Иванович")

Результатом выполнения данного примера будет запись в переменную s значения

"иванов иван иванович".

Left() - возвращает указанное число первых символов строки. Пример:

Dim s As String

s = Left("Иванов Иван Иванович", 6)

Результатом выполнения данного примера будет запись в переменную s значения

"Иванов".

Len() - применяется для определения количества символов в строке, которая

передается функции в качестве параметра.

Приведем пример:

Dim i As Integer

i = Len(«Я изучаю Visual Basic .»)

В этом примере мы объявляем целочисленную переменную i, затем присваиваем ей

значение, равное количеству символов строки «Я изучаю Visual Basic». Это значение

равно 23.

Str() - предназначена для преобразования числа в строку. Пример:

Dim s As String

s = Str(103.378)

Результатом выполнения данного примера будет запись в переменную s

значения "103.378".

Val() – предназначена для преобразования строки в число. Пример

Double a =Val(txta)

2.11. Массивы

Массив – это набор данных, состоящих из элементов одного типа, обращаться к

которым можно при помощи индекса. Это чрезвычайно удобно как с точки зрения

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

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

Dim имя_массива(количество элементов) As тип_данных

Для обращения к элементам массива (считывания или записи в них новых

значений) используется имя массива и его индекс в скобках. Индексом может быть не

только конкретное число, но и переменная или даже выражение. Пример

Dim b(10) As Double

Dim i As Integer

i=3

b(1)=20.5

b(i)=-1.5

b(10)=21.5

b(i^2-2)=1

Диапазон значений индексов может быть произвольным. Для этого оператор

объявления массива записывается в форме

Dim имя_массива(номер_1-о_элемента To номер_последнего_элемента) As тип_данных

Для работы с массивами удобно применение циклов. Например, для присваивания

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

Dim m(1000) As Integer

m(1)=1

m(2)=2

…

m(100)=1000

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

сделать при помощи 5-и строк

Dim m(1000) As Integer, i As Integer

For i=1 To 1000

m(i)=i

Next i

Выход индекса за границу индексов транслятор VB воспринимает как ошибку,

подсвечивает соответствующий оператор красным цветом и выдает сообщение

Subscript out of range

что означает: Индекс вне допустимых границ.

Примеры программ нахождения суммы, произведения, максимального и минимального

значений для массивов и их частей.

В VB существуют операторы для определения текущих границ массива,

нижней

Lbound(имя_массива,номер_измерения)

и верхней

Ubound((имя_массива,номер_измерения)

Например,

Dim m(10,25) As Integer, i As Integer, j As Integer

i= Lbound(m,1)

j= Ubound(m,2)

Print i,j

Присваивания элементам массива значений при помощи оператора Array. Например

Dim a(2,2), b(2) As Double, i As Integer, j As Integer, k As Integer

arr=Array(1.5,2.1,5,1,10.1,4.2)

k=0

For i=1 To 2

For j=1 To 2

k=k+1

a(i,j)=arr(k) ‘ Можно заенитьk.3(i-1)+(j-1)

Next j

k=k+1

b(i)=arr(k) ‘ k.3(i-1)+(j-1)

Next i

3. Методы (подпрограммы)

Методы — это небольшие законченные программы (иначе называемые

подпрограммами), состоящие из операторов и команд языка и оформленные

специальным образом.

Методы используются для сокращения объема программы и могут вызываться

из любого места основной программы. Уменьшение объема программы достигается

за счет того, что часто имеются одинаковые участки кода, которые можно вынести в

подпрограмму и вызывать ее в нужных местах программы.

Кроме того, если программа достаточно большая, для улучшения восприятия и

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

которых выполняет законченное логическое действие. Эти модули могут содержать

одну или несколько подпрограмм

По своей структуре подпрограмма аналогична обычной программе.

Все подпрограммы в Visual Basic можно условно поделить на две группы:

. процедуры (Sub);

. функции (Function).

Главным отличием функции от процедуры является то, что функция может

возвращать под своим именем какое-либо значение. Процедура этого делать не

может.