Klavyeden girilen 10 sayıdan çiftlerin toplamının teklerin toplamına oranını hesaplayan program.

Sub cift_tek_oran()

   Dim i, sayac, a, cift, tek, cifttop, tektop As Integer
    Dim sonuc As Double
          sayac = 0
          cift = 0
          tek = 0
          cifttop = 0
          tektop = 0
   
        For i = 1 To 10 Step 1
            sayac = sayac + 1
            a = InputBox(sayac & ". sayıyı giriniz")
          
                If a Mod 2 = 0 Then
                    cift = cift + 1
                    cifttop = cifttop + a
                   
                 Else
                   
                    If a Mod 1 = 0 Then
                    tek = tek + 2
                    tektop = tektop + a
                
                End If
                End If
        Next i
               
                sonuc = cifttop \ tektop
                MsgBox "çift sayılar toplamının tek sayılar toplamına oranı " & sonuc
   
    End Sub