VPF::Помогите с прогой на Visual Basic - Форум программистов

Code Magister

Дата 12.6.2005, 14:59 (ссылка)

(нет голосов)

Загрузка ...

Magister of Code

Профиль
Группа: Участник
Сообщений: 155
Регистрация: 9.7.2004
Где: Kiev

Репутация: нет
Всего: 1

Короче, такая ситуация, что я первый раз в жизни вижу Visual Basic, но мне срочно нужно написать 2 проги на нем.
Поэтому прошу вашей помощи:

Цитата

Задача №1
Сколькими способами можна отобрать с b кандидатов команду, которая будет состоять из a спортсменов (выбрать a спортсменов из b кандидатов можна C = b!/(a!(b-a)!) способами - число соединений с b по a).
Определение количества способов и расчета факториала оформить в виде функций или процедур. Предусмотреть максимальную проверку даних.
В окне сообщения вивести все начальные и конечные данные.

Это сообщение отредактировал(а) _Slipknot - 12.6.2005, 22:28

--------------------

~FoX~

Дата 14.6.2005, 10:24 (ссылка)

(нет голосов)

Загрузка ...

НЕ рыжий!!!

Профиль
Группа: Участник Клуба
Сообщений: 2819
Регистрация: 8.10.2003
Где: Зеленоград

Репутация: нет
Всего: 68

Код


Private Function Fact(F As Integer) As Double
Dim k As Integer
i = 1
  For k = 1 To F
    i = i * k
  Next k
Fact = i
End Function

Private Sub Command1_Click()
Dim C As Double
Dim a As Integer
Dim b As Integer

a = Val(Text2.Text)
b = Val(Text1.Text)

C = Fact(b) / (Fact(a) * Fact(b - a))
MsgBox ("a=" & a & Chr(13) & "b=" & b & Chr(13) & "c=" & C)
End Sub

Примерно так.

Это сообщение отредактировал(а) ~FoX~ - 14.6.2005, 10:25

--------------------

…множественность никогда не следует полагать без необходимости…

Code Magister

Дата 14.6.2005, 18:22 (ссылка)

(нет голосов)

Загрузка ...

Magister of Code

Профиль
Группа: Участник
Сообщений: 155
Регистрация: 9.7.2004
Где: Kiev

Репутация: нет
Всего: 1

ОГРОМНОЕ спасибо!!!

--------------------

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Центр помощи \| Следующая тема »