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

205 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 Dizideki Bir Elemanı Döngü İle Arama Örneği

VBA Tam Sayıdaki Rakamları Ters Sırada Gösterme Örneği

VBA Yorum İçeren Tüm Hücreleri Vurgulu Yapmak

VBA 1'den N'e Kadar Olan Sayıların Toplamını Bulma Örneği

VBA Bir Stringin Ortadaki Üç Karakterini Bulma Örneği