WWW.DOCX.LIB-I.RU
БЕСПЛАТНАЯ  ИНТЕРНЕТ  БИБЛИОТЕКА - Интернет материалы
 

«Количество положительных чисел диапозона Public Function CountP(a As Variant) n = a.Columns.Countm = a.Rows.Countk= 0 For r = 1 To m For c = 1 To n If a(r,c) > 0 Then ...»

Количество положительных чисел диапозона

Public Function CountP(a As Variant)

n = a.Columns.Countm = a.Rows.Countk= 0

For r = 1 To m

For c = 1 To n

If a(r,c) > 0 Then k=k+1

Next c

Next r

CountP=k

End Function

Сумма положительных чисел диапозонаPublic Function fun9(a As Variant)

n = a.Columns.Count 'количество столбцов

m = a.Rows.Count ' количество строк

s = 0

For r = 1 To m

For c = 1 To n

If a(r, c) > 0 Then s = s + a(r, c)

End If

Next c

Next r

fun9 = s

End Function

Количество чётных чисел диапозонаPublic Function fun9(a As Variant)

n = a.Columns.Countm = a.Rows.Countk = 0

For r = 1 To m

For c = 1 To n

If a(r, c) Mod 2 = 0 Then k = k + 1

Next c

Next r

fun9 = k

End FunctionКоличество пробелов в строке

Public Function fun8(s As String)

Dim i As Integer

Dim p As Integer

p = 0

For i = 1 To Len(s)

If Mid(s, i, 1) = " " Then

p = p + 1

End If

Next

fun8 = p

End Function

В книге Excel "Данные к тесту VBA", размещенной в учебных материалах к модулю, доработайте пользовательскую форму VBA с именем UserForm2 (уже создана), которая на интервале от M до N находит количество совершенных чисел. Результат должен быть получен в текстовом поле TextBox3 (Результат).

Ответ 1

В книге Excel "Данные к тесту VBA", размещенной в учебных материалах к модулю, составьте подпрограмму VBA с именем Proc1, которая в диапазоне K1:L4 активного Листа Excel находит наименьшее число. Результат процедура должна вернуть в ячейку B14.

Ответ 2

Подпрограмма VBA с именем Proc2, которая в выделенном диапазоне вычисляет количество нечетных положительных чисел

Public Sub Proc2()Dim a As Range, i As Variant, s As Double

Set a = Selection

k = 0

For Each i In a

If i Mod 2 <> 0 And i > 0 Then k = k + 1

Next i

Cells(15, 2).Value = k

End Sub

Функция VBA с именем Fun10, которая в заданном диапазоне активного Листа Excel вычисляет сумму чисел, кратных заданному числу КPublic Function fun10(a As Variant, k)

Dim s As Double, i As Variant

s = 0

For Each i In a

If i Mod k = 0 Then s = s + i

Next i

fun10 = s

End Function

В книге Excel "Данные к тесту VBA", размещенной в учебных материалах к модулю, составьте функцию VBA с именем Fun9, которая вычисляет сумму элементов в нечетных столбцах заданной матрицы А.

Ответ 6

В книге Excel "Данные к тесту VBA", размещенной в учебных материалах к модулю, составьте функцию VBA с именем Fun10, которая в заданном диапазоне активного Листа Excel вычисляет количество чисел больших К.

Ответ 2

Подпрограмма VBA с именем Proc2, которая в выделенном диапазоне активного Листа Excel находит наибольшее число

Public Sub Proc2()Dim a As Range, i As Variant, s As Double

Set a = Selection

Max = a(1, 1)

For Each i In a

If i > Max Then Max = i

Next i

Cells(15, 2).Value = Max

End Sub

Подпрограмма VBA с именем Proc1, которая в  диапазоне K1:N4 активного Листа Excel вычисляет  сумму   отрицательных  чисел

Public Sub Proc1()Dim a As Range, i As Variant, s As Double

Set a = Range("K1:N4")

s = 0

For Each i In a





If i < 0 Then s = s + i

Next i

Cells(14, 2).Value = s

End Sub

Подпрограмма VBA с именем Proc2, которая в выделенном диапазоне активного Листа Excel вычисляет  сумму четных  отрицательных  чисел

Public Sub Proc2()Dim a As Range, i As Variant, s As Double

Set a = Selection

s = 0

For Each i In a

If i Mod 2 = 0 And i < 0 Then s = s + i

Next i

Cells(15, 2).Value = s

End Sub

Подпрограмма VBA с именем Proc1, которая в диапазоне  K1:L4 активного Листа Excel находит наименьшее число. Результат процедура должна вернуть в ячейку B14

Public Sub Proc1()Dim a As Range, i As Variant, s As Double

Set a = Range("K1:L4")

Min = a(1, 1)

For Each i In a

If i < Min Then Min = i

Next i

Cells(14, 2).Value = Min

End Sub

В книге Excel "Данные к тесту VBA", размещенной в учебных материалах к модулю, доработайте пользовательскую форму VBA с именем UserForm2 (уже создана), которая на интервале от M до N находит сумму простых чисел. Результат должен быть получен в текстовом поле TextBox3 (Результат)

