<%ติ่มซำฉัน
ดิม เจ
ดิม HS
ดิม เขา
ดิม LS
ดิม แอล
ผลลัพธ์สลัว
ผลลัพธ์ = ""
HS = 177
เขา = 247
แอลเอส = 161
เลอ = 254
สลัว Max_Num
Max_num=65536
สุ่ม
สำหรับฉัน = 1 ถึง 4
temp1=dec2bin(Int((HE - HS) * Rnd()) + HS)
temp2=dec2bin(Int((LE - LS) * Rnd()) + LS)
ผลลัพธ์ = ผลลัพธ์ & chr(BinaryToDecimal(temp1 & temp2) - Max_num)
ถัดไป
ตอบกลับเขียนผลลัพธ์ & " "
-
-
''下的是函数
-
ฟังก์ชั่นสาธารณะ dec2bin(mynum)''十进制到二进制
ตัวนับลูปสลัว
ถ้า mynum >= 2 ^ 31 แล้ว
dec2bin = "ใหญ่เกินไป"
ออกจากฟังก์ชัน
สิ้นสุดถ้า
ทำ
ถ้า (mynum และ 2 ^ loopcounter) = 2 ^ loopcounter จากนั้น
เดค2บิน = "1" & เดค2บิน
อื่น
dec2bin = "0" & dec2bin
สิ้นสุดถ้า
loopcounter = ลูปเคาน์เตอร์ + 1
วนซ้ำจนถึง 2 ^ loopcounter > mynum
ฟังก์ชันสิ้นสุด
-
ฟังก์ชั่นสาธารณะ BinaryToDecimal(BinaryValue) ''二进制到十进制的转换
'' ส่งกลับค่าทศนิยมที่เทียบเท่ากับเลขฐานสอง
ดิม idx
ติ่มซำ
ผลลัพธ์สลัว
ตัวเลขสลัว
หลัก = Len (ค่าไบนารี่)
สำหรับ idx = หลักถึง 1 ขั้นตอน -1
tmp = กลาง (BinaryValue, idx, 1)
ถ้า tmp = "1" ดังนั้น result = result + 2 ^ (ตัวเลข - idx)
ต่อไป
BinaryToDecimal =
ฟังก์ชันสิ้นสุด
ผลลัพธ์
-