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

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

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