这堆东西有搞头没？

Ganve_001

据说万物皆有规律。。我每天根据这个去买一注。。会不会瞎猫碰到死老鼠？？？
当然写的比较乱。。优化和改造地方很多

1. 
   
2. Dim BlueNumber,RedNumber
   
3. Dim objExcel,objWorkBook,objWorkSheet,ColNo,Col,addRow
   
4. Dim Times,Com,i,j
   
5. Dim DabouleBall(7)
   
6. Dim FilePath
   
7. For Times  =1 to 7
   
8.   If Times< 7 Then
   
9.     BlueNumber  = Randomnumber(1,33)
   
10.       For Com =1 to 6
    
11.         If DabouleBall(Com) = BlueNumber Then
    
12.           Times = Times -1
    
13.           Exit For
    
14.         Else
    
15.           'Keep Doing
    
16.         End If
    
17.         If Com = 6 Then
    
18.           DabouleBall(Times) = BlueNumber
    
19.         End If
    
20.       Next
    
21.   ElseIf Times = 7 Then
    
22.     RedNumber = Randomnumber(1,16)
    
23.     DabouleBall(Times) = RedNumber
    
24.   End If
    
25. Next
    
26. For i = 1 to 5
    
27.   For j = i +1 to 6
    
28.     If DabouleBall(i) >DabouleBall(j) Then
    
29.        Trans= DabouleBall(i)
    
30.        DabouleBall(i) = DabouleBall(j)
    
31.        DabouleBall(j)= Trans
    
32.     End If
    
33.   Next
    
34. Next
    
35. FilePath = "E:\DoubleBall.xlsx"
    
36. Set Fso  = CreateObject("Scripting.FileSystemObject")
    
37. If Fso.FileExists(FilePath) = False Then
    
38.   Set objExcel  = CreateObject("Excel.Application")
    
39.   Set objWorkBook = objExcel.Workbooks.Add
    
40.   Set objWorkSheet = objWorkBook.ActiveSheet
    
41.   For ColNo = 0 to 7
    
42.     Col = chr(65+ColNo)
    
43.     If ColNo  = 0 Then
    
44.       objWorkSheet.Range(Col & 1) ="Date"
    
45.     ElseIf  ColNo=7 Then
    
46.       objWorkSheet.Range(Col & 1) ="RedNo."
    
47.     Else
    
48.       objWorkSheet.Range(Col & 1) ="BlueNo."
    
49.     End If
    
50.   Next
    
51.   objWorkBook.SaveAs(FilePath)
    
52.   objExcel.Workbooks.Close
    
53.   objExcel.Quit
    
54.   Set objWorkBook = Nothing
    
55.   Set objExcel = Nothing
    
56. Else
    
57.   Set objExcel  = CreateObject("Excel.Application")
    
58.   'objExcel.Visible = True
    
59.   Set objWorkBook = objExcel.Workbooks.Open(FilePath)
    
60.   Set objWorkSheet = objWorkBook.ActiveSheet
    
61.   Set objWorkRange =  objWorkBook.ActiveSheet.UsedRange
    
62.   addRow = objWorkRange.Rows.count+1
    
63.   For   ColNo = 0  to 7
    
64.     Col = chr(65+ColNo)
    
65.     If ColNo  = 0 Then
    
66.       objWorkSheet.Range(Col & addRow) =Date
    
67.       'objWorkSheet.Range(Col & addRow).Interior.colorindex=4
    
68.     Else
    
69.       objWorkSheet.Range(Col & addRow)  = DabouleBall(ColNo)
    
70.     End If
    
71.   Next
    
72.   objWorkBook.Save
    
73.   objExcel.Workbooks.Close
    
74.   objExcel.Quit
    
75.   Set objWorkRange = Nothing
    
76.   Set objWorkSheet =Nothing
    
77.   Set  objWorkBook =Nothing
    
78.   Set objExcel =Nothing
    
79. End If
    

复制代码

lyscser

完全没搞头……坐等5亿归来