VBA

[Мариночка=)!]

Умоляю нада решить пару задачик в VISUAL BASIC for Application (VBA).

1)Реализовать проект подсчета количества отрицательных чисел среди заданных a, b, c.
пример:Private Sub (ByVal x As Integer)
Select Case x
Case 0
MsgBox “Ноль”
Case 1,3,5
MsgBox “Нечет”
Case 2,4,6
MsgBox “Чет”
Case Else
MsgBox “В списках констант нет такого числа.”
+ Chr(13)
“Смотри подсказку для ввода”
End Select
End Sub
Private Sub CmdРешение_Click()
Dim Числа As Integer
Числа = CInt(Text1.Text)
Анализ Числа
End Sub

2)Начав тренировки, спортсмен в первый день пробежал 10 км. Каждый следующий день он увеличивал дневную норму пробега на 10% от нормы предыдущего дня.
В документе «Пробег дня 20 км» реализовать проект (сконструировать форму и набрать программу), в котором определить, через сколько дней спортсмен будет пробегать в день больше 20 км.
Рекомендации.
1. Имена переменных, используемых в программе, на-значать русскими словами, а не абстрактными латин-скими буквами.
2. Переменная, обозначающая счетчик дней, должна быть целого типа (Integer); другие переменные – вещественного типа одинарной точности (Single).
Пример :
Function F (ByVal x As Single) As Single
F=(x–1)^2–1
End Function
Private Sub Расчёт (ByVal xn As Single, ByVal xk As Single, └
ByVal e As Single, ByRef x As Variant)
Dim N As Integer, c As Single ‘Объявление локальных переменных___
Dim mas () ‘Объявление динамического массива
If F(xn)*F(xk)>0 Then
X=”?”
MsgBox ”На данном интервале корня нет или четное кол-во корней.”
+ Chr(13)
”Задайте интервал, содержащий один корень”
Exit Sub
End If
N=0
c=(xn+xk)/2
Do While xk-xn>℮ And Abs(F(c))> ℮
c=(xn+xk)/2
N=N+1
ReDim Preserve mas (1 Tо N)
mas (N) =C
If F(xn)*F(c)>0 Then xn=c Else xk=c
Loop
x=c
If N=0 Then
ReDim Preserve mas(1 To 1)
mas (1)=x
End If
List1∙List=mas
End Sub
Private Sub Cmd Решение _Click( )
Dim a As Single, b As Single, eps As Single,
Корень As Variant
a=CSng(Text1.Text)
b=CSng(Text2.Text)
eps=CSng(Text3.Text)
Расчёт a, b, eps, корень
Text4.Text = корень
End Sub
Private Sub List1_Click()
Text5.Text=F(CSng(List1))
End Sub

нада сделать наподобию примера

[Sasha_Smirnov]

А если по-своему по-программистски?! Не пойдёть?

[Мариночка=)!]

но лучше как пример
С
1)Select Case
2) do-while-loop

[EducatedFool]

если готова заплатить - обращайся.

[Мариночка=)!]

а бесплатнинько не как

[Sasha_Smirnov]

Как. Но лень. Бедную девочку учиться заставили!..

[Мариночка=)!]

Ну прошу вас мальчики, просто на коленях перед вами стою))) умоляю решииите)

[Terran]

Ну прошу вас мальчики, просто на коленях перед вами стою))) умоляю решииите)

Видать очень надо
Вот решение первой задачи с Select Case как Вы просили.

Dim I As Integer
Private Sub CommandButton1_Click()
Select Case TextBox1.Text
Case Is < 0
I = I + 1
End Select
If CommandButton1.Tag = 0 Then
Label1.Caption = TextBox1.Text
CommandButton1.Tag = 1
Else
If CommandButton1.Tag = 1 Then
Label2.Caption = TextBox1.Text
CommandButton1.Tag = 2
Else
If CommandButton1.Tag = 2 Then
Label3.Caption = TextBox1.Text
CommandButton1.Tag = 0
MsgBox I
I = 0
End If
End If
End If
End Sub

Не забудьте у кнопки установить значение Tag = 0.