İŞLEM TABLOSU PROGRAMLAMA - Deneme Sınavı - 4
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?
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?
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?
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").SelectEnd Sub