int one=0,two=0,three=0,four=0,five=0,six=0;
   int x;
   randomize();
   for(int i=0;i<10000;i＋＋;)
   {
      x=rand()%6 1;
      switch(x)
      {
         case 1:
              one＋＋;
              continue;
         case 2:
              two＋＋;
              continue;
         case 3:
              three＋＋;
              continue;
         case 4:
              four＋＋;
              continue;
         case 5:
              five＋＋;
              continue;
         case 6:
              six＋＋;
              continue;
      }
   }
   Memo1->Clear();
   Memo1->Lines->Add("1點==" IntToStr(one));
   Memo1->Lines->Add("2點==" IntToStr(two));
   Memo1->Lines->Add("3點==" IntToStr(three));
   Memo1->Lines->Add("4點==" IntToStr(four));
   Memo1->Lines->Add("5點==" IntToStr(five));
   Memo1->Lines->Add("6點==" IntToStr(six));

int dice , degree[6]={0} ;    for(int i = 0 ; i <10000 , i  ){
  dice = random(5) ;
  degree[dice]   ;
}