請問各位大大： 小弟想用Java寫一個產生亂數的程式，但不想用random() or java所提供的函式，來做，不知有什麼方法可以做得到呢? 可否請會寫的大大教一下，感激不盡。 ps:小弟已找過站內的文章，但一直沒有頭緒。

先了解怎麼產生亂數,再寫程式也不急啊 那就是: 先找一個亂數表, 再循序去索引出來.必要時,加上一上範圍運算(如 mod 100). 參考: http://bbs3.nsysu.edu.tw/txtVersion/treasure/cse-algo/M.1039276858.A.html

一般是抓時間, 然後隨便自己想一套演算法產生亂數, 例如 秒*分 / 3600 (秒/60) ^ 3 ********************* 如果您滿意答案,請結案 *********************

------
能力不足，求助於人；有能力時，幫幫別人；如果您滿意答覆，請適時結案！

子曰：問有三種，不懂則問，雖懂有疑則問，雖懂而想知更多則問！

小弟有找到最常用的公式，但仍不知此公式應如何運用，可否請大大為小弟解說一下，謝謝。 Xn 1 = (aXn c) mod m, n>=0 式中初值 X0, 乘數 a, 增數 c 均不為負, 而且都小於模數 m。 適當選擇 X0, a, c, 和 m 值， 即可產生亂數。 以 32 bits 的計算機為例， 可取 a=3612, c=5701, m=566927。 產生亂數的方法有好幾種，這種方法稱為線性同餘法 (linear congruential method)。

unit Unit1;    interface    uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;    type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Button1: TButton;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;    var
  Form1: TForm1;
  a, c, m, Xn: Integer;    implementation    {$R *.dfm}    procedure TForm1.FormCreate(Sender: TObject);
var
  Hour, Min, Sec, MSec: Word;
begin
  a:=3612;
  c:=5701;
  m:=566927;
  DecodeTime(Now, Hour, Min, Sec, MSec);
  Xn:= Min * 60   Sec;
end;    function  MyRand:Integer;
begin
//Xn 1 = (aXn   c) mod m, n>=0 式中初值 X0, 乘數 a, 增數 c 均不為負, 而且都小於模數 m。
//適當選擇 X0, a, c, 和 m 值， 即可產生亂數。 以 32 bits 的計算機為例， 可取 a=3612, c=5701, m=566927。
//產生亂數的方法有好幾種，這種方法稱為線性同餘法 (linear congruential method)。
  Xn := (a* Xn   c) mod m;
  MyRand := Xn;
end;    procedure TForm1.Button1Click(Sender: TObject);
begin
  Edit1.Text := IntToStr(MyRand);
end;    end.    

********************* 如果您滿意答案,請結案 *********************

------
能力不足，求助於人；有能力時，幫幫別人；如果您滿意答覆，請適時結案！

子曰：問有三種，不懂則問，雖懂有疑則問，雖懂而想知更多則問！

這是我最後寫出來的方法，請大大多指導，告訴小弟還有什麼地方可以改進的

import java.util.*;
public class myRandom{
    public static void chkRand(int[] myRand){
        int[] chkR = new int[10];
        for (int j=0 ; j< myRand.length ;j  )
        {
          int jc = myRand[j]/10001;
          chkR[jc]  ;
        }
        int count=0, total=10000;
        for (int k=0; k< chkR.length; k  )
        {
            System.out.println(count " ~ " total " ：" chkR[k] " 次");
            count = total 1;
            total  =10000;
        }
        System.out.println("平均出現的次數約為一萬次左右");
    }
    public static void main(String[] args){
        int[] myRand = new int[100001];
        int i = 0;
        while (i <= 100000){
           long seed = System.nanoTime();
           seed = (seed*16807)0001;
           myRand[i] = (int)seed;
           i  ;
        }
        chkRand(myRand);
    }
}