class1.cls

自己写的买彩票的程序

VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 2  'vbComplexBound
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "clsNumber"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = True
Public Function Weal3D() As Variant
    
     Dim numArry() As Integer
     
     ReDim numArry(3)
     
     Dim flagArry(3, 1) As Integer
     
     Dim randomNum As Integer
     
     Dim randomPos As Integer
     
     Dim i As Integer
     
     '初始化数字的排列位置标识
     For i = 0 To 2
     
         flagArry(i, 0) = 0
         
     Next
     
     i = 0
     
     Do While True
     
        If i > 2 Then Exit Do
        
        randomNum = CInt(9 * Rnd())
        
        randomPos = CInt(3 * Rnd())
        
        If randomPos < 3 Then
        
            If flagArry(randomPos, 0) = 0 Then
            
                 flagArry(randomPos, 0) = 1
                 
                 numArry(randomPos) = randomNum
                 
                 i = i + 1
                 
            End If
            
        End If
        
     Loop
     
 
     Weal3D = numArry
     
End Function

'双色球
'从1-33中选择6个号码作为红色球，从1-16中选择一个号码作为蓝色球，组合成7个数字
Public Function TwinColor() As Variant
    
    
     Dim redArry() As Integer
     
     ReDim redArry(7) As Integer
     
     Dim flagArry(7, 1) As Integer
     
     
     Dim i As Integer
     
     Dim j As Integer
     
     Dim randomNum As Integer
     
     Dim bValid As Boolean
     
     For i = 0 To 6
     
         flagArry(i, 0) = 0
         
         redArry(i) = -1
         
     Next
     
   
     i = 0
     
     j = 0
     
     Do While True
         
         If i > 6 Then Exit Do
     
         randomNum = CInt(33 * Rnd())
         
         If (i Mod 2) > 0 Then
         
           randomNum = CInt(randomNum) / 2
         
         End If
         
         bValid = True
         
         For j = 0 To 6
         
             If redArry(j) = randomNum Then
                
                 bValid = False
                 
                 Exit For
                 
             End If
             
         Next
         
         If bValid Then
         
             redArry(i) = randomNum
             
             i = i + 1
             
         End If
         
         
     Loop
     
     redArry(6) = CInt(16 * Rnd())
     
     TwinColor = redArry
     
End Function

Public Property Get DataSource() As DataSource

End Property

Public Property Set DataSource(ByVal objDataSource As DataSource)

End Property

Public Property Get DataMember() As DataMember

End Property

Public Property Let DataMember(ByVal DataMember As DataMember)

End Property