Új hozzászólás Aktív témák

• #15426 poffsoft veterán bandus #15422

  Új Válasz 2012-11-06 18:04:51 #15426

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  poffsoft

  veterán

  válasz bandus #15422 üzenetére

  háát, ha már favágás, azt én is tudok :

  Sub alg()
  
  Dim i, j, Iend, form As Variant
  Dim det(7, 4) As Variant
  Iend = 100
  det(0, 1) = 0: det(0, 2) = 0: det(0, 3) = 0: det(0, 4) = 0
  det(1, 1) = 1: det(1, 2) = 0: det(1, 3) = 0: det(1, 4) = 0
  det(2, 1) = 1: det(2, 2) = 1: det(2, 3) = 0: det(2, 4) = 0
  det(3, 1) = 1: det(3, 2) = 0: det(3, 3) = 1: det(3, 4) = 0
  det(4, 1) = 1: det(4, 2) = 1: det(4, 3) = 0: det(4, 4) = 0
  det(5, 1) = 1: det(5, 2) = 0: det(5, 3) = 1: det(5, 4) = 0
  det(6, 1) = 1: det(6, 2) = 1: det(6, 3) = 0: det(6, 4) = 0
  det(7, 1) = 1: det(7, 2) = 0: det(7, 3) = 0: det(7, 4) = 1
  Sheets(1).Select
  Range(Cells(1, 1), Cells(Iend, 7)).ClearContents
  For i = 1 To Iend
  det(0, 0) = i
  Cells(i + 1, 1) = det(0, 0)
  form = "x="
  For j = 1 To 4
  det(0, j) = det(0, j) + det(((i - 1) Mod 7) + 1, j)
  Cells(i + 1, j + 1) = det(0, j)
  form = form & Right("00" & det(0, j), 3) & "*" & Chr(Asc("a") + j - 1) & "+"
  Next j
  Cells(i + 1, 7) = Left(form, Len(form) - 1)
  Next i
  
  End Sub

Új hozzászólás Aktív témák