Открываем Userform2, 2 раза щёлкаем по кнопке Выполнить

Сначала пишем прогу для простых чисел

Public Function prostoe(ByVal n As Long) As Boolean

Dim i As Long

prostoe = True

If n > 1 Then

For i = 2 To Sqr(n)

If n Mod i = 0 Then

prostoe = False

Exit For

End If

Next i

Else

prostoe = False

End If

End Function

Потом пишем форму

Private Sub CommandButton1_Click()m = Val(TextBox1.Text)

n = Val(TextBox2.Text)

Dim i As Long, s As Double

s = 0

For i = m To n

If prostoe(i) = True Then s = s + i

Next i

TextBox3.Text = Format(s)

End Sub

Нажимаем выполнить UserForm2 и, в появившемся окне, нажимаем на выполнить

Ответ:

Сумма простых 72

Если количество нужно найти, то вместо этого If prostoe(i) = True Then s = s + i, пишем If prostoe(i) = True Then s = s + 1

Количество 6

В книге Excel "Данные к тесту VBA", размещенной в учебных материалах к модулю, доработайте пользовательскую форму VBA с именем UserForm1 (уже создана), которая среди трех заданых в форме чисел A, B, C, задающих коэффициенты квадратного уравнения, находит сумму корней уравнения. Если корней не существует, возвращает сово "нет". Результат должен быть получен в текстовом поле TextBox4 (Результат)

Private Sub CommandButton1_Click()a = Val(TextBox1.Text)

b = Val(TextBox2.Text)

c = Val(TextBox3.Text)

Dim d As Double, x1 As Double, x2 As Double, s As Double

d = b ^ 2 - 4 * a * c

If d >= 0 Then

x1 = (-b + Sqr(d)) / (2 * a)

x2 = (-b - Sqr(d)) / (2 * a)

s = x1 + x2

TextBox4.Text = Format(s)

Else

TextBox4.Text = "Нет"

End If

End Sub

Ответ: 8

Если произведение корней, то вместо этого s = x1 + x2, пишем s = x1 * x2

Ответ: 15

Сумма четных чисел

Public Function fun9(a As Variant) As Double

Dim s As Double, i As Variant

s = 0

For Each i In a

If i Mod 2 = 0 Then s = s + i

Next i

fun9 = s

End Function




Похожие работы:

«ТЕСТ ПО ТЕМЕ "ПРЕДУПРЕЖДЕНИЕ ГРАММАТИКО-СТИЛИСТИЧЕСКИХ ОШИБОК". ( ВАРИАНТ 1.) 1. Найдите неправильно поставленное ударение в одном из слов.а) арЕст, бантЫ;б) гравЁр, гладИльная (доска);в)...»

«МКОУ Пелеговская основная общеобразовательная школа Открытый классный час в 6 классеКлассный руководитель: Промтова Елена Алексеевна Пелегово, 2012 годТема: "Все работы хороши".Направление: Профориентация.Цель: Пока...»

«Напишите программу, которая в последовательности натуральных чисел (массив) определяет максимальное число, оканчивающееся на 3. Программа получает на вход количество чисел в последовательности, а затем сами числа. В последовательности всегда имеется число, оканчивающееся на 3. Количество чисел не превышает 1000. Введё...»

«ЦЕНЫ НА СЪЕМ, ШИНОМОНТАЖ, БАЛАНСИРОВКУ Услуга Радиус Цена, руб.СЪЕМ – УСТАНОВКА КОЛЕСА R13-R14 90 R15 100 R16 110 R17 120 R18 130 R19-R20 150 R21R22 170 "Газель" (передние) 170 "Газель" (задние внутренние) 210 Минивен, Внедорожник I категории R14R17...»

«422338519748570 – 90 годы 70 – 90 годы Леса Сургута очень разные. Сосновые, смешанные, заболоченные. Берёзовые рощицы, подлесок. Редкие, холмистые, глухие, в общем, на любой вкус. 215903048000Раз...»

«ВведениеПервые шесть-семь лет жизни наиболее сенситивный HYPERLINK http://bibliofond.ru/view.aspx?id=464960 \l _ftn1 \o [1] и ответственный период для психического развития ребенка. В это время закладываются основы всех...»

«Районный конкурс "Современный классный час – современным детям" Методическая разработка мастер-класса "Использование интерактивных форм работы в проведении классного часа краеведческой направленности" 162179023050500 Автор: Ермашева Ирина Викторовна, классный руководитель 9 класса МБОУ...»

«ДЕМОверсия 2013. Русский язык. 4 класс Инструкция по выполнению работы На выполнение экзаменационной работы по русскому языку отводится 45 минут. Работа состоит из 2 частей. Часть 1 включает 15 заданий (А1 – А15). К каждому из них даны 4 вариан...»







 
2017 www.docx.lib-i.ru - «Бесплатная электронная библиотека - интернет материалы»

Материалы этого сайта размещены для ознакомления, все права принадлежат их авторам.
Если Вы не согласны с тем, что Ваш материал размещён на этом сайте, пожалуйста, напишите нам, мы в течении 1-2 рабочих дней удалим его.