VBA! составить форму.

[Irin12]

Здравствуйте! Помогите пожалуйста с информатикой!

Разработайте форму пользователя и напишите макросы для решения задачи. Напишите в среде Excel макрос, который среди трех чисел а, b и с должен подсчитывать:

Количество четных чисел.
Количество положительных чисел.
Среднее арифметическое из всех чисел.

Буду очень признательна за помощь!)

@темы: Basic, Excel

Comments

У вас конкретные вопросы или вы хотите, что мы за вас все задание выполнили?

[Irin12]

нет, мне просто нужно чтобы объяснили как записать в форме: Количество четных чисел, Количество положительных чисел, Среднее арифметическое из всех чисел.
Private Sub CommandButton1_Click()
Dim a As Single, b As Single, c As Single
Dim k As Integer
a = Val(TextBox1)
b = Val(TextBox2)
c = Val(TextBox3)
k = 0
а дальше нужно записать, используя функцию If, не знаю как это сделать( подскажите пожалуйста!

[Слушатель]

Irin12,

используя функцию If, не знаю как это сделать

www.programm-school.ru/rabota_s_usloviem_if_v_v...

[Irin12]

мы делали с нечетными числами, а вот как сделать с четными не знаю(
If a Mod 2 <> 0 Then k = k + 1
If b Mod 2 <> 0 Then k = k + 1
If c Mod 2 <> 0 Then k = k + 1

[Слушатель]

Irin12,
1. Что такое Mod?
2. Что такое четное число?

Проверив число на чётность используя если ... то... - вы решите задачу. Также обратите внимание, что вам нужно подсчитать 3 количества.

[Irin12]

Private Sub CommandButton1_Click()
Dim a As Single, b As Single, c As Single
Dim k As Integer, m As Single
a = Val(TextBox1)
b = Val(TextBox2)
c = Val(TextBox3)
k = 0
m = 0
If a Mod 2 = 0 Then k = k + 1 And k >= 0
If b Mod 2 = 0 Then k = k + 1 And k >= 0
If c Mod 2 = 0 Then k = k + 1 And k >= 0
Label4.Caption = "Количество четных чисел равно " & k & " Количество положительных чисел равно " & k & "."
End Sub
у меня все работает, хотя возможно не правильно записано)

я знаю, что ср арифметическое- это сумма чисел, деленная на их количество , только вот как ее записать в форме???

[Слушатель]

только вот как ее записать в форме?

Воспользуйтесь TextBox. Почитать о нём можно например здесь: vba-help.ru/vbahelp/forms/TextBox/

[Irin12]

извините, но я не совсем поняла, вы не могли бы объяснить более доступно, что нужно сделать?