Введение 8 Этапы создания Windowsприложения 8
Скачать 6.98 Mb.
|
Приложение 29Дан целочисленный массив. Количество элементов и их значения вводятся с клавиатуры. Заменить максимальный элемент массива на сумму всех элементов массива. Массив до и после преобразования вывести в окно списка. Dim a() As Integer Dim n, i As Integer Dim max, imax, summa 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 summa = a(0) For i = 1 To n summa += a(i) If a(i) > max Then max = a(i) imax = i End If Next a(imax) = summa lstA.Items.Add("-------------------------------") lstA.Items.Add("Измененный массив") For i = 0 To n lstA.Items.Add(Str(i) + vbTab + Str(a(i))) Next Приложение 30Дан целочисленный массив. Количество элементов и их значения вводятся с клавиатуры. Заменить все элементы, равные нулю, на -1. Массив до и после преобразования вывести в окно списка. 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) = 0 Then a(i) = -1 kol += 1 End If Next lstA.Items.Add("-------------------------------") If kol = 0 Then lstA.Items.Add("В массиве нет нулей") Else lstA.Items.Add("Измененный массив") For i = 0 To n lstA.Items.Add(Str(i) + vbTab + Str(a(i))) Next End If Приложение 31Дан целочисленный массив. Количество элементов и их значения вводятся с клавиатуры. Поменять местами элементы с заданными номерами. Номера переставляемых элементов задаются с клавиатуры. Массив до и после преобразования вывести в окно списка. Dim a() As Integer Dim n, i As Integer Dim k, p As Integer 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 k = Val(InputBox("Введите номер элемента <=" + _ Str(n))) Loop Until k >= 0 And k <= n Do p = Val(InputBox("Введите номер элемента <=" + _ Str(n))) Loop Until p >= 0 And p <= n z = a(k) a(k) = a(p) a(p) = z lstA.Items.Add("-------------------------------") lstA.Items.Add("Измененный массив") For i = 0 To n lstA.Items.Add(Str(i) + vbTab + Str(a(i))) Next Приложение 32Дан целочисленный массив. Количество элементов и их значения вводятся с клавиатуры. В новый массив перенести четные элементы исходного массива. Исходный и сформированный массивы вывести в окно списка. Dim a() As Integer Dim n, i As Integer Dim b() As Integer Dim k 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 k = -1 For i = 0 To n If a(i) Mod 2 = 0 Then k += 1 ReDim Preserve b(k) b(k) = a(i) End If Next lstA.Items.Add("-------------------------------") If k = -1 Then lstA.Items.Add("Новый массив пуст") Else lstA.Items.Add("Новый массив") For i = 0 To k lstA.Items.Add(Str(i) + vbTab + Str(b(i))) Next End If |