| Private Sub Command1_Click() --> kombinasyon için
Dim n As Double
Dim r As Double
Dim x As Double
Dim y As Double
Dim F As String
Dim g As String
Dim v As String
x = 1
y = 1
n = InputBox("Kümenin eleman sayısını (n) giriniz")
If n < 0 Then
MsgBox "Kombinasy
Devamını Görmek İçin Üye Girişi Yapmanız Gerekmektedir. | 
