导读 关于自动抽号器,抽号器这个问题很多朋友还不知道,今天小六来为大家解答以上的问题,现在让我们一起来看看吧!1、提问内没有被抽号的全数
关于自动抽号器,抽号器这个问题很多朋友还不知道,今天小六来为大家解答以上的问题,现在让我们一起来看看吧!
1、提问内没有被抽号的全数是多少。
2、所以把全数当作1000来编程时如下: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。
本文分享完毕,希望对大家有所帮助。
标签:
免责声明:本文由用户上传,如有侵权请联系删除!