Введение 8 Этапы создания Windowsприложения 8

• Название: Введение 8 Этапы создания Windowsприложения 8
• Анкор: Visual Basic 2005 (word97).doc
• Дата: 22.12.2017
• Размер: 6.98 Mb.
• Имя файла: Visual Basic 2005 (word97).doc
• Тип: Реферат; #12532
• страница: 58 из 63

Приложение 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