ASP随机扔骰子点数方法

取消只看楼主收藏回复

• 枫之精英
  

  <%

  Randomize

  Dim m_strRandArray,m_intRandlen,m_strRandomize1,m_strRandomize2,m_strRandomize3,i

  m_strRandArray = Array(1,2,3,4,5,6,7)

  m_intRandlen = 1 ’’

  for i = 1 to m_intRandlen

  m_strRandomize1 = m_strRandomize & m_strRandArray(clng((5*Rnd)))

  next

  hlzy_num1 = cint(m_strRandomize1)

  for i = 1 to m_intRandlen

  m_strRandomize2 = m_strRandomize & m_strRandArray(clng((5*Rnd)))

  next

  hlzy_num2 = cint(m_strRandomize2)

  for i = 1 to m_intRandlen

  m_strRandomize3 = m_strRandomize & m_strRandArray(clng((5*Rnd)))

  next

  hlzy_num3 = cint(m_strRandomize3)

   

  suiji=hlzy_num1&hlzy_num2&hlzy_num3

  %>

  <%=suiji%>

  
  

  1楼  2019/7/3 16:02:59  回复