谁能帮我修改下？
我做的没有循环，哪位能帮我用循环来做？谢谢了.CMy666Doc* pDoc = GetDocument();
ASSERT_VALID(pDoc);
// TODO: add draw code for native data here
CFont Font;
//CFont *OldFont;
Font.CreateFont(30,20,0,0,400,FALSE,FALSE,0,
ANSI_CHARSET,OUT_DEFAULT_PRECIS,
CLIP_DEFAULT_PRECIS,DEFAULT_QUALITY,
DEFAULT_PITCH|FF_SWISS,"黑体");
pDC->SelectObject(&Font);
pDC->TextOut(30,200,"只");
Font.DeleteObject();
Font.CreateFont(40,30,0,0,0,FALSE,FALSE,0,
ANSI_CHARSET,OUT_DEFAULT_PRECIS,
CLIP_DEFAULT_PRECIS,DEFAULT_QUALITY,
DEFAULT_PITCH|FF_SWISS,"黑体");
pDC->SelectObject(&Font);
pDC->TextOut(70,200,"有");
Font.DeleteObject();
Font.CreateFont(50,40,0,0,400,FALSE,FALSE,0,
ANSI_CHARSET,OUT_DEFAULT_PRECIS,
CLIP_DEFAULT_PRECIS,DEFAULT_QUALITY,
DEFAULT_PITCH|FF_SWISS,"黑体");
pDC->SelectObject(&Font);
pDC->TextOut(130,200,"付");
Font.DeleteObject();
Font.CreateFont(60,50,0,0,400,FALSE,FALSE,0,
ANSI_CHARSET,OUT_DEFAULT_PRECIS,
CLIP_DEFAULT_PRECIS,DEFAULT_QUALITY,
DEFAULT_PITCH|FF_SWISS,"黑体");
pDC->SelectObject(&Font);
pDC->TextOut(210,200,"出");
Font.DeleteObject();
Font.CreateFont(70,60,0,0,400,FALSE,FALSE,0,
ANSI_CHARSET,OUT_DEFAULT_PRECIS,
CLIP_DEFAULT_PRECIS,DEFAULT_QUALITY,
DEFAULT_PITCH|FF_SWISS,"黑体");
pDC->SelectObject(&Font);
pDC->TextOut(310,200,"才");
Font.DeleteObject();
Font.CreateFont(80,70,0,0,400,FALSE,FALSE,0,
ANSI_CHARSET,OUT_DEFAULT_PRECIS,
CLIP_DEFAULT_PRECIS,DEFAULT_QUALITY,
DEFAULT_PITCH|FF_SWISS,"黑体");
pDC->SelectObject(&Font);
pDC->TextOut(430,200,"有");
Font.DeleteObject();
Font.CreateFont(90,80,0,0,400,FALSE,FALSE,0,
ANSI_CHARSET,OUT_DEFAULT_PRECIS,
CLIP_DEFAULT_PRECIS,DEFAULT_QUALITY,
DEFAULT_PITCH|FF_SWISS,"黑体");
pDC->SelectObject(&Font);
pDC->TextOut(570,200,"收");
Font.DeleteObject();
Font.CreateFont(100,90,0,0,400,FALSE,FALSE,0,
ANSI_CHARSET,OUT_DEFAULT_PRECIS,
CLIP_DEFAULT_PRECIS,DEFAULT_QUALITY,
DEFAULT_PITCH|FF_SWISS,"黑体");
pDC->SelectObject(&Font);
pDC->TextOut(730,200,"获");
Font.DeleteObject();
