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

• #20452 gabor222 tag Delila_1 #20451

  Új Válasz 2014-02-11 17:32:34 #20452

  Ú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

  

  gabor222

  tag

  válasz Delila_1 #20451 üzenetére

  Ez a 2. hét, hogy tanulom. Mi általában egy betűből álló neveket szoktunk adni.

  Amit írtál abban ez a rész fontos? & "", Mert anélkül is működik.

  Kicsit átfogalmazva a feladat:
  1. A százas helyi értéken nem 8 áll.
  2. Az egyes helyi értéken nem a 7 áll.

  Sub nyolcszac()
  Dim i As Integer, db As Integer
  For i = 100 To 999
  If Right(i, 1) <> "7" And Left(i, 1) <> "8" Then db = db + 1
  Next
  MsgBox db
  End Sub

  Elvileg jó, igaz? Utánaszámolva igen

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