For intIndex = 1 To intCount
        strChar = Mid$(strNumber, intIndex, 1)
        ' skipped  
  Next

for(int i=0; i<10; i++)
 {
   for(int ii=i+1; ii<10; ii++)
    {
      for(int iii.....
    }
 }

A>  For intIndex = 1 To intCount
A>        strChar = Mid$(strNumber, intIndex, 1)
A>        ' skipped  
A>  Next
A>

  for index = 1 to count
    char = mid$(strNumber, index, 1)
    ' ...
  next

Один студент очень любил давать всем элементам имена вида i, ii, i123, f(), g(), hh()...
чем весьма напрягал препода. Тот однажды зажал его в подворотне и сказал, что не примет следующую лабу, если он не будет писать длинные мнемонические идентификаторы. Студент исправился:

int long_mnemonic_identifier_i,
    long_mnemonic_identifier_ii,
    long_mnemonic_identifier_i123;

void long_mnemonic_identifier_f();
char long_mnemonic_identifier_g();
bool long_mnemonic_identifier_hh();

for(int row=0; row < 10; row++)
{
   for(int col= row; col < 10; col++)
    {
    }
}

int a;

// в роли индекса
for(a = 0; a < vec.size(); ++i) { ... }

...

// в роли элемента
for(int k = 0; k < vec.size(); ++k) { a = vec[k]; ... }

...

// в роли какого-то еще числа
a = (int) floor( exp(10) );

...

// что сейчас означает a ?

A>for(int row=0; row < 10; row++)
A>{
A>   for(int col= row; col < 10; col++)
A>    {
A>    }
A>}

A>

A>  For intIndex = 1 To intCount
A>        strChar = Mid$(strNumber, intIndex, 1)
A>        ' skipped  
A>  Next
A>

XmlNodeList nodelistGroup=nodeGrouped.SelectNodes("group");
for(int indexGroup=0; indexGroup<nodelistGroup.Count; indexGroup++)
{
    XmlNode nodeGroup=nodelistGroup.Item(indexGroup);
    Console.WriteLite("{0}:",nodeGroup.InnerText);
    XmlNodeList nodelistItem=nodeGroup.SelectNodes("item");
    for(int indexItem=0; indexItem<nodelistItem.Count; indexItem++)
    {
        XmlNode nodeItem=nodelistItem.Item(indexItem);
        Console.WriteLite(" - {0}",nodeItem.InnerText);
    }
}

for( int iCurrentPageLoopCounter = 0 ; iCurrentPageLoopCounter  < CurrentPageLoopCounterMax; iCurrentPageLoopCounter++ )
{
    DoFunction( some_collection[ iCurrentPageLoopCounter  ] );
}

for( int i = 0 ; i < page_count; i++ )
{
   DoFunction( some_collection[i] );
}

char *i = "Hello world";
while(fputc(i++, f) != EOF);

char msg[] = "Hello world";
int i = 0;

while (msg[i])
{
   fputc(msg[i], fp);
   i++;
}

char msg[] = "Hello world";

for(char* s=msg;*s;++s)
   fputc(*s, fp);

for(char* s=msg;;++s)
{
   fputc(*s, fp);
   if(!*s)break;
}

fout<<msg;

while(fputc(i++, f) != EOF);

Код должен работать...

p[i] == *(p + i) /* !!!!! */

for(it= iter->vec.begin(); it != iter->vec.end(); it ++)

A>for(it= iter->vec.begin(); it != iter->vec.end(); it ++)
A>

for(i=iter->vec.begin(), j=iter->vec.end(); i!=j;  ++i)

for_each(iter->vec.begin(), iter->vec.end(), ...);

A>p[i] == *(p + i) /* !!!!! */
A>

; 20   :         x = *p++;

    mov    edx, DWORD PTR [esi]

; 21   :         y = arr[i++];

    mov    edi, DWORD PTR [eax]
    add    esi, 4
    add    eax, 4

        mov     eax, DWORD PTR [ebp + что-то]

A>        mov     eax, DWORD PTR [ebp + что-то]
A>

; 15   :     int arr[20], *p= &arr[0];

    lea    esi, DWORD PTR _arr$[esp+92]
    lea    edi, DWORD PTR _arr$[esp+92]
; 18   :     for (i=0; i<20;)

    lea    eax, DWORD PTR _arr$[esp+92]
    mov    ecx, 20                    ; 00000014H
$L36333:

; 19   :     {
; 20   :         x = *p++;

    mov    edx, DWORD PTR [esi]

; 21   :         y = arr[i++];

    mov    edi, DWORD PTR [eax]
    add    esi, 4
    add    eax, 4
    dec    ecx
    jne    SHORT $L36333

; 22   :     }

A>for(it= iter->vec.begin(); it != iter->vec.end(); it ++)
A>

for(SomeIter i=vec.begin(), e=vec.end();i!=e;++i)

for_each(vec.begin(), vec.end(), .....);

template<class P_Type, class P_Func>
P_Func for_all(P_Type& container, P_Func func)
{
    for(P_Type::iterator i=container.begin(), e=container.end(); i!=e; ++i)
        func(*i);
    return func;
}
...
for_all(vec, ...);

hData->RealWidth    =    (hData->AddressLength+hData->Distance)*hData->CharWidth*hData->ShowAddress+(hData->BytePerLine+hData->Distance)*3*hData->CharWidth*hData->ShowHex+hData->BytePerLine*hData->CharWidth*hData->ShowAscii;

FB>hData->RealWidth    =    (hData->AddressLength+hData->Distance)*hData->CharWidth*hData->ShowAddress + 
FB>                        (hData->BytePerLine+hData->Distance)*3*hData->CharWidth*hData->ShowHex + 
FB>                        hData->BytePerLine*hData->CharWidth*hData->ShowAscii;

FB>Как говорится жизнь вынудила. А цикл где у меня такие фичи седят, я вообще лучше показывать не буду. А если обозначать буквой i, то не то что потом не вспомнишь, а на середине строки забудешь...

hData->>RealWidth    =    (hData->AddressLength+hData->Distance)*hData->CharWidth*hData->ShowAddress+(hData->BytePerLine+hData->Distance)*3*hData->CharWidth*hData->ShowHex+hData->BytePerLine*hData->CharWidth*hData->ShowAscii;
FB>

struct HDATA {
  integer ReadlWidth,
  integer AddressLength,
  integer CharWidth,
  integer Distance, 
  integer ShowAddress,
  integer ShowHex,
  integer ShowAscii; 
  inline void UpdateRealWidth() {
    RealWidth = ((AddressLength+Distance)*ShowAddress
                 + (BytePerLine+Distance)*3*ShowHex
                 + BytePerLine*ShowAscii
                ) * CharWidth;
  };
}
...
 hData->UpdateRealWidth();
...

A>  For intIndex = 1 To intCount
A>        strChar = Mid$(strNumber, intIndex, 1)
A>        ' skipped  
A>  Next
A>

  For iIndex = 1 To iCount
        sChar = Mid$(sNumber, iIndex, 1)
        ' skipped  
  Next iIndex

for(int row=0; row < 10; row++)
{
   for(int col= row; col < 10; col++)
    {
    }
}

                for x:=1 to zeml[point_x,point_z].kol_points do
                for z:=1 to zeml[point_x,point_z].kol_points do begin
                        if prin(point_n,des2)=true then begin des:=des2;goto l1;end;
                        if prin(point_n,des2+1)=true then begin des:=des2+1;goto l1;end;
                        if prin(point_n,des2+2)=true then begin des:=des2+2;goto l1;end;
                        if prin(point_n,des2+3)=true then begin des:=des2+3;goto l1;end;
                        des2:=des2+4;goto l2;

l1:                     if (x_pb=x_pe)and(z_pb=z_pe) then begin
                            edit5.Text:=floattostr(zeml[point_x,point_z].mas_point[des].Y);
                                zeml[point_x,point_z].mas_point[des].Y:=y_point.Position-5000;
                        end else begin
                                p:=y_point.Position-5000;
                                zeml[point_x,point_z].mas_point[des].Y:=zeml[point_x,point_z].mas_point[des].Y+p;

                        end;

var
    Count0:integer;
    Count1:integer;
    ....
    Count100:integer;

....
  Count0:= 0;
  Count1:= 0;
...
  Count100:= 0;
...
  while ... 
      read(F,N);
      if N=0 then  Count0:= Count0+1;
      if N=1 then  Count1:= Count1+1;
...
      if N=100 then  Count100:= Count100+1;