Программирование циклических процессов (продолжение)
Электронная форма для задачи поиск максимального элемента в одномерном массиве.
Private Sub Комманда1_Click() Dim MyArray As Single
Dim intValarray As Integer intValarray = Val(Текст1) ReDim a(intValarray) As Single Max = -1000: k = 0
For i = 0 To intValarray
MyArray = InputBox("Введите э-т массива :", "Ввод a(i)=") Список1.AddItem MyArray ‘метод AddItem используется Список2.AddItem i ‘для добавления элементов в список a(i) = MyArray
If a(i) > Max Then Max = a(i): k = i Next
Текст2.Text = Max Текст3.Text = k
Сортировка методом «пузырька»
Текст модуля: Сортировка
Private Sub Комманда1_Click() Dim a(1 To 10) As Integer Randomize Timer
For k = 1 To 10 a(k) = Int(10 * Rnd)
Список1.AddItem a(k) Next k
For i = 1 To 9 For j = i + 1 To 10 If a(i) > a(j) Then
b = a(i): a(i) = a(j): a(j) = b End If
Next j
Next i
For k = 1 To 10 Список2.AddItem a(k) Next k
End Sub
Пользовательское меню программы
формирования и транспонирования матрицы.
Private Sub Комманда1_Click()
Dim tr, tc As Integer : Dim s As String Randomize Timer
Dim a(1 To 3, 1 To 3) As Integer Dim b(1 To 3, 1 To 3) As Integer For tr = 1 To 3
s = " "
For tc = 1 To 3
a(tr, tc) = Int(10 * Rnd) s = s & " " & Str(a(tr, tc)) Next tc Список1.AddItem s Next tr
For tr = 1 To 3 ‘транспонирование For tc = 1 To 3 ‘матрицы
b(tr, tc) = a(tc, tr) Next tc : Next tr For tr = 1 To 3
s = " "
For tc = 1 To 3
s = s & " " & Str(b(tr, tc)) Next tc Список2.AddItem s Next tr
End Sub
Пользовательское меню программ
формирования матрицы и вычислени сумм элементов столбцов.
Private Sub Комманда1_Click()
Dim tr, tc, i, j As Integer : Dim s As String Randomize Timer
Dim a(1 To 3, 1 To 3) As Integer Dim b(1 To 3) As Integer
For tr = 1 To 3 s = " "
For tc = 1 To 3
a(tr, tc) = Int(10 * Rnd) s = s & " " & Str(a(tr, tc)) Next tc Список1.AddItem s Next tr
For j = 1 To 3 b(j) = 0
For i = 1 To 3 b(j) = b(j) + a(i, j) Next i
Next j s = " "
For j = 1 To 3
s = s & " " & Str(b(j)) Next j Список2.AddItem s End Sub
Оператор цикла Do-Loop. Логическ управляемый цикл, оператор Do — начало оператор Loop — конец цикла.
Оператор имеет четыре модификации:
1) Условие имеет значение True в начале цикла. Структура:
Do While <условие> <блок операторов>
Exit Do <блок операторов>
Loop
Цикл выполняется пока истинно условие Оператор Exit Do предназначен дл прекращения цикла и передачи управлени оператору Loop — конец цикла.
2) Условие имеет значение True в конце цикла. Структура:
Do
<блок операторов> Exit Do
<блок операторов> Loop While <условие>
Цикл выполняется хотя бы один раз, проверк условия в конце цикла.