<form id="hz9zz"></form>
  • <form id="hz9zz"></form>

      <nobr id="hz9zz"></nobr>

      <form id="hz9zz"></form>

    1. 明輝手游網中心:是一個免費提供流行視頻軟件教程、在線學習分享的學習平臺!

      一個不錯的隨機函數

      [摘要]<%Dim myarrFor i = 0 To 100Randomizeno = Int((1000-1+1)*Rnd+1)For j = 0 To iIf no <> myarr...
      <%
      Dim myarr
      For i = 0 To 100
      Randomize
      no = Int((1000-1+1)*Rnd+1)
      For j = 0 To i
      If no <> myarr(j) And no <> "" Then
      j = j + 1
      Else
      Exit For
      End If
      myarr(i) = no
      Next
      If i = 21 Then
      Exit For
      End If
      Next
      %>




      日韩精品一区二区三区高清