当前位置:编程学习 > VB >>

VB编程请教

下面是一随机抽样软件的源码

里面抽不到69

怎样在里面填多抽不到更多的号码

例如要在里面抽不到57,58,59等号码

- -!! 直接帮我写出来  不要说原理

Private Sub Command1_Click()


Dim Y, x1, x2, i As Integer

Randomize
Label1 = " "

x1 = Text1
x2 = Text2
For i = 1 To x2
  Y = Int(Rnd * x1)
   If Y = 69 Then
 
   Else
  
   If InStr(1, Label1.Caption, Str(Y)) > 0 Then

             i = i - 1

       Else
            Label1.Caption = Label1 + Str(Y) + ","

       End If
   
       End If

  
Next i

 

End Sub

答案:直接在已有的代码上修改了

Dim Y, x1, x2, i As Integer

Randomize
Label1 = " "

x1 = Text1
x2 = Text2
For i = 1 To x2
  Y = Int(Rnd * x1)
   If Y = 69 or Y=57 or Y=58 or Y=59 Then

 
   Else
   
   If InStr(1, Label1.Caption, Str(Y)) > 0 Then

             i = i - 1

       Else
            Label1.Caption = Label1 + Str(Y) + ","

       End If
    
       End If

   
Next i

 

End Sub

上一个:VB 编程 求救
下一个:vb编程!!

CopyRight © 2012 站长网 编程知识问答 www.zzzyk.com All Rights Reserved
部份技术文章来自网络,