<%

Sub Mylotto

     

    dim lotto(6)
    randomize

   

    for j = 1 to 6
       k = Int(45*Rnd+1) '1부터 45까지의 난수 발생
       lotto(j) = k

      

       for m = 1 to j  '같은수가 있는지 비교
         if  lotto(j) = lotto(m-1) then '같은 숫자가 있다면
           k = Int(45*Rnd+1)
           lotto(j)=k
         end if
       next

    next

    '오름차순 정렬
    for i = 0 to ubound(lotto) 'ubound 함수 배열의 가장 큰 첨자값을 리턴
       for j = i to ubound(lotto)
         if lotto(i) > lotto(j) then
            temp=lotto(j)
            lotto(j) = lotto(i)
            lotto(i) = temp
         end if
      next
    next

 

    '로또 번호 출력
    for i = 1 to 6
        Response.Write lotto(i) & "  "
     next

 

end Sub

 

call Mylotto

%>