溫馨提示×
您好，登錄后才能下訂單哦！
點擊 登錄注冊 即表示同意《億速云用戶服務條款》
您好，登錄后才能下訂單哦！
大家好，我是JNFQOFFICE，本人第一次寫博客，不知道如何寫，請各位多多指教！
如何產生不相同的隨機數
本人只會用VB.net，這里便用VB.NET 來編寫！
private function randomff() as integer() '定義一個函數，返回為int型數組
dim a(5) as integer
randomsize()'初始化隨機數
for i=0 to 5
a(i)=cint(rnd()*100)+1'產生一個1-100的數（包含1和100）
next
return a
end fubction
private function compares(byval a() as integer) as integer()'比較數組中是否有相同的隨機數
for i=0 to a.length-2
for j=i+1 to a.length -1
if a(i)=a(j) then
randomsize()
a(j)=cint(rnd()*100)+1'將a(j)重新生成
a=compares(a) '如果存在就開始重新比較(迭代法)
end if
next
next
return a
end function
public function returnNUM () as string
dim str as string =string.empty
dim a() as integer =randomff()
a=compares(a)
for i=0 to a.length-1
str &=a(i).tostring &space(5)
next
return str
end function
免責聲明：本站發布的內容（圖片、視頻和文字）以原創、轉載和分享為主，文章觀點不代表本網站立場，如果涉及侵權請聯系站長郵箱：is@yisu.com進行舉報，并提供相關證據，一經查實，將立刻刪除涉嫌侵權內容。
