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

• #59892992 törölt tag

  #2470

  #2469 sztanozs

  2014-06-28 20:59:22

  Új Válasz

  Ú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

  

  #59892992

  törölt tag

  #2469 sztanozs

  #2469 sztanozs

  Egyrészt ha kiavítanád, sem lenne jó (for a = 2 to 10), mivel 1. a kiiratás nem a ciklusban van, 2. ráadásul az értékadás után (for) változtatod a ciklusváltozó értékét.

  Próbáld ki az alábbiakat és rájössz a különbségre:
  1.
  Sub Main()
  Dim a As Integer
  a = 0
  For a = 2 to 10
  a = a + 2
  Next
  Console.WriteLine("A páros számok 1-től 10-ig=" & a)
  End Sub

  2.
  Sub Main()
  Dim a As Integer
  a = 0
  For a = 2 to 10
  a = a + 2
  Console.WriteLine("A páros számok 1-től 10-ig=" & a)
  Next
  End Sub

  3.
  Sub Main()
  Dim a As Integer
  a = 0
  For a = 2 to 10
  Console.WriteLine("A páros számok 1-től 10-ig=" & a)
  a = a + 2
  Next
  End Sub

  4.
  Sub Main()
  Dim a As Integer
  Console.WriteLine("A páros számok 1-től 10-ig:")
  For a = 2 to 10 step 2
  Console.WriteLine(a)
  Next
  End Sub

  Köszönöm a segítséget és a kódokat. Most már lefut a program,de csak egy időre feltűnik a konzol majd utána el is tűnik.Tehát nem látom az eredményt.Valami olyan kellene mint a getchar a c-ben. VB-ben van ilyen?
  A másik egy egyszerű animáció lenne de nem jó az eredmény.
  A kód:
  Imports System.Console
  Module Module1

  Sub Main()
  Dim str As String = "Animáció!"
  For i As Integer = 1 To 60
  CursorLeft = i
  Write("" + str)
  Threading.Thread.Sleep(100)
  Next
  Console.ReadKey()
  End Sub
  End Module

  Lefut csak ilyen eredménnyel.
  A sok A betűt kellene valahogy eltüntetni.

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