zoukankan      html  css  js  c++  java
  • 随机生成中文姓名的脚本 dodo

    <%
    Dim i
    Dim j
    Dim HS
    Dim HE
    Dim LS
    Dim LE
    dim Result
    Result=""
    HS = 177
    HE = 247
    LS = 161
    LE = 254
    dim Max_Num
    Max_num=65536
    Randomize 
    For i = 1 To 4 
      temp1=dec2bin(Int((HE - HS) * Rnd()) + HS) 
      temp2=dec2bin(Int((LE - LS) * Rnd()) + LS) 
      Result = Result & chr(BinaryToDecimal(temp1 & temp2) - Max_num)
    Next
    response.write Result & " "
    %>
    <%
    '下面是函数
    Public Function dec2bin(mynum)'十进制到二进制
      Dim loopcounter 
      If mynum >= 2 ^ 31 Then
      dec2bin = "Too big"
      Exit Function
      End If
      Do
      If (mynum And 2 ^ loopcounter) = 2 ^ loopcounter Then
      dec2bin = "1" & dec2bin
      Else
      dec2bin = "0" & dec2bin
      End If
      loopcounter = loopcounter + 1
      Loop Until 2 ^ loopcounter > mynum
    End Function

    Public Function BinaryToDecimal(BinaryValue) '二进制到十进制的转换
      ' Returns the decimal equivalent of a binary number
      Dim idx
      Dim tmp
      Dim result
      Dim digits
      digits = Len(BinaryValue)
      For idx = digits To 1 Step -1 
       tmp = Mid(BinaryValue, idx, 1)
       If tmp = "1" Then result = result + 2 ^ (digits - idx)
      Next
      BinaryToDecimal = result
    End Function 
    %>
  • 相关阅读:
    HDU 4666 Hyperspace【最远曼哈顿距离+优先队列】
    Set集合容器
    堆排序实现
    手机网站调试神器之chrome控制台
    CC Sereja and Ballons (主席树)
    Multiset多重集合容器
    ZOJ 3626 Treasure Hunt I
    hdu 2072
    poj 3498 (最大流,枚举汇点)
    排序算法--冒泡排序
  • 原文地址:https://www.cnblogs.com/zgqys1980/p/657292.html
Copyright © 2011-2022 走看看