Введение 8 Этапы создания Windowsприложения 8
Скачать 6.98 Mb.
|
Приложение 33Дан целочисленный массив. Количество элементов и их значения вводятся с клавиатуры. Проверить, равны ли все элементы массива друг другу. Исходный массив и полученные результаты вывести в окно списка. Эта задача решается двумя разными способами. Способ 1. Dim a() As Integer Dim n, i As Integer Dim test As Boolean lstA.Items.Clear() Do n = Val(InputBox("Введите количество элементов")) Loop Until n > 0 n -= 1 ReDim a(n) For i = 0 To n a(i) = Val(InputBox("Введите " + Str(i) + _ "-й элемент массива")) Next lstA.Items.Add("Исходный массив") lstA.Items.Add("Номер" + vbTab + "Значение") For i = 0 To n lstA.Items.Add(Str(i) + vbTab + Str(a(i))) Next test = True For i = 1 To n If a(i) <> a(0) Then test = False Exit For End If Next lstA.Items.Add("-------------------------------") If test Then lstA.Items.Add("Все элементы одинаковые") Else lstA.Items.Add("Есть несовпадающие элементы") End If Способ 2. Dim a() As Integer Dim n, i As Integer Dim kol As Integer lstA.Items.Clear() Do n = Val(InputBox("Введите количество элементов")) Loop Until n > 0 n -= 1 ReDim a(n) For i = 0 To n a(i) = Val(InputBox("Введите " + Str(i) + _ "-й элемент массива")) Next lstA.Items.Add("Исходный массив") lstA.Items.Add("Номер" + vbTab + "Значение") For i = 0 To n lstA.Items.Add(Str(i) + vbTab + Str(a(i))) Next kol = 0 For i = 0 To n If a(i) = a(0) Then kol += 1 End If Next If kol = n + 1 Then lstA.Items.Add("Все элементы одинаковые") Else lstA.Items.Add("Есть несовпадающие элементы") End If Приложение 34Дан целочисленный массив. Количество элементов и их значения вводятся с клавиатуры. Проверить, упорядочены ли элементы массива по возрастанию. Исходный массив и полученные результаты вывести в окно списка. Dim a() As Integer Dim n, i As Integer Dim test As Boolean lstA.Items.Clear() Do n = Val(InputBox("Введите количество элементов")) Loop Until n > 0 n -= 1 ReDim a(n) For i = 0 To n a(i) = Val(InputBox("Введите " + Str(i) + _ "-й элемент массива")) Next lstA.Items.Add("Исходный массив") lstA.Items.Add("Номер" + vbTab + "Значение") For i = 0 To n lstA.Items.Add(Str(i) + vbTab + Str(a(i))) Next test = True For i = 0 To n - 1 If a(i) > a(i + 1) Then test = False Exit For End If Next lstA.Items.Add("-------------------------------") If test Then lstA.Items.Add("Элементы массива упорядочены") Else lstA.Items.Add("Элементы массива неупорядочены") End If Приложение 35Дан целочисленный массив. Количество элементов и их значения вводятся с клавиатуры. Отсортировать элементы массива по возрастанию методом пузырька. Массив до и после преобразования вывести в окно списка. Dim a() As Integer Dim n, i As Integer Dim sort As Boolean Dim z As Integer lstA.Items.Clear() Do n = Val(InputBox("Введите количество элементов")) Loop Until n > 0 n -= 1 ReDim a(n) For i = 0 To n a(i) = Val(InputBox("Введите " + Str(i) + _ "-й элемент массива")) Next lstA.Items.Add("Исходный массив") lstA.Items.Add("Номер" + vbTab + "Значение") For i = 0 To n lstA.Items.Add(Str(i) + vbTab + Str(a(i))) Next Do sort = True For i = 0 To n - 1 If a(i) > a(i + 1) Then z = a(i) a(i) = a(i + 1) a(i + 1) = z sort = False End If Next Loop Until sort lstA.Items.Add("-------------------------------") lstA.Items.Add("Массив после сортировки") For i = 0 To n lstA.Items.Add(Str(i) + vbTab + Str(a(i))) Next |