Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Центр помощи > Помогите с прогой на Visual Basic

Автор: Code Magister 12.6.2005, 14:59

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

Цитата

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

Автор: ~FoX~ 14.6.2005, 10:24

Код


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

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

Автор: Code Magister 14.6.2005, 18:22

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