Тест для первоклашек

[greenadine]

Чистила старые заметки и наткнулась на этот прикол. В ЖЖ его не встречала, так что опубликую :
Посчитайте количество букв F в следующей фразе :

FINISHED FILES ARE THE RESULT OF YEARS OF SCIENTIFIC STUDY COMBINED WITH THE EXPERIENCE OF YEARS.

Сколько получилось?

Правильный ответ : 6
The brain can not process "OF".
Incredible or what? Anyone who counts all six "F" on the first go is a genius - three
is normal, four quite rare.

Comments

[andreylv.livejournal.com]

Kruto! I got 4 :-)

[fenechka.livejournal.com]

Я тоже.
Не возьмут нас в первый класс :)

6

[azuri.livejournal.com]

пора в первый класс:)

[kartinka.livejournal.com]

А я 6 сразу насчитала :) Мне можно во второй!

6

[a-v.livejournal.com]

I am a genius.

I got 6. Then I wrote this :

Sub h()
Dim strA As String, intC As Integer, intL As Integer, intF As Integer
strA = "FINISHED FILES ARE THE RESULT OF YEARS OF SCIENTIFIC STUDY COMBINED WITH THE EXPERIENCE OF YEARS"
intF = 0
intL = Len(strA)
For intC = 1 To intL
If Mid(strA, intC, 1) = "F" Then
intF = intF + 1
End If
Next intC
MsgBox (Str(intF))
End Sub

and got 6. Then I saw your result : I am a genius !

;-DDD

[greenadine.livejournal.com]

Кто мы сомневался, a_v!
А что это за язык?

Re: ;-DDD

[a-v.livejournal.com]

ya somnevalsya.

yazyk - Visual Basic. (v Excel'e)

[greenadine.livejournal.com]

В продвинутых версиях VBA можно написать что-то вроде

Sub h2()
Dim strA As String
Dim astrA as String()
strA = "FINISHED FILES ARE THE RESULT OF YEARS OF SCIENTIFIC STUDY COMBINED WITH THE EXPERIENCE OF YEARS"
astrA = split(strA, "F")
MsgBox (ubound(astrA) - lbound(astrA) + 1)
End Sub

:)
Знание - сила!
Я сегодня, благодаря знанию VBA Excel первым в офисе "решил" тест на знание местных телесериалов. Они еще не закончили шутить, что я, по теории, вопроса на 2-3 отвечу максимум.
Сразу же пошел шепоток о "русских хакерах"...

[a-v.livejournal.com]

Ne, moi VBA (Office 97) ne ponimaet ni Dim ... String() ni Split. :-(

No voobshe user greenadine mne nravitsya. Vot kto genius ! Sparashivaet, chto za yazyk, a cherez 10 minut vydaet na nem enhanced super-version programmy! ;-)) Kak posle etogo ne verit' v russkix hacker'ov?

Скромно потупившись...

[greenadine.livejournal.com]

Следи за юзерпикчами, у нас у каждого своя теперь ;-)

Тупо скромнея...

[greenadine.livejournal.com]

А за комплемент спасибо :)

[ex-usachev972.livejournal.com]

6
внимательнее надо быть.

[tamperevident.livejournal.com]

wow! i counted three.

I skajite chto telepatii net =)))

[(Anonymous)]

http://www.livejournal.com/talkread.bml?journal=p_k&itemid=27652
I toje iz Francii chel =)))) i toje friend avva =))
Kalvado