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

• #2186 shev7 veterán Dufresne #2185

  Új Válasz 2006-10-28 16:09:09 #2186

  Ú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

  

  shev7

  veterán

  válasz Dufresne #2185 üzenetére

  egy mernok azert valamennyire ertsen a programozashoz

• #2184 shev7 veterán Dufresne #2183

  Új Válasz 2006-10-28 15:24:48 #2184

  Ú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

  

  shev7

  veterán

  válasz Dufresne #2183 üzenetére

  nemtudom minek erre progit irni, de tessek
  
  Sub Dufresne()
  Dim osszeg, db As Integer
  osszeg = 0
  darab = 0
  For i = 1 To 10
  If (i Mod 2 = 0) Then
  osszeg = osszeg + i
  darab = darab + 1
  Cells(3, 3 + darab) = i
  End If
  Next i
  Cells(1, 4) = osszeg / darab
  Cells(2, 4) = darab
  End Sub
  
  
  MOD: akar te is atirhattad volna
  
  [Szerkesztve]

• #2158 shev7 veterán Dufresne #2151

  Új Válasz 2006-10-27 08:56:10 #2158

  Ú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

  

  shev7

  veterán

  válasz Dufresne #2151 üzenetére

  ha a szamok az A1:A10-ben vannak:
  
  Sub Dufresne()
  Dim osszeg, db As Integer
  osszeg = 0
  darab = 0
  For i = 1 To 10
  If (Cells(i, 1) Mod 2 = 0) Then
  osszeg = osszeg + Cells(i, 1)
  darab = darab + 1
  Cells(3, 3 + darab) = Cells(i, 1)
  End If
  Next i
  Cells(1, 4) = osszeg / darab
  Cells(2, 4) = darab
  End Sub
  
  Akkor a d1-ben lesz az atlag, d2-ben a darabszam d3-tol kezdve pedig sorban a paros szamok.

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