Введение 8 Этапы создания Windowsприложения 8
Скачать 6.98 Mb.
|
Приложение 25Дан целочисленный массив. Количество элементов и их значения вводятся с клавиатуры. Найти максимальный элемент массива и его номер. Исходный массив и полученные результаты вывести в окно списка. Dim a() As Integer Dim n, i As Integer Dim max, imax 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 max = a(0) imax = 0 For i = 1 To n If a(i) > max Then max = a(i) imax = i End If Next lstA.Items.Add("-------------------------------") lstA.Items.Add("Максимальное = " + Str(max)) lstA.Items.Add("Его номер = " + Str(imax)) Приложение 26Дан целочисленный массив. Количество элементов и их значения вводятся с клавиатуры. Найти минимальный элемент массива, кратный трем, и его номер. Исходный массив и полученные результаты вывести в окно списка. Dim a() As Integer Dim n, i As Integer Dim min, imin 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 imin = -1 min = 100000 For i = 0 To n If a(i) Mod 3 = 0 And a(i) < min Then min = a(i) imin = i End If Next lstA.Items.Add("-------------------------------") If imin = -1 Then lstA.Items.Add("Нет чисел, кратных 3") Else lstA.Items.Add("Минимальное кратное трем =" + _ Str(min)) lstA.Items.Add("Его номер = " + Str(imin)) End If Приложение 27Дан целочисленный массив. Количество элементов и их значения вводятся с клавиатуры. Найти номер первого элемента массива, равного нулю. Исходный массив и полученные результаты вывести в окно списка. Dim a() As Integer Dim n, i As Integer Dim perv 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 perv = -1 For i = 0 To n If a(i) = 0 Then perv = i Exit For End If Next lstA.Items.Add("-------------------------------") If perv = -1 Then lstA.Items.Add("В массиве нет нулей") Else lstA.Items.Add("Первый нулевой элемент: " + _ Str(perv)) End If Приложение 28Дан целочисленный массив. Количество элементов и их значения вводятся с клавиатуры. Найти номер последнего элемента массива, равного нулю. Исходный массив и полученные результаты вывести в окно списка. Эта задача решается двумя разными способами. Способ 1. Dim a() As Integer Dim n, i As Integer Dim posled 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 posled = -1 For i = 0 To n If a(i) = 0 Then posled = i End If Next lstA.Items.Add("-------------------------------") If posled = -1 Then lstA.Items.Add("В массиве нет нулей") Else lstA.Items.Add("Последний нулевой элемент: " + _ Str(posled)) End If Способ 2. Dim a() As Integer Dim n, i As Integer Dim posled 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 posled = -1 For i = n To 0 Step -1 If a(i) = 0 Then posled = i Exit For End If Next lstA.Items.Add("-------------------------------") If posled = -1 Then lstA.Items.Add("В массиве нет нулей") Else lstA.Items.Add("Последний нулевой элемент: " + _ Str(posled)) End If |