<%Atenuar
tenue j
HS tenue
tenue él
LS tenue
LE tenue
Resultado tenue
Resultado=""
SA = 177
ÉL = 247
LS = 161
LE = 254
tenue Max_Num
Núm_máx=65536
Aleatorizar
Para i = 1 a 4
temp1=dec2bin(Int((HE - HS) * Rnd()) + HS)
temp2=dec2bin(Int((LE - LS) * Rnd()) + LS)
Resultado = Resultado y chr(BinaryToDecimal(temp1 y temp2) - Max_num)
Siguiente
respuesta.escribir resultado & " "
%>
<%
''下面是函数
''-------------------------------------------
Función pública dec2bin(mynum)''十进制到二进制
contador de bucle tenue
Si mynum >= 2 ^ 31 Entonces
dec2bin = "Demasiado grande"
Función de salida
Terminar si
Hacer
Si (mynum y 2 ^ contador de bucles) = 2 ^ contador de bucles Entonces
dec2bin = "1" & dec2bin
Demás
dec2bin = "0" & dec2bin
Terminar si
contador de bucles = contador de bucles + 1
Bucle hasta 2 ^ loopcounter > mynum
Función final
''-------------------------------------------
Función pública BinaryToDecimal(BinaryValue) ''二进制到十进制的转换
'' Devuelve el equivalente decimal de un número binario
idx tenue
Tmp tenue
resultado oscuro
Dígitos oscuros
dígitos = Len(ValorBinario)
Para idx = dígitos A 1 Paso -1
tmp = Medio(ValorBinario, idx, 1)
Si tmp = "1" Entonces resultado = resultado + 2 ^ (dígitos - idx)
Próximo
BinaryToDecimal = resultado
Función final
%>