51Testing软件测试论坛

标题: 这堆东西有搞头没？ [打印本页]
作者: Ganve_001    时间: 2011-8-17 17:46
标题: 这堆东西有搞头没？
本帖最后由 Ganve_001 于 2011-8-17 17:47 编辑

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

  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    时间: 2011-8-17 19:06
完全没搞头……坐等5亿归来



欢迎光临 51Testing软件测试论坛 (http://bbs.51testing.com/) Powered by Discuz! X3.2