VBA Bir Dizideki Tek Sayıların Adetini Bulma Örneği | Yazılım Ders

VBA Bir Dizideki Tek Sayıların Adetini Bulma Örneği

204 Okunma VBA

"VBA" Programlama dilinde "Bir Dizideki Tek Sayıların Adetini Bulma Örneği" ile ilgili kod örneği aşağıda gösterilmiştir.

Sub Main()
    Dim numbers(7) As Integer
    numbers = Array(8, 3, 1, 6, 2, 4, 5, 9)
    Dim count As Integer
    count = 0
    
    Dim i As Integer
    For i = 0 To UBound(numbers)
        If numbers(i) Mod 2 <> 0 Then
            count = count + 1
        End If
    Next i
    
    MsgBox "Dizideki tek sayı adeti: " & count
End Sub

Dizi Bulma Array Tek Sayı VBA

İlginizi Çekebilir

VBA Yarıçap Girilen Bir Dairenin Çevre ve Alanını Bulma Örneği

VBA Bir Stringdeki Noktalama İşaretlerini Kaldırma Örneği

VBA Text Wrap Kaldırma

VBA Bir Sayının 5'in Katı Olup Olmadığını Gösteren Örnek

VBA Boş Olan Tüm Hücreleri Vurgulu Yapmak