Aof Panel

Soru 1

Kod parçacığı hakkında programcıyı bilgilendirmek amacıyla kullanılan ve kod çalışırken devreye girmeyen yorum kısımlarını oluşturmak için kod satırında hangi işaret kullanılır?

Soru 2

Programın başlangıcını ve bitişini belirten ifadeler aşağıdakilerden hangisinde sırasıyla doğru olarak verilmiştir?

Soru 3

Kendinden önce belirtilen ifadeye, kendinden sonra verilen ifadeyi atamak için kullanılan operatör (atama operatörü) aşağıdakilerden hangisidir?

Soru 4

En sık kullanılan eylemlerden biri olan tıklatma eylemi aşağıdakilerden hangisi ile ifade edilir?

Soru 5

Nesnelere atanan eylemler için oluşturulan özel alt yordamların başlangıcını ve bitişini belirten ifadeler aşağıdakilerden hangisinde doğru olarak verilmiştir?

Soru 6

Private Sub CommandButton1_Click()

If ActiveSheet.Range("A1") > 0 Then

ActiveSheet.Range("B1") = "Sayi Pozitiftir"

ElseIf ActiveSheet.Range("A1") = 0 Then

ActiveSheet.Range("B1") = "Sayi Sifirdir"

Else

ActiveSheet.Range("B1") = "Sayi Negatiftir"

End If

End Sub

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

“A1” hücresinde “2019” sayısı yazılı olduğu durumda “CommandButton1” isimli butona tıklandığı zaman aşağıdakilerden hangisi gerçekleşir?

Soru 7

Private Sub CommandButton1_Click()

Dim sayi1 As Integer

Dim sayi2 As Integer

Dim sayi3 As Integer

sayi2 = ActiveSheet.Range("B1")

sayi3 = 0

For sayi1 = ActiveSheet.Range("A1") To sayi2

sayi3 = sayi3 + sayi1

Next

ActiveSheet.Range("C1") = sayi3

End Sub

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

“A1” hücresinde “3” sayısı ve “B1” hücresinde “5” sayısı yazılı olduğu durumda “CommandButton1” isimli butona tıklandığı zaman aşağıdakilerden hangisi gerçekleşir?

Soru 8

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?

Soru 9

Aşağıda verilen yapılardan hangisi diğerlerinden farklı olarak döngüsel yapı oluşturmak amacıyla kullanılmaz?

Soru 10

Hata bulma ve düzeltme ile ilgili olarak aşağıda verilenlerden hangisi yanlıştır?

Soru 11

Excel'de VBA ile makro yazılırken yukarıdakilerden hangisi ya da hangileri Sub/End Sub arasındaki kısmın dışında yazıldığında hataya neden olur?

Soru 12

Excel'de A4 hücresi seçiliyken aşağıdaki kod VBA editöründe "iki kez" çalıştırıldığında A3 hücresindeki değer ne olur?

Private Sub CommandButton1_Click()
ActiveCell.FormulaR1C1 = "4"
Range("A2").Select
ActiveCell.FormulaR1C1 = "5"
Range("A3").Select
ActiveCell.FormulaR1C1 = "=R[-2]C+R[+1]C"
Range("A1").Select
End Sub

Soru 13

VBA dilinde kod yazarken "For" döngü yapısı kullanırken döngüden çıkılmak istendiğinde hangisi yazılır?

Soru 14

VBA dilinde yazılmış aşağıdaki kod sonlandığında "sayac2" değişkeninin değeri ne olur? Private Sub CommandButton1_Click() Dim sayac1 As IntegerDim sayac2 As IntegerFor sayac1 = 0 To 5 sayac2 = 0 sayac2 = sayac1 + sayac2 + 1Next sayac1End Sub

Soru 15

Aşağıdadaki VBA kodu "sayac2" değişkeninde hangisini hesaplar?

Private Sub CommandButton1_Click()

Dim sayac1 As Integer
Dim sayac2 As Integer
For sayac1 = 0 To 6 Step 2
sayac2 = sayac1 + sayac2 + 1
Next sayac1

End Sub

Soru 16

VBA editöründe aşağıdaki kod çalıştırıldığında sayac2 değişkeninin son değeri ne olur?

Private Sub CommandButton1_Click()

Dim sayac1 As Integer
Dim sayac2 As Integer
sayac2 = 1
For sayac1 = 0 To 6
GoTo sayac2
sayac2 = sayac1 + sayac2
Next sayac1
sayac2:
End Sub

Soru 17

Aşağıdaki kod VBA editöründe çalıştırıldığında A1, B2, C3 hücrelerinin içeriği sırasıyla hangisi gibi olur?

Private Sub CommandButton1_Click()

Dim x As Integer
Dim y As Integer
For x = 1 To 3
For y = x To 3
Cells(x, y).Value = x + y
Next y
Next x

End Sub

Soru 18

Excel'de VBA editöründe aşağıdaki makro kodu çalıştırıldığında sayac2 değişkeninin alacağı son değer ne olur?

Private Sub CommandButton1_Click()

Dim sayac1 As Integer
Dim sayac2 As Integer
sayac2 = 1
Do Until sayac1 = 5
' GoTo sayac2
sayac1 = sayac1 + 1
sayac2 = sayac1 + sayac2

Loop
sayac2:
End Sub

Soru 19

Aşağıdaki VBA makro kodu çalıştırıldığında Excel'in ilgili çalışma sayfasındaki A1 hücresindeki çıktı ne olur?

Private Sub CommandButton1_Click()

Dim sayi_1 As Integer
Dim sayi_2 As Integer
Dim sonuc As Boolean

sayi_1 = 1
sayi_2 = sayi_2 + 1
sonuc = sayi_1 <> sayi_2
Select Case sonuc
Case Is = True
Cells(1, 1) = sayi_2 - sayi_1
Case Is = False
Cells(1, 1) = sayi_2 + sayi_1

End Select

End Sub

Soru 20

Aktif olan hücreyi değiştirmek/seçmek için kullanılan ifade hangisidir?

İŞLEM TABLOSU PROGRAMLAMA