|
??? |
|
Option Explicit
Sub Macro1() Dim a As Integer Dim j As Integer a = 1 For j = 2 To 52 If a Mod 2 Then a = a + 53 End If a = a / 2 Next j For j = 1 To 50 a = (a * 2) Mod 53 Next j Cells(1, 1).value = a End Sub |
|
10月30日（木） 15:10:26
42606 |