Отправляет email-рассылки с помощью сервиса Sendsay

Visual Basic.NET. Уроки

Подписаться Бесплатная «Золотая» новостная рассылка . Подписчиков 6.038 RSS
←   Ноябрь 2002   →
 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30


За последние 60 дней ни разу не выходила


Сайт рассылки: http://progs.biz
Открыта: 17-03-2002

Автор
Алексеев Игорь

Статистика

6.038 подписчиков
0 за неделю
←   Все выпуски   →

Visual Basic.NET. Уроки


Информационный Канал Subscribe.Ru

Основы VB.NET. Уроки с сайта http://progs.biz

Рассылка №20

Основы VB.NET. Урок 21. Операторы If и Select Case.
Основы VB.NET. Урок 22. Операторы циклов For...Next и For Each.
Полные версии уроков (с картинками) можно найти по адресам
Урок 21. Операторы If и Select Case.
Урок 22. Операторы циклов For...Next и For Each.

Основы VB.NET. Урок 21. Операторы If и Select Case

Операторы If и Select Case работают точно так же, как и в предыдущих версиях VB.

Вот пример использования оператора If:

        Dim a, b As Integer
        a = 2
        b = 4
        If b <> 0 Then
            Console.WriteLine("a/b={0}", a / b)
        Else
            Console.WriteLine("На ноль делить нельзя!")
        End If

Ясно, что эта программа выведет на экран строку "a/b=0.5".

Else можно не писать, если он не особенно нужен.

Пример на Select Case:

        Dim a As Integer
        Console.WriteLine("Введите оценку")
        a = CInt(Console.ReadLine())
        Select Case a
            Case 1, 2
                Console.WriteLine("Двоечник")
            Case 3
                Console.WriteLine("Троечник")
            Case 4
                Console.WriteLine("Хорошист")
            Case 5
                Console.WriteLine("Отличник")
            Case Else
                Console.WriteLine("Ошибка")
        End Select

Тут программа ожидает, что за оценку введет пользователь и выводит соответствующую надпись. Обратите внимание, что мы читаем строку, которую надо преобразовать к целому:

a = CInt(Console.ReadLine())

Веточка Case Else необязательна. Если она есть, то код, написанный в ней, будет выполняться, если ни один из предыдущих case не подошел.

Обратите внимание на строку

            ...
            Case 1, 2
            ...

Эта ветка выполнится если переменная a будет равна 1 или 2.

Вот еще возможные варианты синтаксиса для case:

            ...
            Case 1 To 10
                Console.WriteLine("Число от 1 до 10")
            Case Is < 0
                Console.WriteLine("Отрицательное число")
            ...

Ключевое слово To задает диапазон значений, Is обозначает само число (a в нашнем случае). Т. е. если a меньше нуля, то выведется надпись "Отрицательное число".

Наверх

Основы VB.NET. Урок 22. Операторы циклов For...Next и For Each

Циклы в VB.NET похожи на циклы в других языках программирования. На этом занятии мы рассмотрим циклы двух типов - циклы For...Next и For Each. Циклы For...Next выпоялняются опеределенное число раз. Т. е. если вам заранее известно, сколько раз должен выполнится ваш цикл, то используем цикл For...Next. Цикл For Each используется для обхода элементов коллекций и массивов. Например, с помощью For Each можно перечислить (обойти) все элементы на форме или обработать все строки тамбицы в базе данных.

Вот пример на оператор For...Next:

        Dim A(10) As Integer
        Dim i As Integer
        For i = 0 To 9
            'Заполняем массив квадратами чисел
            A(i) = i * i
        Next
        For i = 0 To 9
            'Выводим элементы массива
            Console.WriteLine(A(i))
        Next

В этом примере массив из 10 целых сначала заполняется квадратами чисел, потом элементы массива выводятся на экран. Вместо строки

        ...
        Next
        ...

Можно написать

        ...
        Next i
        ...

В циклах типа For...Next счетчик цикла (i в данном случае) изменяется автоматически.

В приведенном примере счетчик увеличивается при каждом прохождении цикла на 1. Если вам нужен другой шаг, то используем конструкцию с Step:

        For i = 0 To 9 Step 2
            'Что-то делаем
        Next

Такой цикл выполнится 5 раз.

Теперь рассмотрим пример на цикл For Each:

        Dim z As Integer
        Dim A(10) As Integer
        'Заполняем массив A
        ...
        For Each z In A
            If z > 10 Then
                Console.WriteLine(z)
            End If
        Next

Как вы видите, мы в нашем цикле пробегаем все элементы в массиве A (это видно из конструкции In A). Если элемент массива оказался больше 10, мы выводим его на экран.

Обычно циклы For Each используются для перечисления элементв всевозможных коллекций (например, элементов на форме или всех шрифтом в Windows).

Наверх

Рассылки с сайта progs.biz

Рассылки Subscribe.Ru
Новости сайта progs.biz

Краткое описание всех новых уроков и материалов на сайте progs.biz. Основные направления - языки программирования (Visual C++, Visual Basic.NET, C#, Delphi, Java), WEB-дизайн (HTML, PHP, PhotoShop, SSI), базы данных.

Copyright Алексеев Игорь, 2002

Copyright сайт progs.biz, 2002

http://subscribe.ru/
E-mail: ask@subscribe.ru 		Отписаться
Убрать рекламу
В избранное