Aktív témák

• #25 Apollo17hu őstag bosi84 #24

  2005-05-03 12:25:27 #25

  Ö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

  

  Apollo17hu

  őstag

  válasz bosi84 #24 üzenetére

  Tessék, még a magyarázatot is mellékelem.
  Ha netalántán elektronikus úton készíted hozzá a folyamatábrát, akkor megköszönném, ha elküldenéd a mailcímemre.
  
  

  
  Sub a_masodik_legnagyobb()
  Randomize 'valódi véletlenszerûsítés
  m = 0
  n = 0
  For i = 1 To 15
  For j = 1 To 2
  Cells(i, j) = Int(Rnd * 101) 'véletlenszám-generálás
  Next
  Next
  For i = 1 To 15
  For j = 1 To 2
  If Cells(i, j) > m Then
  m = Cells(i, j) 'a legnagyobb véletlenszám értéke
  End If
  Next
  Next
  For i = 1 To 15
  For j = 1 To 2
  If Cells(i, j) > n And Cells(i, j) < m Then
  n = Cells(i, j) 'a 2. legnagyobb véletlenszám értéke
  End If
  Next
  Next
  Cells(1, 4) = n 'a 2. legnagyobb véletlenszám kiírása
  Cells(1, 4).Font.Color = vbRed 'piros színnel a D1-es cellába
  End Sub

Aktív témák