導(dǎo)讀 關(guān)于自動(dòng)抽號(hào)器,抽號(hào)器這個(gè)問題很多朋友還不知道,今天小六來為大家解答以上的問題,現(xiàn)在讓我們一起來看看吧!1、提問內(nèi)沒有被抽號(hào)的全數(shù)
關(guān)于自動(dòng)抽號(hào)器,抽號(hào)器這個(gè)問題很多朋友還不知道,今天小六來為大家解答以上的問題,現(xiàn)在讓我們一起來看看吧!
1、提問內(nèi)沒有被抽號(hào)的全數(shù)是多少。
2、所以把全數(shù)當(dāng)作1000來編程時(shí)如下:Dim n(1000) As Integer, ttl As IntegerPrivate Sub Command1_Click()Dim sc, isc = Val(Text1.Text)If sc <= 0 Or ttl < sc Then EndRandomize()Do While sc > 0i = CInt(Int(ttl*Rnd() + 1))If n(i) = 0 ThenPrint in(i) = 1: sc = sc-1End IfLoopEnd SubPrivate Sub Form_Load()ttl= 1000For i = 1 To ttln(i) = 0Next iEnd Sub。
本文分享完畢,希望對(duì)大家有所幫助。
標(biāo)簽:
免責(zé)聲明:本文由用戶上傳,如有侵權(quán)請(qǐng)聯(lián)系刪除!