İşlem Tablosu Programlama Deneme Sınavı Sorusu #1289729

Private Sub CommandButton1_Click()

 

Dim sayi1 As Integer

 

sayi = 1

 

Do While sayi < 10

    sayi = sayi * 2

Loop

 

ActiveSheet.Range("A1") = sayi

   

End Sub

Yukarıda “CommandButton1” isimli butonun tıklatma eylemini gösteren kod parçası verilmiştir.

“CommandButton1” isimli butona tıklandığı zaman aşağıdakilerden hangisi gerçekleşir?


“A1” hücresine "8" yazılır.

“A1” hücresine "10" yazılır.

“A1” hücresine "16" yazılır.

“A1” hücresine "45" yazılır.

“A1” hücresine "55" yazılır.


Yanıt Açıklaması:

Verilen kod parçası, “sayi” değeri 10’dan küçük olduğu sürece “sayi” değerinin 2 katını alıp “sayi” değerine atar ve en sonunda “sayi” değerini “A1” hücresine yazdırır.

Buna göre, “CommandButton1” isimli butona tıklandığı zaman “A1” hücresine "16" yazılır.

Yorumlar
  • 0 Yorum