int a[46],b[46]={0};
   for(int i=0;i<46;i＋＋)
      a[i]=i＋1;
   vector v(a, a＋46);
   for(int count=0;count<20;count＋＋)
   {
      random_shuffle(v.begin(), v.end());
      for(int i=0;i<=6;i＋＋)
      {
         b[v[i]]＋＋;   //計算每個數字出現的次數
         Memo1->Lines->Text=Memo1->Lines->Text＋IntToStr(v[i])＋"\t";
      }
      Memo1->Lines->Add("");
  }
  for(int i=0;i<46;i＋＋)
    Memo1->Lines->Add(IntToStr(i＋1)＋"出現的次數= "＋FloatToStr((float)b[i]/140)) ;