w4-1

'olyan négyjegyű számok darabszáma, ahol
' - a százas helyi értéken 8
' - az egyes helyi értéken 7 áll

Sub foo()

  'c, mint számváltozó, i, mint index
  Dim c As Integer, i As Integer

  c = 1000
  i = 0

  Do While c <= 9999
    If Mid(c, 2, 1) = 8 And Mid(c, 4, 1) = 7 And c Mod 3 = 0 Then
      i = i + 1
    End If
    c = c + 1
  Loop

  Debug.Print (i)

End Sub

'Megjegyzés: 30-at kell kiírnia