const NUM int = 100
創(chuàng)新互聯(lián)建站服務(wù)項(xiàng)目包括鎮(zhèn)雄網(wǎng)站建設(shè)、鎮(zhèn)雄網(wǎng)站制作、鎮(zhèn)雄網(wǎng)頁制作以及鎮(zhèn)雄網(wǎng)絡(luò)營銷策劃等。多年來,我們專注于互聯(lián)網(wǎng)行業(yè),利用自身積累的技術(shù)優(yōu)勢、行業(yè)經(jīng)驗(yàn)、深度合作伙伴關(guān)系等,向廣大中小型企業(yè)、政府機(jī)構(gòu)等提供互聯(lián)網(wǎng)行業(yè)的解決方案,鎮(zhèn)雄網(wǎng)站推廣取得了明顯的社會效益與經(jīng)濟(jì)效益。目前,我們服務(wù)的客戶以成都為中心已經(jīng)輻射到鎮(zhèn)雄省份的部分城市,未來相信會繼續(xù)擴(kuò)大服務(wù)區(qū)域并繼續(xù)獲得客戶的支持與信任!
for i := 0; i NUM; i += 1 {
梁辯rand.Seed(int64(i))
fmt.Printf("%d\t", rand.Int63n(int64(NUM)))
}
其實(shí)在循環(huán)橡閉缺里面這點(diǎn)時(shí)間間隔,納秒也是跟不上的。
還有,你用sleep的方法肯定是不能接受的!!態(tài)檔!
純粹使用EXCEL公式,是不可能的,用VBA編個(gè)自動生成程序倒還可以。如果不想用VBA的話,只能配合手工操作了。
如果想1至10的每個(gè)數(shù)字都出來的話,直接在A列填上1至10,然后再復(fù)制一次。湊足20個(gè)數(shù)了,然后在B列輸入公式,=RAND(),將A列和B列選中,按B列排序。A列的順序就亂了,1至10的每個(gè)數(shù)正好是出現(xiàn)兩次啊。
還有一個(gè)辦法,就是先在A列輸入公式=INT(1+RAND()*10),向下拖至你需要的隨機(jī)數(shù)的一半,產(chǎn)生了大約10個(gè)隨機(jī)數(shù)姿旦兄之后,將這幾個(gè)隨機(jī)數(shù)選中,復(fù)跡襲制,在原位進(jìn)行數(shù)值方式的選擇性粘帖(目的是去掉公式),然后將重復(fù)的去掉,剩下的只保留能被20整除的個(gè)數(shù),如保留4個(gè)、5個(gè)、或10個(gè),然后將這幾個(gè)數(shù)復(fù)制至20個(gè),這樣得出來的隨機(jī)數(shù)肯定次數(shù)遲大相同。然后在B列輸入公式=RAND(),選中AB列,按B列排序,A列的隨機(jī)數(shù)就亂序了,A列數(shù)據(jù)就是你想要的。
Dim arr(1 To 20) As Integer, sum As Integer, max As Integer, min As Integer, avg As Single, i As Integer, j As Integer
Private Sub Form_Click()
Print "20個(gè)隨機(jī)數(shù)是:"
For i = 1 To 20
Randomize
arr(i) = Int((99 - 10 + 1) * Rnd + 10) '生成10到99的兩位數(shù)
Print arr(i);
If i Mod 10 = 0 Then Print '每行輸出10個(gè)隨機(jī)數(shù)
sum = sum + arr(i)
Next
avg = sum / 20
For i = 1 To 19
For j = i + 1 To 20
If arr(i) arr(j) Then
t = arr(i): arr(i) = arr(j): arr(j) = t '由小到大彎猛排序
End If
Next
Next
max = arr(20): min = arr(1)
Print "最大答鬧御值:" max
Print "最小值清巖:" min
Print "平均值:" avg
End Sub
math/rand 中的所有整數(shù)函數(shù)都租脊生成非負(fù)數(shù).
示例 main.go
執(zhí)行
同理,需要int64 int32類型的隨機(jī)數(shù)只要修改隨機(jī)函數(shù)
但是需要注意 math/rand 幾個(gè)函數(shù)的取值區(qū)間!如Intn的范圍[0, n)。[0,20),20會納凳取不到
我自己的需求洞型旅這樣寫已足夠
名稱欄目:go語言生成20位隨機(jī)數(shù) go生成隨機(jī)字符串
文章轉(zhuǎn)載:http://vcdvsql.cn/article6/ddpsdog.html
成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián),為您提供網(wǎng)站改版、做網(wǎng)站、電子商務(wù)、定制網(wǎng)站、網(wǎng)站導(dǎo)航、面包屑導(dǎo)航
聲明:本網(wǎng)站發(fā)布的內(nèi)容(圖片、視頻和文字)以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主,如果涉及侵權(quán)請盡快告知,我們將會在第一時(shí)間刪除。文章觀點(diǎn)不代表本網(wǎng)站立場,如需處理請聯(lián)系客服。電話:028-86922220;郵箱:631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載,或轉(zhuǎn)載時(shí)需注明來源: 創(chuàng)新互聯(lián)