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编程！！