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

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

Приложение 14

Обработка совокупности чисел с известным количеством элементов.

Вычисление суммы чисел.

Dim a, i, n As Integer

Dim summa As Integer

lstA.Items.Clear()

n = Val(InputBox("Введите количество элементов"))

summa = 0

For i = 1 To n

a = Val(InputBox("Введите элемент совокупности"))

lstA.Items.Add(Str(i) + vbTab + Str(a))

summa += a

Next

lstA.Items.Add("-----------------------------------")

lstA.Items.Add("Сумма чисел =" + Str(summa))

Вычисление произведения чисел.

Dim a, i, n As Integer

Dim proiz As Integer

lstA.Items.Clear()

n = Val(InputBox("Введите количество элементов"))

proiz = 1

For i = 1 To n

a = Val(InputBox("Введите элемент совокупности"))

lstA.Items.Add(Str(i) + vbTab + Str(a))

proiz *= a

Next

lstA.Items.Add("-----------------------------------")

lstA.Items.Add("Произведение чисел =" + Str(proiz))

Определение количества четных чисел в совокупности.

Dim a, i, n As Integer

Dim kol As Integer

lstA.Items.Clear()

n = Val(InputBox("Введите количество элементов"))

kol = 0

For i = 1 To n

a = Val(InputBox("Введите элемент совокупности"))

lstA.Items.Add(Str(i) + vbTab + Str(a))

If a Mod 2 = 0 Then

kol += 1

End If

Next

lstA.Items.Add("-----------------------------------")

If kol = 0 Then

lstA.Items.Add("В совокупности нет четных чисел") Else

lstA.Items.Add("Количество четных чисел =" + Str(kol))

End If

Вычисление среднего арифметического положительных чисел в совокупности.

Dim a, i, n As Integer

Dim summa, kol As Integer

Dim sred As Single

lstA.Items.Clear()

n = Val(InputBox("Введите количество элементов"))

summa = 0

kol = 0

For i = 1 To n

a = Val(InputBox("Введите элемент совокупности"))

lstA.Items.Add(Str(i) + vbTab + Str(a))

If a > 0 Then

summa += a

kol += 1

End If

Next

lstA.Items.Add("-----------------------------------")

If kol = 0 Then

lstA.Items.Add("Нет положительных чисел")

Else

sred = summa / kol

lstA.Items.Add("Сред. арифм. полож. чисел =" + _

Str(sred))

End If

Вычисление среднего геометрического отрицательных чисел в совокупности.

Dim a, i, n As Integer

Dim proiz, kol As Integer

Dim geom As Single

lstA.Items.Clear()

n = Val(InputBox("Введите количество элементов"))

proiz = 1

kol = 0

For i = 1 To n

a = Val(InputBox("Введите элемент совокупности"))

lstA.Items.Add(Str(i) + vbTab + Str(a))

If a < 0 Then

proiz *= a

kol += 1

End If

Next

lstA.Items.Add("-----------------------------------")

if kol = 0 Then

lstA.Items.Add("Нет отрицательных чисел")

Else

If proiz > 0 Then

geom = proiz ^ (1 / kol)

Else

geom = -Math.Abs(proiz) ^ (1 / kol) End If

lstA.Items.Add("Сред. геом. отриц. чисел =" + _

Str(geom))

End If

Поиск максимального числа в совокупности.

Dim a, i, n As Integer

Dim max As Integer

lstA.Items.Clear()

n = Val(InputBox("Введите количество элементов"))

max = -100000

For i = 1 To n

a = Val(InputBox("Введите элемент совокупности"))

lstA.Items.Add(Str(i) + vbTab + Str(a))

If a > max Then

max = a

End If

Next

lstA.Items.Add("-----------------------------------")

lstA.Items.Add("Максимальное число =" + Str(max))

Поиск минимального числа, кратного трем.

Dim a, i, n As Integer

Dim min As Integer

lstA.Items.Clear()

n = Val(InputBox("Введите количество элементов"))

min = 100000

For i = 1 To n

a = Val(InputBox("Введите элемент совокупности"))

lstA.Items.Add(Str(i) + vbTab + Str(a))

If a Mod 3 = 0 And a < min Then

min = a

End If

Next

lstA.Items.Add("-----------------------------------")

If min = 100000 Then

lstA.Items.Add("Нет чисел, кратных 3")

Else

lstA.Items.Add("Минимальное кратное трем = " + _

Str(min))

End If