Bakteri Örneği

Yapmamız gereken sadece visual basic module açmak
'Bir bakteri cinsi her dört dakikada bir 2 ye bölünerek çoğalmaktadır.Başlangıçta bir bakteri olduğunu kabul edersek birsaat sonra oluşacak bakteri sayısını bulan proram'ı yazın.

Module Module1

    Sub Main()
        Dim i, b As Integer
        b = 1
        For i = 0 To 60 Step 4
            b = b * 2
            Console.WriteLine(i & ".dakikada = " & b & "bakteri")
        Next
        Console.ReadLine()
    End Sub

End Module