İŞLEM TABLOSU PROGRAMLAMA - Deneme Sınavı - 3
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
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 sayac1sayac2:End Sub
Private Sub CommandButton1_Click()
Dim x As IntegerDim y As IntegerFor x = 1 To 3 For y = x To 3 Cells(x, y).Value = x + y Next yNext x
End Sub
Private Sub CommandButton1_Click()
Dim sayac1 As IntegerDim sayac2 As Integersayac2 = 1Do Until sayac1 = 5' GoTo sayac2sayac1 = sayac1 + 1sayac2 = sayac1 + sayac2
Loopsayac2:End Sub
Private Sub CommandButton1_Click()
Dim sayi_1 As IntegerDim sayi_2 As IntegerDim sonuc As Boolean
sayi_1 = 1sayi_2 = sayi_2 + 1sonuc = sayi_1 <> sayi_2Select Case sonucCase Is = TrueCells(1, 1) = sayi_2 - sayi_1Case Is = FalseCells(1, 1) = sayi_2 + sayi_1
End Select
End Sub
yukarıdaki satırda toplam adında bir değişken yaratılmıştır. X yerine hangi değer yazılırsa bu değişkenin tam sayı formatında olacağı belirtilmiş olur?