各位大大好，以下是我的程式碼，請大大們幫忙，哪個地方寫錯了？ 謝謝願意點進來看的大大，感激不盡！ Q1：我有用Debug檢查，最後listbox1要加入的xnum的值是9999沒錯，那是xnum[a]的問題嗎？ Q2：這有用到副程式，我的能力不強，寫錯請幫忙我指出哪個地方，謝謝。我知道已經有許多發問者問過猜數字之類的問題，但~都無法解決我的疑問。 const cdim=4; //全域變數 procedure checknum (xnum:array of integer;var xresult:integer); var xcheck,b:integer; begin xresult:=1; b:=0; for xcheck:=(cdim-1) downto 0 do begin if (xcheck = xnum[b]) then b:=b 1; end; if (b=0)and(xcheck>=1) then xresult:=0; end; procedure TForm1.btnaresultClick(Sender: TObject); var a,xtmp,b,xresult:integer; xnum:array[0..(cdim-1)] of integer; begin listbox1.items.Clear; for a:=1 to 9999 do begin xtmp:=a; for b:=(cdim-1) downto 0 do begin xnum[b]:=xtmp mod 10; xtmp:=xtmp div 10; end; checknum(xnum,xresult); end; if (xresult=1) then listbox1.Items.Add(inttostr(xnum[a])); end;

------
拉薩一隻狗

附加檔案：46039c08772fa_guess.rar

for a:=1 to 9999 do begin
xtmp:=a;
for b:=(cdim-1) downto 0 do begin
xnum[b]:=xtmp mod 10;
xtmp:=xtmp div 10;
end;
checknum(xnum,xresult);
if (xresult=1) then listbox1.Items.Add(IntToStr(xnum[0]) IntToStr(xnum[1]) IntToStr(xnum[2]) IntToStr(xnum[3]));
end;