Используемые приемы и методы

Цикл For Each... Next

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

Оператор Оператор For... Next (Visual Basic) работает лучше, когда можно связать каждую итерацию цикла с управляющей переменной и определить ее начальное и конечное значения. Тем не менее, при работе с коллекциями концепция начального и конечного значений не имеет смысла, а количество элементов в коллекции может быть неизвестно.В этом случае цикл For Each... Next является наилучшим выбором.

Оператор ReDim

Можно использовать оператор ReDim, чтобы изменить размер одной или нескольких уже объявленных размерностей массива. Если некоторые элементы большого массива больше не требуются, оператор ReDim может освободить память, уменьшив размер массива. С другой стороны, если код определяет, что массиву требуется несколько дополнительных элементов, можно добавить их с помощью оператора ReDim.

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

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

Метод String.Split - ( Char ())

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

Знаки-разделители не включаются в набор элементов возвращаемого массива.

Если данный экземпляр не содержит знаков из separator, возвращаемый массив состоит из единственного элемента, содержащего данный экземпляр.

Если параметр separator равен Nothing или не содержит ни одного знака, в качестве разделителей используются пробелы. Символы пробелов определяются стандартом Юникод и возвращают true при их передаче методу Char.IsWhiteSpace.

Каждый элемент в separator определяет отдельный знак-разделитель. Если два разделителя являются смежными или разделитель обнаружен в начале или в конце данного экземпляра, соответствующий элемент массива содержит Empty.

Метод String.Trim

Возвращает новую строку, в которой удалены все начальные и конечные вхождения заданного набора знаков из текущего объекта String.

Удаляет все начальные и конечные знаки пробела из текущего объекта Trim. Выполнение операции удаления начальных или конечных пробелов прекращается, когда встречен знак, не являющийся пробелом.Например, если текущей строкой является " abc xyz ", метод Trim возвращает значение " abc xyz".

Если текущая строка равна Empty или все символы в текущем экземпляре состоят из символов пробелов, метод возвращает Empty.

Символы пробелов определяются стандартом Юникода.

Текст программы

Public Class Form1

Dim MyArray() As Integer

Dim N As Integer = 0

Private Sub Lbl_Array_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Lbl_Array.Click

Lbl_Array.Text = " "

For Each s As String In TextString.Text.Split({", " c})

N = N + 1

ReDim MyArray(N)

If s.Trim() < > " " Then

MyArray(N - 1) = s

Lbl_Array.Text = Lbl_Array.Text + " " + s

End If

End Sub

End Class

Отчет по программе

1. Назначение программы

2. Описание интерфейса

3. Описать строковый тип данных

4. Найти в справке и выписать операции над строками.

5. Понятие лексемы. Лексема - это фрагмент строки, ограниченный разделителями. Разделитель – любой знак – не буква и не цифра. Выборка лексем с помощью методов Split и Тrim.

6. Динамические массивы – массивы с изменяемыми границами. Переопределение границы массивов выполняется оператором ReDim. Ввод данных в массив выполняется оператором присваивания равно ( =).

7. Привести описание работы программы. Детально опишите работу оператора цикла.

Лабораторная работа 16

Цель лабораторной работы

Целью лабораторной работы является знакомство с операторами циклов в Visual Basic 2010.

Выполнение лабораторной работы

1. Имя проекта < Prog16-Фамилия обучающегося>

2. Размещение проекта – на сервере MKPT-312-SRV01 в папке < логин пользователя>.

3. Имя отчета < Prog16-Фамилия обучающегося >

4. Размещение отчета на сервере MKPT-312-SRV01 в папке < логин пользователя>.

5. Постройте интерфейс, как показано на рис. 19.1

Текст программы

Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim a, b, c, D, x1, x2 As Double

Try

a = CDbl(TextBox1.Text)

b = CDbl(TextBox2.Text)

c = CDbl(TextBox3.Text)

If b = 0 Then

x1 = Math.Sqrt(c / a)

x2 = -Math.Sqrt(c / a)

End If

TextBox4.Text = x1

TextBox5.Text = x2

If c = 0 Then

x1 = 0

x2 = -b / a

End If

TextBox4.Text = x1

TextBox5.Text = x2

If a = 0 Then

MsgBox(" нет решений", MsgBoxStyle.RetryCancel)

End If

D = b ^ 2 - 4 * a * c

If D > 0 Then

x1 = -b + Math.Sqrt(D)

x2 = -b - Math.Sqrt(D)

If D = 0 Then

x1 = -b / (2 * a)

End If

Else

MsgBox(" нет решений", MsgBoxStyle.RetryCancel)

End If

TextBox4.Text = x1

TextBox5.Text = x2

Catch ex As Exception

MsgBox(" Ошибка ввода, не число", MsgBoxStyle.Critical)

End Try

End Sub

End Class

Отчет по программе

1. Назначение программы

2. Описание интерфейса

3. Привести описание работы программы. Детально опишите работу условного оператора.

4. Найдите условия, при которых программа выдает ошибку.

5. Устраните ошибку.

⇐ Предыдущая 1 2 3 4 567 Следующая ⇒