关于51单片机7447驱动译码器驱动4位数码管。。

（图片7447 QG线是接好了的截图有误）根据书上的例子用7447驱动4位数码管显示一个四位数字，不知道为什么就是不能实现，每次好像就只能显示一个数字之后就消失刷新了。求助个为大神帮帮忙啊。谢谢啦！附上书上程序。
#include "reg51.h"
void delay(int);
main()
{while(1)
{
P0=0x4e;
delay(4);
P0=0x5d;
delay(4);
P0=0x6b;
delay(4);
P0=0x77;
delay(4);
//delay(4);
  }
  }
  void delay(int x)
  {
  int n,m;
  for(n=0;n<=12;n++)
  for(m=0;m<=x;m++);
  }

延时太短了,加长点试一下

延时时间太短啦，加长点试试