<%Dim i
ディム・ジェイ
ディムHS
ディム HE
ディムLS
ディムLE
薄暗い結果
結果=""
HS = 177
HE = 247
LS = 161
LE = 254
薄暗い最大数
Max_num=65536
ランダム化
i = 1 ～ 4 の場合
temp1=dec2bin(Int((HE - HS) * Rnd()) + HS)
temp2=dec2bin(Int((LE - LS) * Rnd()) + LS)
結果 = 結果 & chr(BinaryToDecimal(temp1 & temp2) - Max_num)
次へ
response.write 結果 & " "
%>
<%
''次は関数です
''------------------------------------------
Public Function dec2bin(mynum)''十进制へ二进制
ディムループカウンター
mynum >= 2 ^ 31 の場合
dec2bin = "大きすぎます"
終了関数
終了の場合
する
If (mynum And 2 ^ ループカウンタ) = 2 ^ ループカウンタ then
dec2bin = "1" & dec2bin
それ以外
dec2bin = "0" & dec2bin
終了の場合
ループカウンタ = ループカウンタ + 1
2 までループ ^ ループカウンタ > mynum
終了機能
''------------------------------------------
Public Function BinaryToDecimal(BinaryValue) ''二进制と十进制の转换
'' 2 進数に相当する 10 進数を返します
ディムIDX
薄暗い温度
暗い結果
暗い数字
桁数 = Len(BinaryValue)
idx = 桁の場合 To 1 ステップ -1
tmp = Mid(BinaryValue, idx, 1)
tmp = "1" の場合、 result = result + 2 ^ (数字 - idx)
次
BinaryToDecimal = 結果
関数の終了
%>