- ©«¤l
- 151
- ¥DÃD
- 1
- ºëµØ
- 0
- ¿n¤À
- 197
- ÂI¦W
- 14
- §@·~¨t²Î
- windwos 7
- ³nÅ骩¥»
- 64bit
- ¾\ŪÅv
- 20
- µù¥U®É¶¡
- 2017-5-29
- ³Ì«áµn¿ý
- 2024-4-18
|
¥»©«³Ì«á¥Ñ quickfixer ©ó 2020-2-22 08:57 ½s¿è
¦^´_ 3# n7822123
ÁÂÁ±оÇ,¥Î§A±Ðªº¤èªk
§ï¼g«e¶]3¤ÀÄÁ,§ï¼g«á6¬í¥ª¥k¶]§¹ ^^
Sub test2()
Dim m As Integer, n As Integer, c As Double, t(1 To 39) As Integer, r As Double, arr()
For i = 1 To 39: t(i) = i: Next i
m = 39
n = 5
t0 = Timer
c = Cmn(m) / (Cmn(m - n) * Cmn(n))
ReDim arr(1 To c, 1 To n)
Application.ScreenUpdating = False
For i = 1 To m
For j = i + 1 To m
For k = j + 1 To m
For l = k + 1 To m
For p = l + 1 To m
r = r + 1
arr(r, 1) = t(i)
arr(r, 2) = t(j)
arr(r, 3) = t(k)
arr(r, 4) = t(l)
arr(r, 5) = t(p)
Next p
Next l
Next k
Next j
Next i
Range(Cells(1, 1), Cells(r, 5)) = arr()
Application.ScreenUpdating = True
MsgBox r & "²Õ¡G¨Ï¥Î®É¶¡" & Timer - t0 & "¬í"
End Sub
Function Cmn(x As Integer) As Double
Dim i As Integer, y As Double
y = 1
For i = 1 To x
y = y * i
Next
Cmn = y
End Function |
|