DIM APOS ()
DIM JXCS: JXCS = 0
For i = 1 to 20
Document.write getData (6, "3/5")
NEXT
Function GetData (NUM, GL)
DIM CS, CS2, TEMPGL
Execute "Tempgl =" & GL
IF Tempgl = 0 THEN
GetData = random (NUM)
EXIT FUNCTION
END IF
IF INSTR (GL, ") THEN GL = XS2FS (CDBL (GL))
CS = CINT (Split (gl, "/") (1))
CS2 = CINT (Split (gl, "/") (0)) - 1
Jxcs = jxcs 1
IF JXCS> CS TEN JXCS = 1
IF jxcs = 1 THEN
Scarray CS2, CS
END IF
IF inaray (apos, jxcs) THEN
GetData = NUM
Else
GetData = random (NUM)
END IF
END FUNCTION
Function Scarray (NUM1, NUM2)
DIM II, JJ, N1
Redim apos (NUM1)
For ii = 0 to Num1
APOS (II) = - 1
NEXT
For ii = 0 to Num1
Do While True
Randomize
N1 = int (RND * NUM2) 1
For jj = 0 to Num1
IF apos (jj) = n1 Then EXIT for
NEXT
IF jj = Num1 1 THEN
APOS (Found_1 (APOS)) = N1
Exit do
END IF
loop
NEXT
END FUNCTION
Function Found_1 (Arr)
FOUND_1 = -1
DIM III
For III = 0 to Ubound (Arr)
IF Arr (III) = - 1 THEN
Found_1 = iii
EXIT FUNCTION
END IF
NEXT
END FUNCTION
Function Inarray (Arr, Num1)
DIM II
Inaray = false
For Ii = 0 to Ubound (Arr)
IF Arr (II) = Num1 Then
Inaray = true
EXIT FUNCTION
END IF
NEXT
END FUNCTION
Function Random (Inum)
DIM N
Do While True
Randomize
n = int (RND () * 10)
IF n <> inum kil
Random = N
Exit do
END IF
loop
END FUNCTION
Function XS2FS (NUM1)
Dim Len1, Gys, SNUM
Snum = Split (CSTR (Num1), ".") (1)
LEN1 = 10 ^ LEN (SNUM)
FM = len1
FZ = Num1 * len1
Gys = getGys (fm, fz)
FM = FM / GYS
FZ = FZ / GYS
XS2FS = FZ & "/" & fm
END FUNCTION
Function getGys (NUM1, NUM2)
DIM TEMP, II
getGys = 1
IF Num2> Num1 TENTEMP = Num2
Num2 = NUM1
Num1 = TEMP
END IF
For Ii = Num2 to 2 Step -1
IF Num1 Mod Ii = 0 and Num2 Mod Ii = 0 THEN
getGys = ii
EXIT FUNCTION
END IF
NEXT
END FUNCTION
script>